#N canvas 956 253 766 822 12;
#X obj 85 117 soundfiler;
#N canvas 0 22 450 300 (subpatch) 0;
#X array array1 441000 float 2;
#X coords 0 1 440999 -1 200 140 1;
#X restore 297 19 graph;
#X obj 85 64 openpanel;
#X obj 85 43 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 88 278 phasor~;
#X obj 257 187 hsl 200 10 0 1 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 257 205 hsl 200 10 0 1 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 89 356 *~;
#X obj 90 448 +~;
#X floatatom 88 253 5 0 0 0 - - -;
#X obj 150 419 -~;
#X obj 179 340 sig~;
#X obj 226 372 sig~;
#X obj 90 479 *~ 441000;
#X obj 90 506 tabread4~ array1;
#X obj 90 581 *~;
#X obj 90 690 dac~;
#X obj 227 631 tabwrite~ array2;
#N canvas 0 22 450 300 (subpatch) 0;
#X array array2 10000 float 2;
#X coords 0 1 10000 -1 200 140 1;
#X restore 314 403 graph;
#X obj 238 606 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 81 22 load sound file;
#X text 87 228 playback frequency;
#X text 312 168 lower threshold (in hundreths);
#X text 253 333 upper threshold (in hundreths);
#X text 237 583 graph;
#X text 308 549 Array has 10000 Points;
#X obj 116 144 expr 44100 / $f1;
#X floatatom 120 176 8 0 0 0 - - -;
#X msg 10 175 set \$1;
#X msg 9 218 0.0752837;
#X floatatom 24 141 8 0 0 0 - - -;
#X msg 85 90 read -resize \$1 array1;
#X obj 110 560 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X connect 0 0 30 0;
#X connect 2 0 31 0;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 5 0 11 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 13 0;
#X connect 9 0 4 0;
#X connect 10 0 7 1;
#X connect 11 0 10 1;
#X connect 11 0 8 1;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 15 0 16 0;
#X connect 15 0 16 1;
#X connect 19 0 17 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 4 0;
#X connect 30 0 26 0;
#X connect 31 0 0 0;
#X connect 32 0 15 1;