path: root/pd/doc/4.fft.examples/10.phaselockedvoc.pd

#N canvas 117 53 719 544 12;
#X floatatom 279 354 0 0 0;
#X msg 563 169 bang;
#X floatatom 186 351 0 0 0;
#X floatatom 84 350 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 50 71 sig~ 1.5e-20;
#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;
#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;
#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 ../../extra/lrshift~ 1;
#X obj 154 315 ../../extra/lrshift~ -1;
#X obj 227 339 ../../extra/lrshift~ 1;
#X obj 219 363 ../../extra/lrshift~ -1;
#X obj 210 432 -~;
#X obj 161 397 *~ 0;
#X obj 226 408 *~ 0;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 87 0;
#X connect 2 0 88 0;
#X connect 2 0 85 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 89 0;
#X connect 5 0 90 0;
#X connect 5 0 91 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 73 0;
#X connect 17 0 44 0;
#X connect 18 0 37 0;
#X connect 18 0 45 0;
#X connect 18 0 70 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 84 0;
#X connect 32 0 43 2;
#X connect 32 0 38 1;
#X connect 34 0 21 0;
#X connect 35 0 68 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 69 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 83 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 10 0;
#X connect 68 0 38 0;
#X connect 72 0 47 0;
#X connect 72 0 40 1;
#X connect 73 0 72 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 78 0 79 0;
#X connect 78 0 81 0;
#X connect 79 0 73 0;
#X connect 79 1 73 1;
#X connect 80 0 62 0;
#X connect 82 0 23 1;
#X connect 82 0 15 1;
#X connect 82 0 12 1;
#X connect 83 0 23 0;
#X connect 84 0 15 0;
#X connect 85 0 65 0;
#X connect 85 0 25 0;
#X connect 86 0 93 1;
#X connect 86 0 92 1;
#X connect 87 0 92 0;
#X connect 88 0 92 0;
#X connect 89 0 93 0;
#X connect 90 0 93 0;
#X connect 91 0 66 0;
#X connect 91 0 25 1;
#X connect 92 0 85 1;
#X connect 93 0 91 1;
#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;
#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;
#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;
#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;