[PD] a simple recording/looping solution ?

[stephane]

Dear list, thanks for your answers.

Here I made a simple looping station. Can you have a look and give a 
feedback ?
Thanks

.sr

#N canvas 26 -1 701 780 12;
#X floatatom 123 682 0 0 0 0 - - -;
#N canvas 159 26 495 266 output 0;
#X obj 406 192 t b;
#X obj 406 132 f;
#X obj 406 72 inlet;
#X text 413 35 mute;
#X obj 406 222 f;
#X msg 510 214 0;
#X msg 406 102 bang;
#X obj 406 162 moses 1;
#X obj 510 184 t b f;
#X obj 476 140 moses 1;
#X obj 100 178 dbtorms;
#X obj 476 110 r master-lvl;
#X obj 100 50 r master-lvl;
#X obj 406 252 s master-lvl;
#X obj 26 217 inlet~;
#X obj 239 49 inlet;
#X text 239 22 level;
#X obj 239 120 s master-lvl;
#X msg 115 78 set \$1;
#X obj 115 107 outlet;
#X msg 257 77 \; pd dsp 1;
#X obj 100 233 line~;
#X obj 26 254 *~;
#X obj 26 289 dac~;
#X obj 100 205 pack 0 50;
#X text 24 190 audio;
#X text 112 132 show level;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 13 0;
#X connect 5 0 13 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 9 1 4 1;
#X connect 10 0 24 0;
#X connect 11 0 1 1;
#X connect 11 0 9 0;
#X connect 12 0 10 0;
#X connect 12 0 18 0;
#X connect 14 0 22 0;
#X connect 15 0 17 0;
#X connect 15 0 20 0;
#X connect 18 0 19 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 22 0 23 1;
#X connect 24 0 21 0;
#X restore 88 716 pd output;
#X msg 166 690 MUTE;
#X obj 88 647 hip~ 5;
#X obj 88 517 *~ 0;
#X obj 88 547 +~ 1;
#X obj 222 402 * 44.1;
#X obj 186 267 t b b;
#X obj 221 435 f;
#X msg 221 463 \$1;
#X msg 186 464 0;
#X obj 126 399 f;
#X obj 68 267 t b b b b b;
#X obj 68 213 r stop;
#X obj 168 212 r record;
#X msg -159 12 \; record bang;
#X msg -158 76 \; stop stop;
#N canvas 505 227 478 328 phase 0;
#X obj 52 242 vline~;
#X obj 52 91 metro;
#X msg 52 184 1 \$1;
#X obj 52 29 inlet;
#X obj 217 99 inlet;
#X text 53 4 bang;
#X text 215 75 time in ms;
#X obj 52 152 f;
#X obj 52 279 outlet~;
#X msg 21 216 0 0;
#X obj 52 120 t b b;
#X obj 129 30 inlet;
#X msg 129 64 stop;
#X connect 0 0 8 0;
#X connect 1 0 10 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 1 1;
#X connect 4 0 7 1;
#X connect 7 0 2 0;
#X connect 9 0 0 0;
#X connect 10 0 7 0;
#X connect 10 1 9 0;
#X connect 11 0 12 0;
#X connect 11 0 9 0;
#X connect 12 0 1 0;
#X restore 88 433 pd phase;
#N canvas 357 98 454 304 counter 0;
#X floatatom 111 223 0 0 0 0 - - -;
#X msg 33 55 bang;
#X obj 111 178 + 1;
#X obj 33 112 metro 1;
#X msg 110 111 0;
#X obj 33 177 f;
#X obj 33 2 inlet;
#X obj 110 1 inlet;
#X obj 111 272 outlet;
#X msg 43 85 stop;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 2 0 5 1;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 4 0;
#X connect 7 0 9 0;
#X connect 9 0 3 0;
#X restore 222 341 pd counter;
#N canvas 627 442 494 344 record 0;
#X obj 166 128 hip~ 5;
#X obj 138 72 r stop;
#X obj 62 72 r record;
#X obj 166 164 tabwrite~ loop;
#X obj 166 189 table loop;
#X obj 21 140 r loop_size;
#X msg 21 173 \; loop resize \$1;
#X obj 166 101 adc~ 2;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 5 0 6 0;
#X connect 7 0 0 0;
#X restore 129 160 pd record;
#X obj 88 584 tabread4~ loop;
#X floatatom 128 61 0 0 0 0 - - -;
#X obj 128 121 s loop_size;
#X obj 128 93 * 44.1;
#X text -197 433 Make a ramp with a [vline~] object;
#X obj 30 399 r loop_stop;
#X msg -158 137 \; loop_stop bang;
#X text -218 21 Record;
#X text -206 84 Play;
#X text -204 145 Stop;
#X text -159 -8 Start recording;
#X text -158 58 Stop recording and play a loop;
#X text -161 119 Stop playing only;
#X obj 128 3 loadbang;
#X msg 128 32 10000;
#X text 205 75 You can't record over this amount;
#X text 189 60 < Set the max lenght of the loop in ms.;
#X text 211 161 Here is the array. !Set the good input chanel in;
#X text 213 177 the [adc~] object!;
#X text 230 381 in ms \, and in samples;
#X text 229 364 Calculate the lenght of the recorded loop \,;
#X connect 0 0 1 1;
#X connect 1 0 0 0;
#X connect 2 0 1 2;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 20 0;
#X connect 6 0 8 1;
#X connect 7 0 10 0;
#X connect 7 1 18 0;
#X connect 8 0 9 0;
#X connect 9 0 4 1;
#X connect 10 0 4 1;
#X connect 11 0 17 2;
#X connect 12 1 17 0;
#X connect 12 2 18 1;
#X connect 12 3 8 0;
#X connect 12 4 11 0;
#X connect 13 0 12 0;
#X connect 14 0 7 0;
#X connect 17 0 4 0;
#X connect 18 0 6 0;
#X connect 18 0 11 1;
#X connect 20 0 3 0;
#X connect 21 0 23 0;
#X connect 23 0 22 0;
#X connect 25 0 17 1;
#X connect 33 0 34 0;
#X connect 34 0 21 0;

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: simple_loop_station.pd
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20041026/bb6db328/attachment.txt>