#N canvas 627 235 791 845 12;
#N canvas 0 0 450 300 graph1 0;
#X array array1 62079 float 2;
#X coords 0 1 62079 -1 200 140 1;
#X restore 291 29 graph;
#X obj 290 220 soundfiler;
#X floatatom 290 246 5 0 0 0 - - -;
#X obj 290 272 expr 44100 / $f1;
#X obj 290 329 *~;
#X obj 290 303 phasor~;
#X obj 47 370 phasor~;
#X floatatom 47 345 5 0 0 0 - - -;
#X obj 46 512 *~ 256;
#X msg 290 190 read -resize voice.wav array1;
#X obj 290 507 samphold~;
#X obj 47 628 tabread4~ array1;
#X obj 47 593 +~;
#X obj 47 672 dac~;
#X text 538 194 load sound file;
#X text 342 246 size of sound file;
#X text 357 303 runs at original speed;
#X text 45 325 playback speed you want;
#X text 104 502 window \, here 256;
#X text 103 519 samples in size;
#X text 33 26 3.7.1.1. Granular Theory 2;
#X text 484 713 www.pd-tutorial.com;
#X text 493 681 Johannes Kreidler;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 5 0;
#X connect 4 0 10 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 6 0 10 1;
#X connect 7 0 6 0;
#X connect 8 0 12 0;
#X connect 9 0 1 0;
#X connect 10 0 12 1;
#X connect 11 0 13 0;
#X connect 11 0 13 1;
#X connect 12 0 11 0;