#N canvas 1 52 1265 635 10;
#X msg 633 124 set \$1;
#X msg 633 160 sum2;
#X obj 332 168 until;
#X obj 332 196 f;
#X obj 363 198 + 1;
#X obj 407 198 sel 0;
#X obj 511 278 tabread;
#X obj 254 72 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 277 107 float;
#X obj 254 29 inlet;
#X obj 633 35 inlet;
#X obj 71 453 soundfiler;
#X obj 308 357 tabwrite \$1;
#X obj 71 305 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X text 107 311 save array to WAVE file;
#X obj 71 369 list append;
#X obj 145 340 r play-SR;
#X obj 71 343 symbol \$1;
#X msg 254 131 -1;
#X obj 551 38 inlet;
#X floatatom 551 69 5 0 0 0 - - -, f 5;
#X obj 382 291 +;
#X obj 401 45 r nsamples;
#X obj 401 116 min;
#X obj 401 74 t b f;
#X obj 373 21 r block-size;
#X obj 425 163 - 1;
#X obj 478 341 outlet;
#X msg 71 414 write -wave -bytes 4 -rate \$2 ./wav_out/modecat \$1
;
#X obj 633 68 list prepend symbol;
#X obj 633 95 route list;
#X connect 0 0 1 0;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 3 1;
#X connect 4 0 6 0;
#X connect 4 0 21 0;
#X connect 5 0 2 1;
#X connect 5 0 27 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 7 0 18 0;
#X connect 8 0 2 0;
#X connect 9 0 7 0;
#X connect 10 0 29 0;
#X connect 13 0 17 0;
#X connect 15 0 28 0;
#X connect 16 0 15 1;
#X connect 17 0 15 0;
#X connect 18 0 3 1;
#X connect 19 0 20 0;
#X connect 20 0 21 1;
#X connect 21 0 12 1;
#X connect 22 0 24 0;
#X connect 23 0 8 1;
#X connect 23 0 26 0;
#X connect 24 0 23 0;
#X connect 24 1 23 1;
#X connect 25 0 23 0;
#X connect 26 0 5 1;
#X connect 28 0 11 0;
#X connect 29 0 30 0;
#X connect 30 0 0 0;