/abs/mis.infrec~.pd

#N canvas 109 66 915 702 10;
#X obj 319 256 writesf~;
#X msg 326 233 open \$1;
#X msg 40 123 start;
#X msg 88 124 stop;
#X obj 40 198 timer;
#X obj 137 273 samplerate~;
#X obj 40 219 t f b;
#X obj 137 296 * 0.001;
#X obj 49 327 *;
#X floatatom 49 353 8 0 0 0 - - -;
#X obj 40 149 t b a;
#N canvas 0 22 820 496 (subpatch) 0;
#X array \$1 768 float 2;
#X coords 0 1 768 -1 300 80 1;
#X restore 0 29 graph;
#X obj 50 446 pack s f;
#X msg 50 476 \; \$1 resize \$2;
#N canvas 502 74 450 300 faster 0;
#X obj 137 185 readsf~;
#X obj 82 36 inlet;
#X msg 137 104 open \$1;
#X obj 82 62 t b a;
#X msg 77 155 1;
#X obj 51 126 t b b b;
#X obj 291 208 block~ 1024 1 16;
#X obj 46 105 delay 100;
#X obj 116 242 tabwrite~ \$1;
#X obj 227 251 outlet;
#X obj 33 251 outlet;
#X text 34 229 dummy;
#X connect 0 0 8 0;
#X connect 0 1 9 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 7 0;
#X connect 3 1 2 0;
#X connect 4 0 0 0;
#X connect 5 1 4 0;
#X connect 5 2 8 0;
#X connect 7 0 5 0;
#X restore 253 374 pd faster;
#X obj 87 149 t b b a;
#X obj 253 260 symbol;
#X obj 51 372 t b f f;
#X obj 319 21 inlet;
#X obj 199 570 outlet;
#X obj 50 415 makesymbol \$1;
#X obj 0 13 cnv 15 300 15 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 346 170 pack f f f f f f;
#X obj 346 106 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 347 190 l2s;
#X msg 529 167 symbol;
#X obj 346 125 t b b b;
#X obj 319 42 route record;
#X obj 319 63 sel 1 0;
#X obj 319 82 t b b;
#X obj 264 132 symbol \$1;
#X obj 264 152 s2l _;
#X obj 264 112 loadbang;
#X msg 264 173 \$1;
#X obj 264 193 prepend set;
#X obj 278 216 r~;
#X text 358 297 1st argument: receive. Must be named with underscore.
The first part (before '_') is the audio receive (usually taken from
the audio sending channel somewhere in the parent patch) and the entire
name (<audio>_<identifier>) will be used for array name. Thus the arrays
are accessible from the parent or otherwise outside world by the full
name.;
#X text 358 370 2nd argument: throw~ bus name.;
#X obj 353 396 prepend set;
#X msg 351 418 open ../snd/pdtmp-20111215211913.wav;
#X obj 403 148 time;
#X obj 346 148 date;
#X obj 326 211 makefilename ../snd/pdtmp-%s.wav;
#X text 522 200 TODO: fix this \, make path to file dynamically selectable
or something;
#X text 178 536 length of buffer in samples;
#X obj 161 519 prepend length;
#X obj 313 453 route open;
#X obj 313 477 prepend filename;
#X obj 430 565 outlet;
#X text 454 544 bangs when the array is filled;
#X connect 1 0 0 0;
#X connect 1 0 38 0;
#X connect 1 0 46 0;
#X connect 2 0 10 0;
#X connect 3 0 15 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 6 1 5 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 17 0;
#X connect 10 0 4 0;
#X connect 10 1 0 0;
#X connect 12 0 13 0;
#X connect 14 1 48 0;
#X connect 15 0 16 0;
#X connect 15 1 4 1;
#X connect 15 2 0 0;
#X connect 16 0 14 0;
#X connect 17 0 20 0;
#X connect 17 1 12 1;
#X connect 17 2 45 0;
#X connect 18 0 27 0;
#X connect 20 0 12 0;
#X connect 22 0 24 0;
#X connect 23 0 26 0;
#X connect 24 0 42 0;
#X connect 25 0 24 1;
#X connect 26 0 41 0;
#X connect 26 1 40 0;
#X connect 26 2 25 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 1 3 0;
#X connect 29 0 2 0;
#X connect 29 1 23 0;
#X connect 30 0 31 0;
#X connect 31 0 33 0;
#X connect 32 0 30 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 0 0;
#X connect 38 0 39 0;
#X connect 40 0 22 3;
#X connect 40 1 22 4;
#X connect 40 2 22 5;
#X connect 41 0 22 0;
#X connect 41 1 22 1;
#X connect 41 2 22 2;
#X connect 42 0 1 0;
#X connect 42 0 16 1;
#X connect 45 0 19 0;
#X connect 46 0 47 0;
#X connect 47 0 19 0;
#X coords 0 -1 1 1 300 110 1 0 0;