Browse Source

add sources/abstractions

master
k_ 10 months ago
parent
commit
77e10562d6
  1. 85
      sources/abstractions/k_spectrum.pd

85
sources/abstractions/k_spectrum.pd

@ -0,0 +1,85 @@
#N canvas 1114 169 788 600 12;
#N canvas 335 184 569 608 fft 0;
#X obj 43 105 inlet~;
#X obj 243 263 inlet;
#X obj 63 136 rfft~;
#X obj 63 169 *~;
#X obj 95 169 *~;
#X obj 63 199 sqrt~;
#X obj 366 153 block~ 4096 1;
#X obj 63 225 biquad~ 0 0 0 0 1;
#X text 127 137 Fourier series;
#X text 132 190 magnitude;
#X text 130 175 calculate;
#X text 60 26 This subpatch computes the spectrum of the incoming signal
with a (rectangular windowed) FFT. FFTs aren't properly introduced
until much later.;
#X text 105 104 signal to analyze;
#X text 194 216 delay two samples;
#X text 192 234 for better graphing;
#X obj 298 501 samplerate~;
#X obj 298 524 / 256;
#X obj 273 332 metro 500;
#X obj 272 292 inlet;
#X text 325 290 toggle to graph repeatedly;
#X text 297 263 bang to graph once;
#X obj 63 249 /~ 4096;
#X obj 298 476 bang~;
#X msg 243 389 \; pd dsp 1;
#X obj 298 549 s freq;
#X obj 43 392 tabwrite~ \$0-signal;
#X obj 272 366 tabwrite~ \$0-spectrum;
#X connect 0 0 2 0;
#X connect 0 0 25 0;
#X connect 1 0 23 0;
#X connect 1 0 25 0;
#X connect 1 0 26 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 4 0;
#X connect 2 1 4 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 7 0 21 0;
#X connect 15 0 16 0;
#X connect 16 0 24 0;
#X connect 17 0 25 0;
#X connect 17 0 26 0;
#X connect 18 0 17 0;
#X connect 18 0 23 0;
#X connect 21 0 26 0;
#X connect 22 0 15 0;
#X restore 404 361 pd fft;
#X obj 190 68 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 190 102 tgl 18 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X text 212 68 <= graph once;
#X text 211 101 <= repeatedly;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-signal 882 float 0;
#X coords 0 1.02 882 -1.02 200 130 1 0 0;
#X restore 80 380 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-spectrum 259 float 0;
#X coords 0 0.51 258 -0.008 256 130 1;
#X restore 48 167 graph;
#X text 80 513 ---- 0.02 seconds ----;
#X text 77 298 2;
#X text 108 298 4;
#X text 47 298 0;
#X text 119 323 -- partial number --;
#X text 140 298 6;
#X text 173 298 8;
#X text 201 298 10;
#X text 233 298 12;
#X text 265 298 14;
#X obj 404 245 inlet~;
#X text 58 492 -1;
#X text 65 376 1;
#X text 65 435 0;
#X connect 1 0 0 1;
#X connect 2 0 0 2;
#X connect 17 0 0 0;
#X coords 0 -1 1 1 300 500 1 30 50;
Loading…
Cancel
Save