#N canvas 70 12 852 902 10;
#X msg 83 122 set \$1;
#X floatatom 263 155;
#X floatatom 398 531;
#N canvas 173 153 736 695 fft 0;
#X obj 128 194 *~;
#X obj 88 194 *~;
#X obj 301 148 bang~;
#X obj 301 176 f 0;
#X obj 377 196 phasor~;
#X obj 88 123 *~;
#X obj 377 167 sig~;
#X obj 377 99 r sample-rate;
#X obj 377 133 / 2;
#X obj 375 373 print~;
#X msg 386 345 bang;
#X obj 452 197 sig~ -0.25;
#X obj 375 241 *~;
#X obj 85 372 outlet~;
#X obj 87 65 inlet~;
#X obj 88 159 rfft~;
#X obj 88 228 sqrt~;
#X obj 88 261 *~;
#X obj 484 498 block~ 2048 1;
#X obj 107 93 tabreceive~ hanning-window;
#X obj 136 285 sig~ 0.001;
#X obj 86 311 *~;
#X obj 86 342 rifft~;
#X obj 415 242 sig~ -4;
#X connect 0 0 16 0;
#X connect 1 0 16 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 5 0 15 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 9 0;
#X connect 12 0 17 1;
#X connect 14 0 5 0;
#X connect 15 0 1 0;
#X connect 15 0 1 1;
#X connect 15 1 0 0;
#X connect 15 1 0 1;
#X connect 16 0 17 0;
#X connect 17 0 21 0;
#X connect 19 0 5 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 22 0 13 0;
#X connect 23 0 12 1;
#X restore 153 432 pd fft;
#X msg 365 95 \; sample-rate 44100 \; block-size 2048 \; pitch 0;
#X floatatom 182 154;
#X floatatom 87 153;
#X obj 151 400 hip~ 5;
#X obj 387 405 tabwrite~ insamp;
#X msg 384 367 bang;
#X obj 180 712 dac~;
#N canvas 214 64 961 718 hanning-window 0;
#X obj 117 272 phasor~;
#X obj 117 314 cos~;
#X obj 53 334 -~;
#X obj 51 294 sig~ 1;
#X msg 61 244 0;
#X graph graph1 0 -1 4096 1 501 576 901 276;
#X array hanning-window 4096 float;
#X pop;
#X msg 493 587 \; hanning-window resize 4096;
#X obj 119 138 r sample-rate;
#X obj 254 140 r window-size;
#X obj 146 170 t b f;
#X obj 119 197 /;
#X obj 117 240 sig~;
#X obj 60 66 r make-window;
#X msg 45 170 bang;
#X obj 45 378 tabwrite~ hanning-window;
#X floatatom 217 240;
#X connect 0 0 1 0;
#X connect 1 0 2 1;
#X connect 2 0 14 0;
#X connect 3 0 2 0;
#X connect 4 0 0 1;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 11 0;
#X connect 11 0 0 0;
#X connect 12 0 13 0;
#X connect 13 0 4 0;
#X connect 13 0 14 0;
#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;
#X obj 613 183 loadbang;
#X obj 201 646 hip~ 5;
#X obj 180 676 *~;
#X obj 153 378 adc~;
#X msg 303 445 \; insamp read16 /music/snd/mpuckett/sound/HockPwahS2a.snd 62 b;
#N canvas 283 83 1018 871 regenerate 0;
#X obj 117 528 sig~;
#X obj 84 532 *~;
#X obj 117 503 r invblk;
#X obj 62 579 *~;
#X obj 84 554 clip~ 1 1000;
#X floatatom 82 147;
#X floatatom 277 144;
#X obj 587 473 *~;
#X obj 608 536 sig~;
#X obj 698 431 samphold~;
#X obj 840 431 samphold~;
#X obj 607 426 samphold~;
#X obj 546 431 +~;
#X obj 575 540 *~;
#X obj 557 613 clip~ -0.5 0.5;
#X obj 557 641 cos~;
#X obj 557 669 +~;
#X obj 602 649 sig~ 1;
#X obj 850 485 +~;
#X obj 706 554 -~;
#X obj 687 579 *~;
#X obj 753 614 +~;
#X obj 733 692 *~;
#X obj 800 210 +~;
#X obj 53 465 *~;
#X obj 211 422 samphold~;
#X obj 363 424 samphold~;
#X obj 132 214 sig~;
#X obj 276 287 phasor~;
#X obj 416 227 wrap~;
#X obj 276 253 sig~;
#X obj 280 111 r pitch;
#X obj 276 201 mtof;
#X obj 130 184 r sample-rate;
#X obj 393 195 line~;
#X text 450 191 read location in blocks;
#X obj 392 293 -~;
#X text 467 224 fractional part;
#X text 423 293 integer part;
#X obj 132 247 /~;
#X obj 134 303 sig~ 1;
#X text 130 321 spectral stretch;
#X obj 112 347 *~;
#X obj 83 419 samphold~;
#X obj 399 320 sig~ 0.5;
#X obj 479 347 sig~;
#X obj 392 353 *~;
#X text 341 442 middle of block;
#X obj 516 46 t b f;
#X obj 516 100 /;
#X obj 516 70 1;
#X obj 21 347 sig~ -0.5;
#X obj 37 419 +~;
#X obj 64 610 clip~ -0.5 0.5;
#X obj 64 638 cos~;
#X obj 64 666 +~;
#X obj 109 646 sig~ 1;
#X obj 368 495 +~;
#X obj 216 562 -~;
#X obj 194 589 *~;
#X obj 203 617 +~ ;
#X obj 181 687 *~;
#X text 85 457 offset into;
#X text 98 470 sample;
#X text 38 254 samples;
#X text 37 238 period in;
#X obj 821 183 sig~ 0.5;
#X text 219 442 weight for;
#X text 218 455 next block;
#X obj 800 241 wrap~;
#X obj 516 128 s invblk;
#X text 514 148 one over block size;
#X obj 608 511 r invblk;
#X obj 367 782 send~ outsig;
#X floatatom 392 130;
#X obj 393 161 pack 0 100;
#X obj 516 17 r window-size;
#X obj 479 318 r window-size;
#X obj 85 114 r specshift;
#X obj 216 526 tabread4~ insamp;
#X obj 368 528 tabread4~ insamp;
#X obj 706 518 tabread4~ insamp;
#X obj 850 518 tabread4~ insamp;
#X text 145 348 grain size in samples;
#X obj 393 96 r loco;
#X obj 856 614 print~;
#X msg 871 589 bang;
#X obj 555 586 *~;
#X obj 575 562 clip~ 1 1000;
#X text 114 434 grain;
#X obj 276 176 - 12;
#X connect 0 0 1 1;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 3 0 53 0;
#X connect 4 0 3 1;
#X connect 5 0 40 0;
#X connect 6 0 90 0;
#X connect 7 0 18 0;
#X connect 8 0 13 1;
#X connect 9 0 20 0;
#X connect 10 0 18 1;
#X connect 11 0 7 1;
#X connect 11 0 13 0;
#X connect 12 0 7 0;
#X connect 12 0 87 0;
#X connect 13 0 88 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 22 0;
#X connect 17 0 16 1;
#X connect 18 0 81 0;
#X connect 18 0 82 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 73 0;
#X connect 23 0 69 0;
#X connect 24 0 57 0;
#X connect 25 0 59 0;
#X connect 26 0 57 1;
#X connect 27 0 39 0;
#X connect 28 0 43 1;
#X connect 28 0 26 1;
#X connect 28 0 52 1;
#X connect 28 0 25 1;
#X connect 28 0 23 0;
#X connect 29 0 36 1;
#X connect 29 0 25 0;
#X connect 29 0 9 0;
#X connect 30 0 28 0;
#X connect 30 0 39 1;
#X connect 31 0 6 0;
#X connect 32 0 30 0;
#X connect 33 0 27 0;
#X connect 34 0 29 0;
#X connect 34 0 36 0;
#X connect 36 0 46 0;
#X connect 39 0 42 0;
#X connect 40 0 42 1;
#X connect 42 0 43 0;
#X connect 42 0 11 0;
#X connect 43 0 24 1;
#X connect 43 0 1 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 45 0 79 0;
#X connect 45 0 81 0;
#X connect 46 0 26 0;
#X connect 46 0 10 0;
#X connect 48 0 50 0;
#X connect 48 1 49 1;
#X connect 49 0 70 0;
#X connect 50 0 49 0;
#X connect 51 0 52 0;
#X connect 51 0 12 0;
#X connect 52 0 24 0;
#X connect 52 0 3 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 55 0 61 0;
#X connect 56 0 55 1;
#X connect 57 0 79 0;
#X connect 57 0 80 0;
#X connect 58 0 59 1;
#X connect 59 0 60 0;
#X connect 60 0 61 1;
#X connect 61 0 73 0;
#X connect 66 0 23 1;
#X connect 69 0 12 1;
#X connect 69 0 11 1;
#X connect 69 0 9 1;
#X connect 69 0 10 1;
#X connect 72 0 8 0;
#X connect 74 0 75 0;
#X connect 75 0 34 0;
#X connect 76 0 48 0;
#X connect 77 0 45 0;
#X connect 78 0 5 0;
#X connect 79 0 58 0;
#X connect 80 0 58 1;
#X connect 80 0 60 1;
#X connect 81 0 19 0;
#X connect 82 0 19 1;
#X connect 82 0 21 1;
#X connect 84 0 74 0;
#X connect 86 0 85 0;
#X connect 87 0 14 0;
#X connect 88 0 87 1;
#X connect 90 0 32 0;
#X restore 400 252 pd regenerate;
#X obj 254 579 receive~ outsig;
#X obj 396 663 tabread4~ insamp;
#X obj 402 630 line~;
#X msg 401 597 0 \, 441000 10000;
#X obj 110 606 line~;
#X obj 401 560 metro 2000;
#X obj 89 181 s specshift;
#X obj 265 183 s loco;
#X obj 184 182 s pitch;
#X msg 274 57 0 \, 100 10000;
#X obj 263 126 line;
#X msg 619 217 \; sample-rate 44100 \; window-size 2048 \; make-window bang \; pitch 60 \; specshift 1 \;;
#X obj 182 102 r pitch;
#X msg 182 127 set \$1;
#X obj 83 97 r specshift;
#X msg 288 89 0;
#X floatatom 691 80;
#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 691 52 pd output;
#X msg 691 24 mute;
#X text 734 71 MASTER;
#X text 733 87 LEVEL;
#X obj 691 108 s master-lvl;
#X obj 113 572 r master-amp;
#X connect 0 0 6 0;
#X connect 1 0 26 0;
#X connect 2 0 24 0;
#X connect 3 0 8 0;
#X connect 5 0 27 0;
#X connect 6 0 25 0;
#X connect 7 0 3 0;
#X connect 9 0 8 0;
#X connect 13 0 30 0;
#X connect 14 0 15 1;
#X connect 15 0 10 0;
#X connect 15 0 10 1;
#X connect 16 0 7 0;
#X connect 19 0 14 0;
#X connect 21 0 20 0;
#X connect 22 0 21 0;
#X connect 23 0 15 0;
#X connect 24 0 22 0;
#X connect 28 0 29 0;
#X connect 29 0 1 0;
#X connect 31 0 32 0;
#X connect 32 0 5 0;
#X connect 33 0 0 0;
#X connect 34 0 29 0;
#X connect 35 0 40 0;
#X connect 36 0 35 0;
#X connect 37 0 36 0;
#X connect 41 0 23 0;
