1 tplarson 1.1 #N canvas 1 54 1351 686 10;
2 #X msg 633 71 set \$1;
3 #X msg 633 107 1079-output;
4 #X obj 332 168 until;
5 #X obj 332 196 f;
6 #X obj 363 198 + 1;
7 #X obj 407 198 sel 0;
8 #X obj 511 278 tabread;
9 #X obj 254 72 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
10 -1;
11 #X obj 277 107 float;
12 #X obj 254 29 inlet;
13 #X obj 633 35 inlet;
14 #X obj 71 453 soundfiler;
15 #X obj 308 357 tabwrite \$1;
16 #X obj 71 305 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
17 -1;
18 #X text 107 311 save array to WAVE file;
19 #X obj 71 369 list append;
20 #X obj 145 340 r play-SR;
21 #X obj 71 343 symbol \$1;
22 tplarson 1.1 #X msg 254 131 -1;
23 #X obj 551 38 inlet;
24 #X floatatom 551 69 5 0 0 0 - - -, f 5;
25 #X obj 382 291 +;
26 #X msg 71 414 write -wave -bytes 3 -rate \$2 ./rec_audio/modecat \$1
27 ;
28 #X obj 401 45 r nsamples;
29 #X obj 401 131 min;
30 #X obj 401 74 t b f;
31 #X obj 373 21 r block-size;
32 #X connect 0 0 1 0;
33 #X connect 0 0 6 0;
34 #X connect 2 0 3 0;
35 #X connect 3 0 4 0;
36 #X connect 4 0 5 0;
37 #X connect 4 0 3 1;
38 #X connect 4 0 6 0;
39 #X connect 4 0 21 0;
40 #X connect 5 0 2 1;
41 #X connect 6 0 12 0;
42 #X connect 7 0 8 0;
43 tplarson 1.1 #X connect 7 0 18 0;
44 #X connect 8 0 2 0;
45 #X connect 9 0 7 0;
46 #X connect 10 0 0 0;
47 #X connect 13 0 17 0;
48 #X connect 15 0 22 0;
49 #X connect 16 0 15 1;
50 #X connect 17 0 15 0;
51 #X connect 18 0 3 1;
52 #X connect 19 0 20 0;
53 #X connect 20 0 21 1;
54 #X connect 21 0 12 1;
55 #X connect 22 0 11 0;
56 #X connect 23 0 25 0;
57 #X connect 24 0 5 1;
58 #X connect 24 0 8 1;
59 #X connect 25 0 24 0;
60 #X connect 25 1 24 1;
61 #X connect 26 0 24 0;
|