aboutsummaryrefslogtreecommitdiff
path: root/pd/doc/4.fft.examples/10.phaselockedvoc.pd
diff options
context:
space:
mode:
Diffstat (limited to 'pd/doc/4.fft.examples/10.phaselockedvoc.pd')
-rw-r--r--pd/doc/4.fft.examples/10.phaselockedvoc.pd444
1 files changed, 0 insertions, 444 deletions
diff --git a/pd/doc/4.fft.examples/10.phaselockedvoc.pd b/pd/doc/4.fft.examples/10.phaselockedvoc.pd
deleted file mode 100644
index 7c8be2bb..00000000
--- a/pd/doc/4.fft.examples/10.phaselockedvoc.pd
+++ /dev/null
@@ -1,444 +0,0 @@
-#N canvas 117 53 719 544 12;
-#X floatatom 279 354 0 0 0 0 - - -;
-#X msg 563 169 bang;
-#X floatatom 186 351 0 0 0 0 - - -;
-#X floatatom 84 350 0 0 0 0 - - -;
-#N canvas 5 5 986 679 fft-analysis 0;
-#X obj 177 242 *~;
-#X obj 146 242 *~;
-#X obj 146 264 -~;
-#X obj 242 243 *~;
-#X obj 211 243 *~;
-#X obj 211 265 +~;
-#X obj 256 73 *~;
-#X obj 225 73 *~;
-#X obj 197 73 *~;
-#X obj 166 73 *~;
-#X obj 166 95 +~;
-#X obj 136 124 *~;
-#X obj 49 560 *~;
-#X obj 365 179 rfft~;
-#X obj 291 34 rfft~;
-#X obj 490 598 *~;
-#X obj 685 288 r window-size;
-#X obj 751 201 r sample-rate;
-#X obj 609 234 f;
-#X obj 603 52 r sample-rate;
-#X obj 578 29 r window-size;
-#X obj 601 98 t b f;
-#X obj 578 121 /;
-#X obj 520 598 *~;
-#X obj 50 540 *~;
-#X obj 66 517 rifft~;
-#X obj 50 586 outlet~;
-#X obj 625 446 print~;
-#X msg 624 418 bang;
-#X text 115 517 inverse real FFT;
-#X obj 589 210 bang~;
-#X obj 516 424 line~;
-#X obj 578 143 * 1000;
-#X text 630 136 window size (msec);
-#X obj 603 76 * 4;
-#X obj 632 159 r speed;
-#X obj 709 160 r location;
-#X obj 640 235 +;
-#X obj 633 200 *;
-#X msg 710 188 0;
-#X obj 609 341 +;
-#X obj 600 298 t f f;
-#X msg 516 396 \$1 \, \$2 \$3;
-#X obj 516 369 pack 0 0 0;
-#X obj 752 229 / 1000;
-#X obj 609 269 *;
-#X text 639 270 reading location (samples);
-#X obj 637 381 / 4;
-#X text 669 386 hop size (samples);
-#X obj 564 464 sig~;
-#X obj 534 463 +~;
-#X text 638 82 (overlap times parent SR);
-#X text 638 69 local sample rate;
-#X obj 103 10 tabreceive~ phase-real;
-#X obj 106 124 *~;
-#X obj 106 146 +~;
-#X obj 106 170 rsqrt~;
-#X obj 225 95 -~;
-#X obj 147 200 *~;
-#X obj 207 200 *~;
-#X obj 266 9 tabreceive~ phase-imag;
-#X obj 31 481 sig~;
-#X obj 14 411 t b f;
-#X msg 14 432 1;
-#X obj 28 455 /;
-#X obj 187 496 tabsend~ phase-real;
-#X obj 288 474 tabsend~ phase-imag;
-#X obj 632 180 * 0.01;
-#X obj 691 212 s speed;
-#X obj 474 263 s see-location;
-#X obj 598 618 block~ 2048 4;
-#X floatatom 672 360 0 0 0 0 - - -;
-#X obj 670 339 *;
-#X obj 829 234 r transpo;
-#X obj 829 256 * 0.01;
-#X obj 831 277 + 69;
-#X obj 832 298 mtof;
-#X obj 832 320 / 440;
-#X obj 689 316 t b f;
-#X obj 14 390 r window-size;
-#X floatatom 835 353 0 0 0 0 - - -;
-#X obj 551 543 tabreceive~ hanning;
-#X obj 534 489 tabread4~ sample;
-#X obj 516 515 tabread4~ sample;
-#X obj 145 422 -~;
-#X obj 249 385 r lock;
-#X obj 162 291 lrshift~ 1;
-#X obj 154 315 lrshift~ -1;
-#X obj 227 339 lrshift~ 1;
-#X obj 219 363 lrshift~ -1;
-#X obj 210 432 -~;
-#X obj 161 397 *~ 0;
-#X obj 226 408 *~ 0;
-#X obj 50 71 sig~ 1e-15;
-#X connect 0 0 2 1;
-#X connect 1 0 2 0;
-#X connect 2 0 86 0;
-#X connect 2 0 87 0;
-#X connect 2 0 84 0;
-#X connect 3 0 5 1;
-#X connect 4 0 5 0;
-#X connect 5 0 88 0;
-#X connect 5 0 89 0;
-#X connect 5 0 90 0;
-#X connect 6 0 57 1;
-#X connect 7 0 57 0;
-#X connect 8 0 10 1;
-#X connect 9 0 10 0;
-#X connect 10 0 58 1;
-#X connect 10 0 54 0;
-#X connect 10 0 54 1;
-#X connect 11 0 55 1;
-#X connect 12 0 26 0;
-#X connect 13 0 1 1;
-#X connect 13 0 3 1;
-#X connect 13 1 0 1;
-#X connect 13 1 4 1;
-#X connect 14 0 9 1;
-#X connect 14 0 7 1;
-#X connect 14 1 6 1;
-#X connect 14 1 8 1;
-#X connect 15 0 14 0;
-#X connect 16 0 72 0;
-#X connect 17 0 44 0;
-#X connect 18 0 37 0;
-#X connect 18 0 45 0;
-#X connect 18 0 69 0;
-#X connect 19 0 34 0;
-#X connect 20 0 22 0;
-#X connect 21 0 22 0;
-#X connect 21 1 22 1;
-#X connect 22 0 32 0;
-#X connect 23 0 13 0;
-#X connect 24 0 12 0;
-#X connect 25 0 24 1;
-#X connect 28 0 27 0;
-#X connect 30 0 18 0;
-#X connect 31 0 27 0;
-#X connect 31 0 50 0;
-#X connect 31 0 83 0;
-#X connect 32 0 43 2;
-#X connect 32 0 38 1;
-#X connect 34 0 21 0;
-#X connect 35 0 67 0;
-#X connect 36 0 39 0;
-#X connect 36 0 18 1;
-#X connect 37 0 18 1;
-#X connect 38 0 37 1;
-#X connect 39 0 68 0;
-#X connect 40 0 43 1;
-#X connect 41 0 43 0;
-#X connect 41 1 40 0;
-#X connect 42 0 31 0;
-#X connect 43 0 42 0;
-#X connect 44 0 45 1;
-#X connect 45 0 41 0;
-#X connect 47 0 49 0;
-#X connect 49 0 50 1;
-#X connect 50 0 82 0;
-#X connect 53 0 9 0;
-#X connect 53 0 6 0;
-#X connect 54 0 55 0;
-#X connect 55 0 56 0;
-#X connect 56 0 58 0;
-#X connect 56 0 59 0;
-#X connect 57 0 59 1;
-#X connect 57 0 11 0;
-#X connect 57 0 11 1;
-#X connect 58 0 1 0;
-#X connect 58 0 4 0;
-#X connect 59 0 0 0;
-#X connect 59 0 3 0;
-#X connect 60 0 7 0;
-#X connect 60 0 8 0;
-#X connect 61 0 24 0;
-#X connect 62 0 63 0;
-#X connect 62 1 64 1;
-#X connect 63 0 64 0;
-#X connect 64 0 61 0;
-#X connect 67 0 38 0;
-#X connect 71 0 47 0;
-#X connect 71 0 40 1;
-#X connect 72 0 71 0;
-#X connect 73 0 74 0;
-#X connect 74 0 75 0;
-#X connect 75 0 76 0;
-#X connect 76 0 77 0;
-#X connect 77 0 78 0;
-#X connect 77 0 80 0;
-#X connect 78 0 72 0;
-#X connect 78 1 72 1;
-#X connect 79 0 62 0;
-#X connect 81 0 23 1;
-#X connect 81 0 15 1;
-#X connect 81 0 12 1;
-#X connect 82 0 23 0;
-#X connect 83 0 15 0;
-#X connect 84 0 65 0;
-#X connect 84 0 25 0;
-#X connect 85 0 92 1;
-#X connect 85 0 91 1;
-#X connect 86 0 91 0;
-#X connect 87 0 91 0;
-#X connect 88 0 92 0;
-#X connect 89 0 92 0;
-#X connect 90 0 66 0;
-#X connect 90 0 25 1;
-#X connect 91 0 84 1;
-#X connect 92 0 90 1;
-#X connect 93 0 10 0;
-#X restore 37 422 pd fft-analysis;
-#X obj 37 508 dac~;
-#N canvas 260 23 647 768 phase-tables 0;
-#N canvas 0 0 450 300 graph2 0;
-#X array phase-imag 4096 float 0;
-#X coords 0 1 4096 -1 400 300 1;
-#X restore 172 290 graph;
-#N canvas 0 0 450 300 graph3 0;
-#X array phase-real 4096 float 0;
-#X coords 0 1 4096 -1 400 300 1;
-#X restore 170 17 graph;
-#X msg 167 564 \; phase-real resize 4096 \; phase-imag resize 4096
-;
-#X restore 419 489 pd phase-tables;
-#X obj 37 448 hip~ 5;
-#X obj 37 478 *~;
-#N canvas 249 280 600 398 loc&precess 0;
-#X floatatom 160 229 0 0 0 0 - - -;
-#X msg 270 175 set \$1;
-#X obj 269 207 outlet;
-#X obj 83 267 outlet;
-#X obj 171 71 r location;
-#X msg 82 235 set \$1;
-#X obj 269 149 r speed;
-#X obj 55 70 r see-location;
-#X obj 67 102 t b f;
-#X obj 82 214 f;
-#X obj 54 127 int;
-#X obj 54 151 sel 0;
-#X msg 153 102 1;
-#X msg 201 101 0;
-#X obj 110 179 del 300;
-#X connect 1 0 2 0;
-#X connect 4 0 8 0;
-#X connect 5 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 8 0;
-#X connect 8 0 10 0;
-#X connect 8 1 9 1;
-#X connect 9 0 5 0;
-#X connect 10 0 11 0;
-#X connect 11 0 12 0;
-#X connect 11 0 14 0;
-#X connect 12 0 10 1;
-#X connect 13 0 10 1;
-#X connect 14 0 13 0;
-#X connect 14 0 9 0;
-#X restore 84 322 pd loc&precess;
-#N canvas 0 0 600 400 setlocprecess 0;
-#X obj 173 82 inlet;
-#X obj 73 80 inlet;
-#X obj 169 105 s speed;
-#X obj 74 105 s location;
-#X connect 0 0 2 0;
-#X connect 1 0 3 0;
-#X restore 84 373 pd setlocprecess;
-#X msg 41 333 0;
-#X obj 606 182 adc~;
-#X obj 279 379 s transpo;
-#X obj 277 305 r transpo;
-#X msg 277 331 set \$1;
-#X msg 404 287 \; location 0 \; speed 200;
-#N canvas 138 111 767 761 hanning-window 0;
-#X obj 92 206 phasor~;
-#X obj 92 234 cos~;
-#X obj 23 328 tabwrite~ hanning;
-#X obj 30 252 -~;
-#X obj 28 218 sig~ 1;
-#X msg 37 180 0;
-#X text 141 13 CALCULATE HANNING;
-#X text 141 27 WINDOW TABLE;
-#N canvas 0 0 450 300 graph1 0;
-#X array hanning 4096 float 0;
-#X coords 0 1 4096 -1 400 300 1;
-#X restore 275 281 graph;
-#X obj 93 171 sig~;
-#X text 175 148 sample rate / window size;
-#X msg 23 144 bang;
-#X obj 66 269 sig~ 0.5;
-#X obj 49 300 *~;
-#X obj 94 80 samplerate~;
-#X obj 25 23 r window-size;
-#X obj 25 53 t b f;
-#X msg 275 547 \; hanning resize 4096;
-#X obj 93 132 /;
-#X connect 0 0 1 0;
-#X connect 1 0 3 1;
-#X connect 3 0 13 0;
-#X connect 4 0 3 0;
-#X connect 5 0 0 1;
-#X connect 9 0 0 0;
-#X connect 11 0 2 0;
-#X connect 11 0 5 0;
-#X connect 12 0 13 1;
-#X connect 13 0 2 0;
-#X connect 14 0 18 0;
-#X connect 15 0 16 0;
-#X connect 16 0 14 0;
-#X connect 16 0 11 0;
-#X connect 16 1 18 1;
-#X connect 18 0 9 0;
-#X restore 417 512 pd hanning-window;
-#X msg 25 192 \; window-size 2048 \; transpo 0 \; pd dsp 1;
-#X floatatom 587 68 0 0 0 0 - - -;
-#N canvas 194 37 397 591 output 0;
-#X obj 62 191 t b;
-#X obj 62 144 f;
-#X obj 62 96 inlet;
-#X text 67 76 mute;
-#X obj 62 215 f;
-#X msg 127 230 0;
-#X msg 62 120 bang;
-#X obj 62 167 moses 1;
-#X obj 127 207 t b f;
-#X obj 91 417 outlet;
-#X msg 91 393 set \$1;
-#X obj 175 154 moses 1;
-#X obj 212 419 dbtorms;
-#X obj 212 443 pack 0 100;
-#X obj 175 130 r master-lvl;
-#X obj 91 360 r master-lvl;
-#X obj 78 269 s master-lvl;
-#X obj 212 467 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 587 44 pd output;
-#X msg 587 20 mute;
-#X text 624 60 MASTER;
-#X text 623 74 LEVEL;
-#X obj 587 92 s master-lvl;
-#X text 35 173 click here first;
-#X obj 81 506 line~;
-#X obj 81 482 r master-amp;
-#X text 49 271 set location;
-#X text 48 285 and stop;
-#X text 48 299 precession;
-#X text 166 270 precession;
-#X text 165 286 speed in;
-#X text 165 300 hundredths;
-#X text 275 264 transposition;
-#X text 276 282 in cents;
-#X text 512 242 examples;
-#X text 407 266 contraction;
-#X text 623 265 expansion;
-#X msg 612 288 \; location 0 \; speed 10;
-#X obj 419 360 loadbang;
-#X obj 423 383 samplerate~;
-#X obj 419 405 s sample-rate;
-#N canvas 132 255 846 368 insample 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array sample 92615 float 0;
-#X coords 0 1 92614 -1 400 150 1;
-#X restore 406 155 graph;
-#X obj 12 19 r read-sample;
-#X obj 12 132 unpack s f;
-#X obj 46 158 s insamprate;
-#X obj 12 208 soundfiler;
-#X msg 12 184 read -resize \$1 sample;
-#X obj 12 238 s insamplength;
-#X msg 20 289 \; sample resize 220500 \; insamplength 220500;
-#X obj 22 46 inlet;
-#X obj 22 73 openpanel;
-#X obj 22 101 pack s 50;
-#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 connect 8 0 9 0;
-#X connect 9 0 10 0;
-#X connect 10 0 2 0;
-#X restore 419 463 pd insample;
-#X msg 190 163 \; read-sample ../sound/bell.aiff \; transpo 0;
-#X msg 190 217 \; read-sample ../sound/voice.wav \; transpo -530;
-#X obj 563 204 tabwrite~ sample;
-#X obj 583 411 s lock;
-#X floatatom 583 386 0 0 0 0 - - -;
-#X msg 584 359 0;
-#X msg 618 358 1;
-#X text 135 18 PHASE LOCKING VOCODER;
-#X text 32 46 This is a spin on the phase vocoder which prevents beating
-between adjacent channels of the FFT. This is described in "Phase Locked
-Vocoder" (reprinted on MSP's web page) and further improved by Laroche
-and Dolson \, reported in ICMC97.;
-#X obj 419 440 bng 15 250 50 0 empty empty read-sample 20 8 0 12 -262144
--1 -1;
-#X text 528 265 normal;
-#X msg 507 288 \; location 0 \; speed 100;
-#X connect 0 0 13 0;
-#X connect 1 0 46 0;
-#X connect 2 0 10 1;
-#X connect 3 0 10 0;
-#X connect 4 0 7 0;
-#X connect 7 0 8 0;
-#X connect 8 0 5 0;
-#X connect 8 0 5 1;
-#X connect 9 0 3 0;
-#X connect 9 1 2 0;
-#X connect 11 0 3 0;
-#X connect 12 0 46 0;
-#X connect 14 0 15 0;
-#X connect 15 0 0 0;
-#X connect 19 0 24 0;
-#X connect 20 0 19 0;
-#X connect 21 0 20 0;
-#X connect 26 0 8 1;
-#X connect 27 0 26 0;
-#X connect 40 0 41 0;
-#X connect 41 0 42 0;
-#X connect 48 0 47 0;
-#X connect 49 0 48 0;
-#X connect 50 0 48 0;
-#X connect 53 0 43 0;