Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 108 lines (107 sloc) 2.83 KB
#N canvas 125 160 1120 526 10;
#X obj 24 265 inlet~;
#X obj 379 122 f 0;
#X obj 412 123 + 1;
#X msg 328 422 start;
#X msg 277 423 stop;
#X obj 723 302 outlet number written;
#X text 445 488 << the argument 1 means it will record a single channel
file (mono).;
#X text 635 138 << each bang here increment a counter and the value
of this is appended to the current file name using [makefilename] which
can substitute numerical values into a string like the C _printf_ statement
does.;
#X text -124 187 as soon as the file is ready to be written a _start_
message is sent to [writesf~] and a bang to the [delay] which waits
for a period given by the first argument before stopping [writesf~]
>>>;
#X obj 277 13 inlet toggle;
#X obj 277 40 route 0 1;
#X obj 328 82 t b b;
#X floatatom 379 79 5 0 0 0 - - -;
#X msg 398 450 stop \, open -bytes 3 \$1;
#X obj 574 59 path.getdir.parent;
#X obj 506 4 loadbang;
#X obj 529 160 mergefilename /;
#X obj 529 112 pack s s;
#X obj 506 29 t b b;
#X obj 506 77 symbol \$1;
#X msg 529 135 \$2 \$1;
#X obj 496 192 symbol;
#X obj 379 148 t f f b;
#X obj 398 426 mergefilename /;
#X obj 398 378 pack s s;
#X msg 398 401 \$2 \$1;
#X obj 496 221 makefilename %s;
#X obj 277 486 writesf~ 1;
#X text 597 86 << takes the 1st argument given in the abstraction to
write the file into the right folder;
#N canvas 1114 179 450 300 timestamp 0;
#X obj 186 71 time;
#X obj 186 118 mergefilename .;
#X obj 186 96 pack f f f;
#X obj 63 121 mergefilename .;
#X obj 63 99 pack f f f;
#X obj 63 74 date;
#X obj 63 159 pack s s;
#X obj 63 181 mergefilename _;
#X obj 63 207 outlet;
#X obj 63 19 inlet;
#X obj 63 45 t b b;
#X connect 0 0 2 0;
#X connect 0 1 2 1;
#X connect 0 2 2 2;
#X connect 1 0 6 1;
#X connect 2 0 1 0;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 4 1;
#X connect 5 2 4 2;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 10 0 5 0;
#X connect 10 1 0 0;
#X restore 443 246 pd timestamp;
#X obj 398 196 t f b;
#X obj 398 271 pack s s;
#X obj 398 224 makefilename %d;
#X obj 398 319 mergefilename _;
#X obj 398 356 makefilename take_%s.wav;
#X connect 0 0 27 0;
#X connect 1 0 2 0;
#X connect 1 0 22 0;
#X connect 2 0 1 1;
#X connect 3 0 27 0;
#X connect 4 0 27 0;
#X connect 9 0 10 0;
#X connect 10 0 4 0;
#X connect 10 1 11 0;
#X connect 11 0 3 0;
#X connect 11 1 1 0;
#X connect 12 0 1 0;
#X connect 13 0 27 0;
#X connect 14 0 17 1;
#X connect 15 0 18 0;
#X connect 16 0 21 1;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 18 1 14 0;
#X connect 19 0 17 0;
#X connect 20 0 16 0;
#X connect 21 0 26 0;
#X connect 22 0 5 0;
#X connect 22 1 30 0;
#X connect 22 2 21 0;
#X connect 23 0 13 0;
#X connect 24 0 25 0;
#X connect 25 0 23 0;
#X connect 26 0 24 1;
#X connect 29 0 31 1;
#X connect 30 0 32 0;
#X connect 30 1 29 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 24 0;