#N canvas 150 62 852 878 10;
#X floatatom 195 152;
#X floatatom 107 152;
#X obj 276 347 hip~ 5;
#X obj 277 382 tabwrite~ insamp;
#X msg 351 353 bang;
#X floatatom 192 274;
#X floatatom 72 273;
#X obj 430 115 r sample-rate;
#X obj 429 144 r window-size;
#X text 289 181 frequency;
#N canvas 37 85 1055 820 fft-analysis 0;
#X obj 362 500 -~;
#X obj 392 416 leftshift;
#X obj 395 442 rightshift;
#X obj 380 472 *~;
#X obj 264 499 -~;
#X obj 307 349 *~;
#X obj 271 349 *~;
#X obj 271 375 -~;
#X obj 383 351 *~;
#X obj 347 351 *~;
#X obj 347 377 +~;
#X obj 400 150 *~;
#X obj 364 150 *~;
#X obj 330 150 *~;
#X obj 294 150 *~;
#X obj 294 176 +~;
#X obj 259 210 *~;
#X obj 122 655 *~;
#X obj 431 295 rfft~;
#X obj 455 62 rfft~;
#X obj 561 749 *~;
#X obj 630 574 tabread4~ insamp;
#X obj 806 339 r window-size;
#X obj 884 236 r sample-rate;
#X obj 717 275 f;
#X obj 709 61 r sample-rate;
#X obj 680 34 r window-size;
#X obj 707 115 t b f;
#X obj 680 142 /;
#X obj 596 749 *~;
#X obj 165 542 *~;
#X obj 124 543 *~;
#X obj 121 604 rifft~;
#X obj 123 686 outlet~;
#X obj 735 525 print~;
#X msg 734 492 bang;
#X text 179 604 inverse real FFT;
#X obj 693 247 bang~;
#X obj 607 499 line~;
#X obj 648 639 tabreceive~ hanning-window;
#X obj 680 168 * 1000;
#X text 741 160 window size (msec);
#X obj 709 89 * 4;
#X obj 744 187 r speed;
#X obj 834 188 r location;
#X obj 753 276 +;
#X obj 745 235 *;
#X msg 835 221 0;
#X obj 717 401 +;
#X obj 706 350 t f f;
#X msg 607 466 \$1 \, \$2 \$3;
#X obj 607 434 pack 0 0 0;
#X obj 885 269 / 1000;
#X obj 717 317 *;
#X text 752 318 reading location (samples);
#X obj 749 448 / 4;
#X text 787 454 hop size (samples);
#X obj 664 546 sig~;
#X obj 628 545 +~;
#X obj 591 603 tabread4~ insamp;
#X text 751 97 (overlap times parent SR);
#X text 751 81 local sample rate;
#X obj 27 60 tabreceive~ phase-real;
#X obj 223 210 *~;
#X obj 223 236 +~;
#X obj 223 265 rsqrt~;
#X obj 364 176 -~;
#X obj 272 300 *~;
#X obj 342 300 *~;
#X obj 233 60 tabreceive~ phase-imag;
#X obj 124 448 sig~;
#X obj 104 366 t b f;
#X msg 104 390 1;
#X obj 120 418 /;
#X obj 270 575 tabsend~ phase-real;
#X obj 304 542 tabsend~ phase-imag;
#X obj 122 156 sig~ 1.5e-20;
#X obj 744 212 * 0.01;
#X obj 813 249 s speed;
#X obj 550 295 s see-location;
#X obj 704 727 block~ 2048 4;
#X floatatom 790 423;
#X obj 788 399 *;
#X obj 974 281 r transpo;
#X obj 974 304 * 0.01;
#X obj 976 328 + 69;
#X obj 978 353 mtof;
#X obj 979 376 / 440;
#X obj 811 372 t b f;
#X obj 104 341 r window-size;
#X obj 294 415 leftshift;
#X obj 297 441 rightshift;
#X obj 536 442 sig~;
#X obj 282 471 *~;
#X obj 536 420 r lock;
#X connect 0 0 75 0;
#X connect 0 0 30 1;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 4 0 74 0;
#X connect 4 0 31 1;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 7 0 90 0;
#X connect 7 0 91 0;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 10 0 1 0;
#X connect 10 0 2 0;
#X connect 11 0 66 1;
#X connect 12 0 66 0;
#X connect 13 0 15 1;
#X connect 14 0 15 0;
#X connect 15 0 67 1;
#X connect 15 0 63 0;
#X connect 15 0 63 1;
#X connect 16 0 64 1;
#X connect 17 0 33 0;
#X connect 18 0 6 1;
#X connect 18 0 8 1;
#X connect 18 1 5 1;
#X connect 18 1 9 1;
#X connect 19 0 14 1;
#X connect 19 0 12 1;
#X connect 19 1 11 1;
#X connect 19 1 13 1;
#X connect 20 0 19 0;
#X connect 21 0 29 0;
#X connect 22 0 82 0;
#X connect 23 0 52 0;
#X connect 24 0 45 0;
#X connect 24 0 53 0;
#X connect 24 0 79 0;
#X connect 25 0 42 0;
#X connect 26 0 28 0;
#X connect 27 0 28 0;
#X connect 27 1 28 1;
#X connect 28 0 40 0;
#X connect 29 0 18 0;
#X connect 30 0 32 1;
#X connect 31 0 32 0;
#X connect 32 0 17 0;
#X connect 35 0 34 0;
#X connect 37 0 24 0;
#X connect 38 0 34 0;
#X connect 38 0 58 0;
#X connect 38 0 59 0;
#X connect 39 0 29 1;
#X connect 39 0 20 1;
#X connect 39 0 17 1;
#X connect 40 0 51 2;
#X connect 40 0 46 1;
#X connect 42 0 27 0;
#X connect 43 0 77 0;
#X connect 44 0 47 0;
#X connect 44 0 24 1;
#X connect 45 0 24 1;
#X connect 46 0 45 1;
#X connect 47 0 78 0;
#X connect 48 0 51 1;
#X connect 49 0 51 0;
#X connect 49 1 48 0;
#X connect 50 0 38 0;
#X connect 51 0 50 0;
#X connect 52 0 53 1;
#X connect 53 0 49 0;
#X connect 55 0 57 0;
#X connect 57 0 58 1;
#X connect 58 0 21 0;
#X connect 59 0 20 0;
#X connect 62 0 14 0;
#X connect 62 0 11 0;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 65 0 67 0;
#X connect 65 0 68 0;
#X connect 66 0 68 1;
#X connect 66 0 16 0;
#X connect 66 0 16 1;
#X connect 67 0 6 0;
#X connect 67 0 9 0;
#X connect 68 0 5 0;
#X connect 68 0 8 0;
#X connect 69 0 12 0;
#X connect 69 0 13 0;
#X connect 70 0 31 0;
#X connect 70 0 30 0;
#X connect 71 0 72 0;
#X connect 71 1 73 1;
#X connect 72 0 73 0;
#X connect 73 0 70 0;
#X connect 76 0 15 0;
#X connect 77 0 46 0;
#X connect 81 0 55 0;
#X connect 81 0 48 1;
#X connect 82 0 81 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X connect 85 0 86 0;
#X connect 86 0 87 0;
#X connect 87 0 88 0;
#X connect 88 0 82 0;
#X connect 88 1 82 1;
#X connect 89 0 71 0;
#X connect 90 0 93 0;
#X connect 91 0 93 0;
#X connect 92 0 93 1;
#X connect 92 0 3 1;
#X connect 93 0 4 1;
#X connect 94 0 92 0;
#X restore 81 575 pd fft-analysis;
#X obj 379 216 sig~;
#X obj 379 242 phasor~;
#X obj 379 268 cos~;
#X floatatom 379 190;
#X obj 61 673 dac~;
#X msg 146 613 bang;
#X floatatom 379 109;
#X text 287 101 frequency;
#X text 294 117 in bins;
#X text 296 197 in Hz.;
#X text 197 617 scope;
#X obj 379 296 tabwrite~ insamp;
#N canvas 0 0 600 400 hanning-window 1;
#X restore 564 325 pd hanning-window;
#N canvas 0 0 600 400 in-sample 0;
#X graph graph1 0 -1 441000 1 200 320 600 20;
#X array insamp 441000 float;
#X pop;
#X msg 193 331 \; insamp resize 441000;
#X restore 562 350 pd in-sample;
#N canvas 260 23 647 768 phase-tables 0;
#X graph graph2 0 -1 4096 1 202 641 602 341;
#X array phase-imag 4096 float;
#X pop;
#X graph graph3 0 -1 4096 1 200 320 600 20;
#X array phase-real 4096 float;
#X pop;
#X msg 197 663 \; phase-real resize 4096 \; phase-imag resize 4096;
#X restore 563 377 pd phase-tables;
#X msg 453 267 bang;
#X obj 613 183 loadbang;
#X obj 379 135 *;
#X obj 379 163 /;
#X graph graph1 0 -1 256 1 446 828 846 528;
#X array array1 256 float;
#X pop;
#X obj 147 644 tabwrite~ array1;
#X obj 82 607 hip~ 5;
#X obj 61 637 *~;
#X floatatom 63 457;
#X obj 63 485 dbtorms;
#X obj 62 509 pack 0 100;
#X obj 62 535 line~;
#N canvas 234 11 600 400 loc&precess 0;
#X floatatom 188 269;
#X msg 318 206 set \$1;
#X obj 316 243 outlet;
#X obj 98 314 outlet;
#X obj 201 83 r location;
#X msg 97 277 set \$1;
#X obj 317 175 r speed;
#X obj 65 82 r see-location;
#X obj 79 120 t b f;
#X obj 97 252 f;
#X obj 63 149 int;
#X obj 63 178 sel 0;
#X msg 180 120 1;
#X msg 237 119 0;
#X obj 129 211 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 72 241 pd loc&precess;
#N canvas 0 0 600 400 setlocprecess 0;
#X obj 203 97 inlet;
#X obj 86 94 inlet;
#X obj 199 124 s speed;
#X obj 87 124 s location;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X restore 72 301 pd setlocprecess;
#X msg 23 256 0;
#X msg 285 772 \; array1 resize 256;
#X msg 618 216 \; sample-rate 41100 \; window-size 2048 \; make-window bang;
#X obj 270 302 adc~;
#X obj 109 180 s transpo;
#X msg 193 422 \; insamp read16 /music/snd/mpuckett/sound/HockPwahS2a.snd 62 b;
#X msg 658 96 \; location 4000 \; speed 300;
#X msg 670 30 bang;
#X obj 642 61 delay 150;
#X msg 557 104 \; loction 0 \; speed 0;
#X obj 197 180 s lock;
#X connect 0 0 50 0;
#X connect 1 0 44 0;
#X connect 2 0 3 0;
#X connect 4 0 3 0;
#X connect 5 0 39 1;
#X connect 6 0 39 0;
#X connect 7 0 28 1;
#X connect 8 0 29 1;
#X connect 10 0 32 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 22 0;
#X connect 14 0 11 0;
#X connect 16 0 31 0;
#X connect 17 0 28 0;
#X connect 26 0 22 0;
#X connect 27 0 42 0;
#X connect 28 0 29 0;
#X connect 29 0 14 0;
#X connect 32 0 31 0;
#X connect 32 0 33 1;
#X connect 33 0 15 0;
#X connect 33 0 15 1;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 33 0;
#X connect 38 0 6 0;
#X connect 38 1 5 0;
#X connect 40 0 6 0;
#X connect 43 0 2 0;
#X connect 47 0 46 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
