recordsound~.pd

#N canvas 286 208 666 507 10;
#X obj 66 476 writesf~ 2;
#X obj 238 321 f \$0;
#X obj 238 343 makefilename %%s-%d.aif;
#X msg 238 365 set \$1;
#X obj 211 387 makefilename not-yet-set;
#X obj 211 204 t b b;
#X obj 268 321 + 1;
#X obj 211 226 savepanel;
#X obj 211 248 symbol;
#X obj 168 289 symbol;
#X obj 168 269 t b b;
#X obj 211 180 sel 0;
#X obj 211 158 f 0;
#X msg 242 159 1;
#X msg 361 123 0;
#X text 408 67 this mechanism will open the save panel \; only on the
first time \; then it will make unique file names \; so you won't overwrite
old files;
#X obj 66 57 inlet~;
#X obj 123 57 inlet~;
#X text 174 8 THIS PATCH WILL RECORD INTO STEREO FILES.;
#X text 174 28 Kinda a "wrapper" for [writesf~];
#X obj 211 56 inlet controls;
#X obj 211 78 route bang start stop rename;
#X obj 334 100 t b b;
#X msg 241 100 start;
#X msg 291 100 stop;
#X obj 211 409 symbol;
#X msg 211 431 open \$1;
#X obj 211 453 print;
#X connect 1 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 25 0;
#X connect 5 0 7 0;
#X connect 5 1 1 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 4 0;
#X connect 8 0 9 1;
#X connect 9 0 4 0;
#X connect 10 0 9 0;
#X connect 10 1 1 0;
#X connect 11 0 5 0;
#X connect 11 0 13 0;
#X connect 11 1 10 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 14 0 12 1;
#X connect 16 0 0 0;
#X connect 17 0 0 1;
#X connect 20 0 21 0;
#X connect 21 0 12 0;
#X connect 21 1 23 0;
#X connect 21 2 24 0;
#X connect 21 3 22 0;
#X connect 22 0 12 0;
#X connect 22 1 14 0;
#X connect 23 0 0 0;
#X connect 24 0 0 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 0 0 0;