pd-experiments/rotating-recorder.pd

95 lines
2.4 KiB
Plaintext

#N canvas 666 129 776 583 12;
#X obj 520 28 table buffer;
#X obj 251 128 samplerate~;
#X obj 255 363 tabwrite~ buffer;
#X obj 381 312 metro, f 7;
#X obj 427 176 samplerate~;
#X obj 427 201 / 64;
#X obj 427 226 / 1000;
#X obj 381 337 f;
#X obj 254 323 adc~;
#X msg 315 233 bang;
#X msg 254 235 stop;
#X obj 427 108 loadbang;
#X msg 398 286 0;
#X obj 254 259 t a a;
#X msg 251 186 \; buffer resize \$1 \; buffer_length \$1;
#X obj 519 56 v buffer_length;
#X obj 316 257 t b b b b;
#X obj 413 423 v record_head;
#X obj 501 113 bng 15 250 50 0 empty empty reinit 17 7 0 10 -262144
-1 -1;
#X obj 381 387 t f f;
#X obj 381 451 expr $f1>=buffer_length;
#X obj 381 476 sel 1;
#X obj 251 153 expr $f1*10;
#X obj 381 501 t b b;
#X msg 413 527 0;
#X obj 413 552 s counter;
#X obj 440 317 r counter;
#X msg 321 527 stop \, bang;
#X obj 90 369 tabplay~ buffer;
#X obj 90 394 dac~;
#X obj 115 303 v record_head;
#X obj 115 279 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 192 149 10 secs;
#X msg 47 73 stop;
#X obj 47 98 s stop;
#X msg 98 72 bang;
#X obj 98 97 s start;
#X obj 64 309 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 437 280 \; buffer const 0;
#X obj 192 394 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 175 496 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 175 516 v record_head;
#X floatatom 175 541 10 0 0 0 - - -;
#X msg 115 328 300000 441000;
#X obj 381 362 + 32;
#X text 208 84 TODO cleanup \, fix rotating playhead \, saving;
#X connect 1 0 22 0;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 3 1;
#X connect 7 0 44 0;
#X connect 8 0 2 0;
#X connect 9 0 16 0;
#X connect 10 0 13 0;
#X connect 11 0 4 0;
#X connect 11 0 1 0;
#X connect 12 0 7 1;
#X connect 13 0 2 0;
#X connect 13 1 3 0;
#X connect 16 0 2 0;
#X connect 16 1 3 0;
#X connect 16 2 12 0;
#X connect 16 3 38 0;
#X connect 18 0 4 0;
#X connect 18 0 1 0;
#X connect 19 0 20 0;
#X connect 19 1 17 0;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 22 0 14 0;
#X connect 23 0 27 0;
#X connect 23 1 24 0;
#X connect 24 0 25 0;
#X connect 26 0 7 1;
#X connect 27 0 2 0;
#X connect 28 0 29 0;
#X connect 28 1 39 0;
#X connect 30 0 43 0;
#X connect 31 0 30 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X connect 37 0 28 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 43 0 28 0;
#X connect 44 0 7 1;
#X connect 44 0 19 0;