aboutsummaryrefslogtreecommitdiff
path: root/pd/doc/4.fft.examples/06.sheepgoat2.pd
diff options
context:
space:
mode:
Diffstat (limited to 'pd/doc/4.fft.examples/06.sheepgoat2.pd')
-rw-r--r--pd/doc/4.fft.examples/06.sheepgoat2.pd365
1 files changed, 0 insertions, 365 deletions
diff --git a/pd/doc/4.fft.examples/06.sheepgoat2.pd b/pd/doc/4.fft.examples/06.sheepgoat2.pd
deleted file mode 100644
index b62cc7a5..00000000
--- a/pd/doc/4.fft.examples/06.sheepgoat2.pd
+++ /dev/null
@@ -1,365 +0,0 @@
-#N canvas 5 22 761 478 12;
-#N canvas 6 0 911 637 fft-analysis 0;
-#X obj 581 379 *~;
-#X obj 542 379 *~;
-#X obj 542 407 -~;
-#X obj 62 529 *~;
-#X obj 318 304 *~;
-#X obj 243 145 *~;
-#X obj 279 144 *~;
-#X obj 205 144 *~;
-#X obj 166 144 *~;
-#X obj 166 172 +~;
-#X obj 25 597 *~;
-#X floatatom 643 486;
-#X obj 357 221 *~;
-#X obj 94 77 *~;
-#X obj 114 50 inlet~;
-#X obj 37 21 tabreceive~ hanning;
-#X obj 94 101 rfft~;
-#X obj 25 573 rifft~;
-#X obj 25 623 outlet~;
-#X text 43 3 Hanning window;
-#X text 123 84 forward real FFT;
-#X obj 318 220 *~;
-#X obj 318 249 +~;
-#X obj 783 612 block~ 2048 4;
-#X obj 283 45 tabreceive~ last-real;
-#X text 390 13 previous analysis;
-#X obj 478 45 tabreceive~ last-imag;
-#X obj 318 276 rsqrt~;
-#X text 390 224 inverse modulus;
-#X obj 244 173 -~;
-#X obj 260 304 *~;
-#X obj 146 453 *~;
-#X obj 100 505 tabsend~ last-real;
-#X obj 138 481 tabsend~ last-imag;
-#X text 174 449 sic;
-#X obj 626 559 -~;
-#X obj 627 586 *~;
-#X obj 628 612 clip~ 0 1;
-#X obj 644 435 r threshold;
-#X obj 14 548 *~;
-#X text 328 145 quotient (current/last);
-#X obj 643 510 t f f;
-#X obj 643 535 *;
-#X obj 277 510 tabsend~ precess-real;
-#X obj 535 327 tabreceive~ precess-real;
-#X obj 724 327 tabreceive~ precess-imag;
-#X obj 317 480 tabsend~ precess-imag;
-#X text 621 364 imaginary part of quotient;
-#X obj 539 440 *~;
-#X obj 643 462 / 100;
-#X text 374 270 normalized quotient \, which encodes the phase precession in the bin between two successive analyses.;
-#X text 623 381 of successive phase precession;
-#X text 621 397 values gives pitch stability;
-#X obj 731 492 r flip;
-#X obj 731 517 sel 0;
-#X msg 798 547 1e+20;
-#X msg 731 548 -1e+20;
-#X obj 9 370 *~ 0.001;
-#X obj 73 371 *~ 0.001;
-#X connect 0 0 2 1;
-#X connect 1 0 2 0;
-#X connect 2 0 31 0;
-#X connect 2 0 48 0;
-#X connect 2 0 48 1;
-#X connect 3 0 17 1;
-#X connect 4 0 46 0;
-#X connect 4 0 1 0;
-#X connect 5 0 29 0;
-#X connect 6 0 29 1;
-#X connect 7 0 9 1;
-#X connect 8 0 9 0;
-#X connect 9 0 30 0;
-#X connect 9 0 21 0;
-#X connect 9 0 21 1;
-#X connect 10 0 18 0;
-#X connect 11 0 41 0;
-#X connect 12 0 22 1;
-#X connect 13 0 16 0;
-#X connect 14 0 13 1;
-#X connect 15 0 10 1;
-#X connect 15 0 13 0;
-#X connect 16 0 6 0;
-#X connect 16 0 8 0;
-#X connect 16 0 32 0;
-#X connect 16 0 57 0;
-#X connect 16 1 7 0;
-#X connect 16 1 5 0;
-#X connect 16 1 33 0;
-#X connect 16 1 58 0;
-#X connect 17 0 10 0;
-#X connect 21 0 22 0;
-#X connect 22 0 27 0;
-#X connect 24 0 8 1;
-#X connect 24 0 5 1;
-#X connect 26 0 7 1;
-#X connect 26 0 6 1;
-#X connect 27 0 4 1;
-#X connect 27 0 30 1;
-#X connect 29 0 4 0;
-#X connect 29 0 12 0;
-#X connect 29 0 12 1;
-#X connect 30 0 43 0;
-#X connect 30 0 0 0;
-#X connect 31 0 33 0;
-#X connect 31 0 32 0;
-#X connect 31 0 43 0;
-#X connect 31 0 46 0;
-#X connect 35 0 36 0;
-#X connect 36 0 37 0;
-#X connect 37 0 3 1;
-#X connect 37 0 39 1;
-#X connect 38 0 49 0;
-#X connect 39 0 17 0;
-#X connect 41 0 42 0;
-#X connect 41 1 42 1;
-#X connect 42 0 35 1;
-#X connect 44 0 1 1;
-#X connect 45 0 0 1;
-#X connect 48 0 35 0;
-#X connect 49 0 11 0;
-#X connect 53 0 54 0;
-#X connect 54 0 56 0;
-#X connect 54 1 55 0;
-#X connect 55 0 36 1;
-#X connect 56 0 36 1;
-#X connect 57 0 39 0;
-#X connect 58 0 3 0;
-#X restore 58 368 pd fft-analysis;
-#X floatatom 207 217;
-#X obj 58 416 dac~;
-#X obj 58 388 *~;
-#N canvas 662 12 796 785 previous-analysis 0;
-#X graph graph1 0 -1 2048 1 344 407 744 107;
-#X array last-real 2048 float;
-#X pop;
-#X graph graph2 0 -1 2048 1 349 719 749 419;
-#X array last-imag 2048 float;
-#X pop;
-#X msg 43 217 \; last-real resize 2048 \; last-imag resize 2048;
-#X restore 262 368 pd previous-analysis;
-#X obj 207 245 s threshold;
-#X obj 106 421 line~;
-#X floatatom 553 78;
-#N canvas 194 37 397 591 output 0;
-#X obj 73 225 t b;
-#X obj 73 169 f;
-#X obj 73 113 inlet;
-#X text 79 89 mute;
-#X obj 73 253 f;
-#X msg 149 271 0;
-#X msg 73 141 bang;
-#X obj 73 197 moses 1;
-#X obj 149 243 t b f;
-#X obj 107 490 outlet;
-#X msg 107 462 set \$1;
-#X obj 206 181 moses 1;
-#X obj 249 493 dbtorms;
-#X obj 249 521 pack 0 100;
-#X obj 206 153 r master-lvl;
-#X obj 107 424 r master-lvl;
-#X obj 92 317 s master-lvl;
-#X obj 249 549 s master-amp;
-#X connect 0 0 4 0;
-#X connect 1 0 7 0;
-#X connect 2 0 6 0;
-#X connect 4 0 16 0;
-#X connect 5 0 16 0;
-#X connect 6 0 1 0;
-#X connect 7 0 0 0;
-#X connect 7 1 8 0;
-#X connect 8 0 5 0;
-#X connect 10 0 9 0;
-#X connect 11 1 4 1;
-#X connect 12 0 13 0;
-#X connect 13 0 17 0;
-#X connect 14 0 1 1;
-#X connect 14 0 11 0;
-#X connect 15 0 10 0;
-#X connect 15 0 12 0;
-#X restore 553 50 pd output;
-#X msg 553 22 mute;
-#X text 596 69 MASTER;
-#X text 596 84 LEVEL;
-#X obj 553 106 s master-lvl;
-#X obj 106 393 r master-amp;
-#X obj 582 277 loadbang;
-#X obj 582 305 samplerate~;
-#X text 30 161 click here first;
-#X obj 472 334 hip~ 5;
-#X obj 472 306 adc~ 1;
-#X msg 545 265 bang;
-#X obj 545 306 f;
-#X obj 545 334 s insamprate;
-#X obj 472 362 tabwrite~ sample;
-#X text 465 235 record your own sample;
-#N canvas 190 37 605 462 hanning-window 0;
-#X obj 108 242 phasor~;
-#X obj 108 275 cos~;
-#X obj 27 386 tabwrite~ hanning;
-#X obj 35 297 -~;
-#X obj 33 257 sig~ 1;
-#X msg 44 212 0;
-#X text 166 16 CALCULATE HANNING;
-#X text 166 32 WINDOW TABLE;
-#X graph graph1 0 -1 2047 1 369 373 569 223;
-#X array hanning 2048 float;
-#X pop;
-#X obj 109 154 / 1024;
-#X obj 109 201 sig~;
-#X text 171 152 sample rate / window size;
-#X msg 27 169 bang;
-#X obj 78 316 sig~ 0.5;
-#X obj 58 353 *~;
-#X obj 79 113 samplerate~;
-#X obj 29 27 r window-size;
-#X obj 29 62 t b f;
-#X msg 385 402 \; hanning resize 2048;
-#X connect 0 0 1 0;
-#X connect 1 0 3 1;
-#X connect 3 0 14 0;
-#X connect 4 0 3 0;
-#X connect 5 0 0 1;
-#X connect 9 0 10 0;
-#X connect 10 0 0 0;
-#X connect 12 0 2 0;
-#X connect 12 0 5 0;
-#X connect 13 0 14 1;
-#X connect 14 0 2 0;
-#X connect 15 0 9 0;
-#X connect 16 0 17 0;
-#X connect 17 0 15 0;
-#X connect 17 0 12 0;
-#X connect 17 1 9 1;
-#X restore 262 340 pd hanning-window;
-#X text 121 15 PITCHED/UNPITCHED SEPARATION;
-#X floatatom 356 205;
-#X obj 356 233 s flip;
-#X msg 356 177 0;
-#X text 363 129 select:;
-#X text 326 157 pitched;
-#X text 391 156 noisy;
-#X msg 391 176 1;
-#X text 198 155 threshold;
-#X text 204 171 (range;
-#X text 207 189 0-100);
-#X text 21 73 A low threshold means to let only very coherent signals through. A high one permits more of the signal to be considered "pitched". You can select either to hear the pitched or the noisy part.;
-#N canvas 0 0 843 816 phase-precession 0;
-#X graph graph1 0 -1 2048 1 349 423 749 123;
-#X array precess-real 2048 float;
-#X pop;
-#X graph graph2 0 -1 2048 1 348 749 748 449;
-#X array precess-imag 2048 float;
-#X pop;
-#X msg 45 91 \; precess-real resize 2048 \; precess-imag resize 2048;
-#X restore 262 396 pd phase-precession;
-#X msg 23 182 \; window-size 2048 \; flip 0 \; pd dsp 1;
-#X text 20 35 Another patch to separate pitched from unpitched signals. This one does a frequency estimate for each bin and checks whether the frequency seems to be changing quickly or not.;
-#X floatatom 58 323;
-#X text 143 302 noise;
-#X text 84 282 amplitudes;
-#X floatatom 143 319;
-#N canvas 190 43 534 552 test-signal 0;
-#X obj 134 293 tabread4~ sample;
-#X obj 134 268 line~;
-#X obj 95 146 f;
-#X obj 184 123 r insamprate;
-#X obj 320 380 *~;
-#X obj 136 350 *~;
-#X obj 323 261 noise~;
-#X obj 136 397 +~;
-#X obj 164 351 dbtorms;
-#X obj 346 380 dbtorms;
-#X obj 164 328 inlet;
-#X obj 346 358 inlet;
-#X obj 323 337 *~;
-#X obj 323 283 bp~ 2000 7;
-#X obj 136 449 outlet~;
-#X obj 110 98 r insamplength;
-#X msg 134 247 0 \, \$1 \$2;
-#X obj 134 221 pack 0 0;
-#X obj 180 199 /;
-#X obj 184 147 * 0.001;
-#X obj 180 171 t b f;
-#X text 312 234 nasty non-flat noise;
-#X obj 136 422 hip~ 5;
-#X obj 90 7 loadbang;
-#X text 242 13 sample playback;
-#X msg 90 27 1;
-#X obj 89 67 metro 1000;
-#X floatatom 89 46;
-#X obj 346 314 phasor~ 3000;
-#X connect 0 0 5 0;
-#X connect 1 0 0 0;
-#X connect 2 0 17 0;
-#X connect 2 0 18 0;
-#X connect 3 0 19 0;
-#X connect 4 0 7 1;
-#X connect 5 0 7 0;
-#X connect 6 0 13 0;
-#X connect 7 0 22 0;
-#X connect 8 0 5 1;
-#X connect 9 0 4 1;
-#X connect 10 0 8 0;
-#X connect 11 0 9 0;
-#X connect 12 0 4 0;
-#X connect 13 0 12 0;
-#X connect 15 0 2 1;
-#X connect 16 0 1 0;
-#X connect 17 0 16 0;
-#X connect 18 0 17 1;
-#X connect 18 0 26 1;
-#X connect 19 0 20 0;
-#X connect 20 0 18 0;
-#X connect 20 1 18 1;
-#X connect 22 0 14 0;
-#X connect 23 0 25 0;
-#X connect 25 0 27 0;
-#X connect 26 0 2 0;
-#X connect 27 0 26 0;
-#X connect 28 0 12 1;
-#X restore 58 345 pd test-signal;
-#X text 53 301 sampler;
-#X text 549 158 read a sample;
-#X msg 459 179 \; read-sample ../sound/bell.aiff 44100;
-#N canvas 132 255 634 335 insample 0;
-#X graph graph1 0 -1 155947 1 180 168 580 18;
-#X array sample 155948 float;
-#X pop;
-#X obj 19 70 r read-sample;
-#X obj 19 95 unpack s f;
-#X obj 53 121 s insamprate;
-#X obj 19 171 soundfiler;
-#X msg 19 147 read -resize \$1 sample;
-#X obj 19 201 s insamplength;
-#X msg 357 197 \; sample resize 220500 \; insamplength 220500;
-#X connect 1 0 2 0;
-#X connect 2 0 5 0;
-#X connect 2 1 3 0;
-#X connect 4 0 6 0;
-#X connect 5 0 4 0;
-#X restore 261 310 pd insample;
-#X connect 0 0 3 0;
-#X connect 1 0 5 0;
-#X connect 3 0 2 0;
-#X connect 3 0 2 1;
-#X connect 6 0 3 1;
-#X connect 7 0 12 0;
-#X connect 8 0 7 0;
-#X connect 9 0 8 0;
-#X connect 13 0 6 0;
-#X connect 14 0 15 0;
-#X connect 15 0 20 1;
-#X connect 17 0 22 0;
-#X connect 18 0 17 0;
-#X connect 19 0 20 0;
-#X connect 19 0 22 0;
-#X connect 20 0 21 0;
-#X connect 26 0 27 0;
-#X connect 28 0 26 0;
-#X connect 32 0 26 0;
-#X connect 40 0 44 0;
-#X connect 43 0 44 1;
-#X connect 44 0 0 0;