[PD] real-time sampler

kristof lauwers kristof.lauwers at logosfoundation.org
Tue Nov 19 16:08:10 CET 2002


At 14:00 18-11-02 +0000, matthew jones wrote:
>Hi,
>being new to Pd I would well appreciate any source for a real-time 
>sampler/looper that anyone has lying around.  The kind of thing that 
>records until it receives a (say MIDI) message, then loops that buffer.

Hi,

first post here - i'm relatively new to pd
here's a sampler/looper with pitch control i made. it's keyboard controlled 
(see comments in patch)  but translating to midi shouldn't be too hard..
the patch is not really optimal. the copies of the same subpatch could be 
replaced by one subpatch with $0
but maybe it can be maybe it's  usefull to you..

regards,

kristof




____________________________________

kristof.lauwers at logosfoundation.org

new url!! http://kristoflauwers.de.vu
____________________________________
-------------- next part --------------
#N canvas 1 0 1115 712 12;
#N canvas 0 0 450 300 graph1 0;
#X array trnc1 441000 float 0;
#X coords 0 1 440999 -1 200 140 1;
#X restore 47 386 graph;
#N canvas 0 0 450 300 graph1 0;
#X array trnc2 308700 float 0;
#X coords 0 1 308699 -1 200 140 1;
#X restore 294 386 graph;
#N canvas 0 0 450 300 graph1 0;
#X array trnc3 264600 float 0;
#X coords 0 1 264599 -1 200 140 1;
#X restore 539 386 graph;
#N canvas 0 0 450 300 graph2 0;
#X array trnc4 176400 float 0;
#X coords 0 1 176399 -1 200 140 1;
#X restore 48 538 graph;
#X obj 81 183 vsl 15 100 0.02 32 0 0 svol1 vol1 empty 0 -8 192 8 -206426
-241291 -1 1232 1;
#X obj 212 183 vsl 15 100 0.02 32 0 0 svol2 vol2 empty 0 -8 192 8 -206426
-241291 -1 1232 1;
#X obj 344 183 vsl 15 100 0.02 32 0 0 svol3 vol3 empty 0 -8 192 8 -206426
-241291 -1 0 1;
#X obj 478 189 vsl 15 100 0.02 32 0 0 svol4 vol4 empty 0 -8 192 8 -206426
-241291 -1 997 1;
#X obj 609 191 vsl 15 100 0.02 32 0 0 svol5 vol5 empty 0 -8 192 8 -206426
-241291 -1 1232 1;
#N canvas 0 0 450 300 graph1 0;
#X array trnc5 132300 float 0;
#X coords 0 1 132299 -1 200 140 1;
#X restore 295 537 graph;
#N canvas 170 179 474 324 record 0;
#N canvas 435 132 762 549 rec1 0;
#X obj 258 55 r upd1;
#X obj 263 95 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 238 133 *~;
#X obj 192 56 inlet~;
#X obj 239 178 env~;
#X floatatom 272 254 5 0 0;
#X obj 206 218 moses 50;
#X obj 328 59 inlet;
#X msg 249 296 bang \; upd1 0;
#X obj 384 157 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 155 307 *~;
#X obj 43 209 r trig1;
#X msg 475 150 \; trig1 1;
#X obj 520 267 del \$1;
#X msg 522 306 \; trig1 0;
#X obj 43 258 adsr 1 40 20 80 40;
#X msg 576 188 9960;
#X obj 574 150 loadbang;
#X obj 237 398 tabwrite~ trnc1;
#X text 26 10 if upd1 1 recieved records next sound that exeeds treshold
;
#X obj 51 309 env~;
#X floatatom 59 358 5 0 0;
#X obj 328 120 select 1;
#X connect 0 0 1 0;
#X connect 1 0 2 1;
#X connect 1 0 22 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 0 10 0;
#X connect 4 0 6 0;
#X connect 5 0 8 0;
#X connect 6 1 5 0;
#X connect 7 0 6 1;
#X connect 8 0 18 0;
#X connect 9 0 13 0;
#X connect 10 0 18 0;
#X connect 11 0 15 0;
#X connect 13 0 14 0;
#X connect 15 0 10 1;
#X connect 15 0 20 0;
#X connect 16 0 13 1;
#X connect 17 0 16 0;
#X connect 20 0 21 0;
#X connect 22 1 12 0;
#X connect 22 1 9 0;
#X restore 17 61 pd rec1;
#X obj 9 8 adc~;
#X obj 7 35 clip~ -1 1;
#N canvas 0 0 1014 684 rec2 0;
#X obj 262 89 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 237 127 *~;
#X obj 191 50 inlet~;
#X obj 238 172 env~;
#X floatatom 271 248 5 0 0;
#X obj 205 212 moses 50;
#X obj 327 53 inlet;
#X obj 414 147 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 154 301 *~;
#X obj 519 261 del \$1;
#X obj 42 252 adsr 1 40 20 80 40;
#X obj 573 144 loadbang;
#X obj 256 49 r upd2;
#X msg 485 140 \; trig2 1;
#X obj 42 203 r trig2;
#X msg 521 300 \; trig2 0;
#X obj 236 392 tabwrite~ trnc2;
#X msg 248 290 bang \; upd2 0;
#X msg 575 182 6960;
#X obj 344 112 select 1;
#X text 24 4 if upd1 1 recieved records next sound that exeeds treshold
;
#X connect 0 0 1 1;
#X connect 0 0 19 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 4 0 17 0;
#X connect 5 1 4 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 8 0 16 0;
#X connect 9 0 15 0;
#X connect 10 0 8 1;
#X connect 11 0 18 0;
#X connect 12 0 0 0;
#X connect 14 0 10 0;
#X connect 17 0 16 0;
#X connect 18 0 9 1;
#X connect 19 1 13 0;
#X connect 19 1 7 0;
#X restore 27 86 pd rec2;
#N canvas 0 0 1012 680 rec3 0;
#X obj 262 89 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 237 127 *~;
#X obj 191 50 inlet~;
#X obj 238 172 env~;
#X floatatom 271 248 5 0 0;
#X obj 205 212 moses 50;
#X obj 327 53 inlet;
#X obj 416 162 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 154 301 *~;
#X obj 519 261 del \$1;
#X obj 42 252 adsr 1 40 20 80 40;
#X obj 573 144 loadbang;
#X obj 256 49 r upd3;
#X obj 42 203 r trig3;
#X msg 490 153 \; trig3 1;
#X msg 248 290 bang \; upd3 0;
#X obj 236 392 tabwrite~ trnc3;
#X msg 521 300 \; trig3 0;
#X msg 575 182 5960;
#X obj 368 121 select 1;
#X text 25 4 if upd1 1 recieved records next sound that exeeds treshold
;
#X connect 0 0 1 1;
#X connect 0 0 19 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 4 0 15 0;
#X connect 5 1 4 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 8 0 16 0;
#X connect 9 0 17 0;
#X connect 10 0 8 1;
#X connect 11 0 18 0;
#X connect 12 0 0 0;
#X connect 13 0 10 0;
#X connect 15 0 16 0;
#X connect 18 0 9 1;
#X connect 19 1 7 0;
#X connect 19 1 14 0;
#X restore 40 112 pd rec3;
#N canvas 0 0 1010 678 rec4 0;
#X obj 260 87 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 235 125 *~;
#X obj 189 48 inlet~;
#X obj 236 170 env~;
#X floatatom 269 246 5 0 0;
#X obj 203 210 moses 50;
#X obj 325 51 inlet;
#X obj 403 168 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 23 2 if upd1 1 recieved records next sound that exeeds treshold
and getrs bigger (up to 5");
#X obj 152 299 *~;
#X obj 517 259 del \$1;
#X obj 40 250 adsr 1 40 20 80 40;
#X obj 571 142 loadbang;
#X obj 254 47 r upd4;
#X obj 40 201 r trig4;
#X msg 246 288 bang \; upd4 0;
#X obj 234 390 tabwrite~ trnc4;
#X msg 519 298 \; trig4 0;
#X msg 483 156 \; trig4 1;
#X obj 330 121 select 1;
#X msg 573 180 3960;
#X connect 0 0 1 1;
#X connect 0 0 19 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 9 0;
#X connect 3 0 5 0;
#X connect 4 0 15 0;
#X connect 5 1 4 0;
#X connect 6 0 5 1;
#X connect 7 0 10 0;
#X connect 9 0 16 0;
#X connect 10 0 17 0;
#X connect 11 0 9 1;
#X connect 12 0 20 0;
#X connect 13 0 0 0;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 19 1 7 0;
#X connect 19 1 18 0;
#X connect 20 0 10 1;
#X restore 51 136 pd rec4;
#N canvas 65 154 1018 686 rec5 0;
#X obj 260 87 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 235 125 *~;
#X obj 189 48 inlet~;
#X obj 236 170 env~;
#X floatatom 269 246 5 0 0;
#X obj 203 210 moses 50;
#X obj 325 51 inlet;
#X obj 378 153 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 152 299 *~;
#X obj 517 259 del \$1;
#X obj 40 250 adsr 1 40 20 80 40;
#X obj 571 142 loadbang;
#X obj 254 47 r upd5;
#X msg 482 141 \; trig5 1;
#X msg 519 298 \; trig5 0;
#X msg 246 288 bang \; upd5 0;
#X obj 234 390 tabwrite~ trnc5;
#X obj 40 201 r trig5;
#X obj 321 117 select 1;
#X text 22 2 if upd1 1 recieved records next sound that exeeds treshold
;
#X msg 573 180 3960;
#X connect 0 0 1 1;
#X connect 0 0 18 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 4 0 15 0;
#X connect 5 1 4 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 8 0 16 0;
#X connect 9 0 14 0;
#X connect 10 0 8 1;
#X connect 11 0 20 0;
#X connect 12 0 0 0;
#X connect 15 0 16 0;
#X connect 17 0 10 0;
#X connect 18 1 13 0;
#X connect 18 1 7 0;
#X connect 20 0 9 1;
#X restore 63 159 pd rec5;
#X obj 93 51 inlet;
#X text 97 29 treshold;
#N canvas 0 0 1262 930 rec6 0;
#X obj 260 87 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 235 125 *~;
#X obj 189 48 inlet~;
#X obj 236 170 env~;
#X floatatom 269 246 5 0 0;
#X obj 203 210 moses 50;
#X obj 325 51 inlet;
#X obj 378 153 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 152 299 *~;
#X obj 517 259 del \$1;
#X obj 40 250 adsr 1 40 20 80 40;
#X obj 571 142 loadbang;
#X obj 321 117 select 1;
#X text 22 2 if upd1 1 recieved records next sound that exeeds treshold
;
#X msg 573 180 3960;
#X obj 254 47 r upd6;
#X msg 482 141 \; trig6 1;
#X msg 519 298 \; trig6 0;
#X obj 234 390 tabwrite~ trnc6;
#X obj 40 201 r trig6;
#X msg 246 288 bang \; upd6 0;
#X connect 0 0 1 1;
#X connect 0 0 12 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 4 0 20 0;
#X connect 5 1 4 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 8 0 18 0;
#X connect 9 0 17 0;
#X connect 10 0 8 1;
#X connect 11 0 14 0;
#X connect 12 1 16 0;
#X connect 12 1 7 0;
#X connect 14 0 9 1;
#X connect 15 0 0 0;
#X connect 19 0 10 0;
#X connect 20 0 18 0;
#X restore 69 184 pd rec6;
#X connect 1 0 2 0;
#X connect 1 1 2 0;
#X connect 2 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 2 0 9 0;
#X connect 7 0 0 1;
#X connect 7 0 3 1;
#X connect 7 0 4 1;
#X connect 7 0 5 1;
#X connect 7 0 6 1;
#X connect 7 0 9 1;
#X restore 49 65 pd record;
#X obj 44 33 hsl 128 15 0 100 0 0 treshout tresh record_tresh 0 -6
192 8 -206426 -241291 -33289 6350 0;
#X floatatom 12 65 3 0 100;
#N canvas 383 53 629 428 samp1 0;
#X obj 91 29 inlet;
#X text 87 6 playback dly;
#X obj 200 28 inlet;
#X text 201 6 velo;
#X obj 125 363 *~;
#X obj 8 24 inlet;
#X msg 9 52 bang \; upd1 1;
#X text 5 4 rec msg;
#X obj 83 388 throw~ gtr_gen_audio;
#X floatatom 78 141 0 0 0;
#X obj 78 181 * 441;
#X obj 290 320 phasor~ 0;
#X obj 78 244 samphold~;
#X obj 78 206 sig~;
#X obj 78 291 *~;
#X floatatom 277 121 0 0 0;
#X text 321 120 <-- transposition (10ths of a halftone);
#X obj 277 146 / 120;
#X obj 291 220 pow;
#X obj 277 171 t b f;
#X msg 277 196 2;
#X text 346 175 2 to the power (octaves);
#X text 346 197 gives speed change for the;
#X text 346 219 desired transposition;
#X obj 133 170 * 0.01;
#X obj 301 271 t b f;
#X obj 290 295 /;
#X text 363 271 divide speed change by chunk;
#X text 363 293 size to get loop frequency;
#X text 326 145 transposition in octaves;
#X obj 81 332 tabread4~ trnc1;
#X obj 264 27 inlet;
#X text 267 8 transp;
#X obj 90 116 / 10;
#X obj 267 88 line;
#X obj 268 52 pack 0 500;
#X obj 96 89 line;
#X obj 97 64 pack 0 500;
#X obj 133 195 s chunk-size1;
#X obj 301 246 r chunk-size1;
#X obj 291 345 s~ phase1;
#X obj 95 266 r~ phase1;
#X obj 134 219 r~ phase1;
#X connect 0 0 37 0;
#X connect 0 0 37 1;
#X connect 2 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 10 0 13 0;
#X connect 11 0 40 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 30 0;
#X connect 15 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 26 0;
#X connect 19 0 20 0;
#X connect 19 1 18 1;
#X connect 20 0 18 0;
#X connect 24 0 38 0;
#X connect 25 0 26 0;
#X connect 25 1 26 1;
#X connect 26 0 11 0;
#X connect 30 0 4 0;
#X connect 31 0 35 0;
#X connect 33 0 9 0;
#X connect 34 0 15 0;
#X connect 35 0 34 0;
#X connect 36 0 33 0;
#X connect 37 0 36 0;
#X connect 39 0 25 0;
#X connect 41 0 14 1;
#X connect 42 0 12 1;
#X restore 5 344 pd samp1;
#X obj 5 323 bng 15 250 50 0 empty rcd1 empty 0 -6 64 8 -262144 -1
-1;
#X obj 44 183 vsl 15 150 100 10000 0 0 empty dlyval1 empty 0 -8 64
8 -206451 -241291 -1 14900 1;
#X floatatom 81 292 5 100 10000;
#X floatatom 81 315 3 0 16;
#N canvas 783 199 428 423 samp2 0;
#X obj 99 28 inlet;
#X text 95 5 playback dly;
#X obj 212 25 inlet;
#X text 209 4 velo;
#X obj 8 24 inlet;
#X text 5 4 rec msg;
#X msg 9 55 bang \; upd2 1;
#X obj 189 345 *~;
#X obj 162 372 throw~ gtr_gen_audio;
#X obj 264 21 inlet;
#X text 260 -2 transp;
#X floatatom 78 141 0 0 0;
#X obj 78 181 * 441;
#X obj 290 320 phasor~ 0;
#X obj 78 244 samphold~;
#X obj 78 206 sig~;
#X obj 78 291 *~;
#X floatatom 277 121 0 0 0;
#X obj 277 146 / 120;
#X obj 291 220 pow;
#X obj 277 171 t b f;
#X msg 277 196 2;
#X obj 133 170 * 0.01;
#X obj 301 271 t b f;
#X obj 290 295 /;
#X obj 90 116 / 10;
#X obj 267 88 line;
#X obj 268 52 pack 0 500;
#X obj 96 89 line;
#X obj 97 64 pack 0 500;
#X obj 134 195 s chunk-size2;
#X obj 82 317 tabread4~ trnc2;
#X obj 301 246 r chunk-size2;
#X obj 135 219 r~ phase2;
#X obj 94 266 r~ phase2;
#X obj 290 345 s~ phase2;
#X connect 0 0 29 0;
#X connect 2 0 7 1;
#X connect 4 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 27 0;
#X connect 11 0 12 0;
#X connect 11 0 22 0;
#X connect 12 0 15 0;
#X connect 13 0 35 0;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 31 0;
#X connect 17 0 18 0;
#X connect 18 0 20 0;
#X connect 19 0 24 0;
#X connect 20 0 21 0;
#X connect 20 1 19 1;
#X connect 21 0 19 0;
#X connect 22 0 30 0;
#X connect 23 0 24 0;
#X connect 23 1 24 1;
#X connect 24 0 13 0;
#X connect 25 0 11 0;
#X connect 26 0 17 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 28 0;
#X connect 31 0 7 0;
#X connect 32 0 23 0;
#X connect 33 0 14 1;
#X connect 34 0 16 1;
#X restore 137 344 pd samp2;
#X obj 137 323 bng 15 250 50 0 empty rcd2 empty 0 -6 64 8 -262144 -1
-1;
#X obj 174 183 vsl 15 150 100 7000 0 0 empty dlyval2 empty 0 -8 64
8 -206451 -241291 -1 12799 1;
#X floatatom 212 292 5 100 7000;
#X floatatom 212 315 3 0 16;
#N canvas 23 71 511 448 samp3 0;
#X obj 95 28 inlet;
#X text 91 5 playback dly;
#X obj 206 26 inlet;
#X text 203 5 velo;
#X obj 8 24 inlet;
#X text 5 4 rec msg;
#X msg 8 48 bang \; upd3 1;
#X obj 197 345 *~;
#X obj 162 375 throw~ gtr_gen_audio;
#X obj 270 21 inlet;
#X text 266 -2 transp;
#X obj 296 320 phasor~ 0;
#X floatatom 283 121 0 0 0;
#X obj 283 146 / 120;
#X obj 297 220 pow;
#X obj 283 171 t b f;
#X msg 283 196 2;
#X obj 307 271 t b f;
#X obj 296 295 /;
#X obj 273 88 line;
#X obj 274 52 pack 0 500;
#X obj 307 246 r chunk-size3;
#X obj 296 344 s~ phase3;
#X floatatom 78 141 0 0 0;
#X obj 78 181 * 441;
#X obj 78 244 samphold~;
#X obj 78 206 sig~;
#X obj 78 291 *~;
#X obj 133 170 * 0.01;
#X obj 90 116 / 10;
#X obj 96 89 line;
#X obj 97 64 pack 0 500;
#X obj 134 195 s chunk-size3;
#X obj 135 219 r~ phase3;
#X obj 94 266 r~ phase3;
#X obj 82 317 tabread4~ trnc3;
#X connect 0 0 31 0;
#X connect 2 0 7 1;
#X connect 4 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 20 0;
#X connect 11 0 22 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 18 0;
#X connect 15 0 16 0;
#X connect 15 1 14 1;
#X connect 16 0 14 0;
#X connect 17 0 18 0;
#X connect 17 1 18 1;
#X connect 18 0 11 0;
#X connect 19 0 12 0;
#X connect 20 0 19 0;
#X connect 21 0 17 0;
#X connect 23 0 24 0;
#X connect 23 0 28 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 25 0;
#X connect 27 0 35 0;
#X connect 28 0 32 0;
#X connect 29 0 23 0;
#X connect 30 0 29 0;
#X connect 31 0 30 0;
#X connect 33 0 25 1;
#X connect 34 0 27 1;
#X connect 35 0 7 0;
#X restore 271 348 pd samp3;
#X obj 271 327 bng 15 250 50 0 empty rcd3 empty 0 -6 64 8 -262144 -1
-1;
#X floatatom 348 292 5 100 6000;
#X floatatom 348 315 3 0 16;
#X obj 308 183 vsl 15 150 100 6000 0 0 empty dlyval3 empty 0 -8 64
8 -206451 -241291 -1 14900 1;
#N canvas -1 46 1266 944 keyhelper 0;
#X floatatom 1077 487 5 0 0;
#X obj 4 3 key;
#X obj 957 499 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X msg 956 518 \; pd dsp \$1;
#X msg 70 450 \; tog1 bang \;;
#X msg 163 449 \; tog2 bang \;;
#X msg 256 451 \; tog3 bang \;;
#X msg 72 491 \; tog4 bang \;;
#X msg 167 493 \; tog5 bang \;;
#X floatatom 490 186 5 0 0;
#X obj 508 137 r svol1;
#X obj 488 206 s vol1;
#X obj 500 162 * 1;
#X msg 515 111 1.1;
#X msg 482 110 0.9;
#X floatatom 568 257 5 0 0;
#X obj 567 234 * 1;
#X msg 583 181 1.1;
#X msg 549 180 0.9;
#X obj 577 207 r svol2;
#X obj 569 277 s vol2;
#X floatatom 643 312 5 0 0;
#X obj 648 289 * 1;
#X msg 668 237 1.1;
#X msg 635 237 0.9;
#X obj 669 262 r svol3;
#X obj 639 334 s vol3;
#X floatatom 667 184 5 0 0;
#X obj 672 160 * 1;
#X msg 695 109 1.1;
#X msg 662 108 0.9;
#X obj 690 135 r svol4;
#X obj 667 207 s vol4;
#X floatatom 742 240 5 0 0;
#X obj 747 216 * 1;
#X msg 770 163 1.1;
#X msg 736 163 0.9;
#X obj 764 190 r svol5;
#X obj 740 262 s vol5;
#X obj 740 438 select 43 45;
#X text 746 409 treshold;
#X text 747 423 + -;
#X msg 408 469 \; rcd1 bang \;;
#X msg 500 471 \; rcd2 bang \;;
#X msg 593 473 \; rcd3 bang \;;
#X msg 407 511 \; rcd4 bang \;;
#X msg 501 513 \; rcd5 bang \;;
#X floatatom 752 517 5 0 0;
#X obj 788 493 r treshout;
#X obj 750 491 + 1;
#X msg 741 465 1;
#X msg 778 467 -1;
#X obj 756 541 s tresh;
#X text 954 439 dsp onoff;
#X text 954 453 space;
#X text 69 385 toggle playback;
#X text 19 49 pitch control;
#X floatatom 31 187 5 0 0;
#X obj 36 164 + 1;
#X obj 54 138 r sptch1;
#X obj 27 207 s ptch1;
#X floatatom 122 246 5 0 0;
#X obj 121 221 + 1;
#X obj 118 195 r sptch2;
#X obj 119 266 s ptch2;
#X floatatom 198 312 5 0 0;
#X obj 207 263 r sptch3;
#X obj 199 332 s ptch3;
#X obj 199 287 + 1;
#X floatatom 221 189 5 0 0;
#X obj 226 165 + 1;
#X obj 238 141 r sptch4;
#X obj 221 208 s ptch4;
#X floatatom 299 245 5 0 0;
#X obj 302 221 + 1;
#X obj 308 197 r sptch5;
#X obj 295 264 s ptch5;
#X text 481 47 volume control;
#X text 481 60 z Z x X c C v V b B [reserved n - ?];
#X text 403 391 record sample;
#X obj 956 472 select 32;
#X obj 70 419 select 113 119 101 114 116 121;
#X obj 405 430 select 81 87 69 82 84 89;
#X text 69 400 q w e r t y [reserved u - p];
#X msg 258 492 \; tog6 bang \;;
#X text 402 409 Q W E R T Y [reserved U - P];
#X msg 593 513 \; rcd6 bang \;;
#X obj 20 88 select 97 65 115 83 100 68 102 70 103 71 104 72;
#X floatatom 364 302 5 0 0;
#X obj 367 278 + 1;
#X obj 386 254 r sptch6;
#X obj 360 321 s ptch6;
#X text 18 66 a A s S d D f F g G h H [reserved j - :];
#X floatatom 807 300 5 0 0;
#X obj 812 276 * 1;
#X msg 835 223 1.1;
#X msg 801 223 0.9;
#X obj 829 250 r svol6;
#X obj 805 322 s vol6;
#X floatatom 1064 219 5 0 0;
#X obj 1069 195 * 1;
#X msg 1092 142 1.1;
#X msg 1058 142 0.9;
#X obj 1062 241 s allvol;
#X obj 1086 169 r sallvol;
#X obj 481 82 select 122 90 120 88 99 67 118 86 98 66 110 78 91 93
;
#X msg 894 133 \; pskey 122 \; pskey 120 \; pskey 99 \; pskey 118 \;
pskey 98 \; pskey 110 \;;
#X msg 899 256 \; pskey 90 \; pskey 88 \; pskey 67 \; pskey 86 \; pskey
66 \; pskey 78 \;;
#X obj 61 7 r pskey;
#X msg 13 114 -2;
#X msg 46 114 2;
#X msg 93 172 -2;
#X msg 128 172 2;
#X msg 210 114 -2;
#X msg 243 115 2;
#X msg 182 240 -2;
#X msg 217 240 2;
#X msg 345 227 -2;
#X msg 378 227 2;
#X msg 280 170 -2;
#X msg 313 170 2;
#X connect 1 0 87 0;
#X connect 2 0 3 0;
#X connect 9 0 11 0;
#X connect 10 0 12 1;
#X connect 12 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 15 0 20 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 16 0;
#X connect 19 0 16 1;
#X connect 21 0 26 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 24 0 22 0;
#X connect 25 0 22 1;
#X connect 27 0 32 0;
#X connect 28 0 27 0;
#X connect 29 0 28 0;
#X connect 30 0 28 0;
#X connect 31 0 28 1;
#X connect 33 0 38 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 34 0;
#X connect 37 0 34 1;
#X connect 39 0 50 0;
#X connect 39 1 51 0;
#X connect 39 2 80 0;
#X connect 47 0 52 0;
#X connect 48 0 49 1;
#X connect 49 0 47 0;
#X connect 50 0 49 0;
#X connect 51 0 49 0;
#X connect 57 0 60 0;
#X connect 58 0 57 0;
#X connect 59 0 58 1;
#X connect 61 0 64 0;
#X connect 62 0 61 0;
#X connect 63 0 62 1;
#X connect 65 0 67 0;
#X connect 66 0 68 1;
#X connect 68 0 65 0;
#X connect 69 0 72 0;
#X connect 70 0 69 0;
#X connect 71 0 70 1;
#X connect 73 0 76 0;
#X connect 74 0 73 0;
#X connect 75 0 74 1;
#X connect 80 0 2 0;
#X connect 80 1 0 0;
#X connect 81 0 4 0;
#X connect 81 1 5 0;
#X connect 81 2 6 0;
#X connect 81 3 7 0;
#X connect 81 4 8 0;
#X connect 81 5 84 0;
#X connect 81 6 82 0;
#X connect 82 0 42 0;
#X connect 82 1 43 0;
#X connect 82 2 44 0;
#X connect 82 3 45 0;
#X connect 82 4 46 0;
#X connect 82 5 86 0;
#X connect 82 6 39 0;
#X connect 87 0 109 0;
#X connect 87 1 110 0;
#X connect 87 2 111 0;
#X connect 87 3 112 0;
#X connect 87 4 115 0;
#X connect 87 5 116 0;
#X connect 87 6 113 0;
#X connect 87 7 114 0;
#X connect 87 8 119 0;
#X connect 87 9 120 0;
#X connect 87 10 117 0;
#X connect 87 11 118 0;
#X connect 87 12 105 0;
#X connect 88 0 91 0;
#X connect 89 0 88 0;
#X connect 90 0 89 1;
#X connect 93 0 98 0;
#X connect 94 0 93 0;
#X connect 95 0 94 0;
#X connect 96 0 94 0;
#X connect 97 0 94 1;
#X connect 99 0 103 0;
#X connect 100 0 99 0;
#X connect 101 0 100 0;
#X connect 102 0 100 0;
#X connect 104 0 100 1;
#X connect 105 0 14 0;
#X connect 105 1 13 0;
#X connect 105 2 18 0;
#X connect 105 3 17 0;
#X connect 105 4 24 0;
#X connect 105 5 23 0;
#X connect 105 6 30 0;
#X connect 105 7 29 0;
#X connect 105 8 36 0;
#X connect 105 9 35 0;
#X connect 105 10 96 0;
#X connect 105 11 95 0;
#X connect 105 12 106 0;
#X connect 105 13 107 0;
#X connect 105 14 81 0;
#X connect 108 0 87 0;
#X connect 109 0 58 0;
#X connect 110 0 58 0;
#X connect 111 0 62 0;
#X connect 112 0 62 0;
#X connect 113 0 70 0;
#X connect 114 0 70 0;
#X connect 115 0 68 0;
#X connect 116 0 68 0;
#X connect 117 0 89 0;
#X connect 118 0 89 0;
#X connect 119 0 74 0;
#X connect 120 0 74 0;
#X restore 778 59 pd keyhelper;
#N canvas 16 85 462 445 samp4 0;
#X obj 107 26 inlet;
#X text 100 3 playback dly;
#X obj 212 23 inlet;
#X text 209 2 velo;
#X obj 8 24 inlet;
#X text 5 4 rec msg;
#X msg 15 55 bang \; upd4 1;
#X obj 168 342 *~;
#X obj 156 369 throw~ gtr_gen_audio;
#X floatatom 96 134 0 0 0;
#X obj 96 174 * 441;
#X obj 96 237 samphold~;
#X obj 96 199 sig~;
#X obj 96 284 *~;
#X obj 151 163 * 0.01;
#X obj 108 109 / 10;
#X obj 114 82 line;
#X obj 115 57 pack 0 500;
#X obj 152 188 s chunk-size4;
#X obj 153 212 r~ phase4;
#X obj 112 259 r~ phase4;
#X obj 100 310 tabread4~ trnc4;
#X obj 270 21 inlet;
#X text 266 -2 transp;
#X obj 296 320 phasor~ 0;
#X floatatom 283 121 0 0 0;
#X obj 283 146 / 120;
#X obj 297 220 pow;
#X obj 283 171 t b f;
#X msg 283 196 2;
#X obj 307 271 t b f;
#X obj 296 295 /;
#X obj 273 88 line;
#X obj 274 52 pack 0 500;
#X obj 307 246 r chunk-size4;
#X obj 296 344 s~ phase4;
#X connect 0 0 17 0;
#X connect 2 0 7 1;
#X connect 4 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 9 0 14 0;
#X connect 10 0 12 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 13 0 21 0;
#X connect 14 0 18 0;
#X connect 15 0 9 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 19 0 11 1;
#X connect 20 0 13 1;
#X connect 21 0 7 0;
#X connect 22 0 33 0;
#X connect 24 0 35 0;
#X connect 25 0 26 0;
#X connect 26 0 28 0;
#X connect 27 0 31 0;
#X connect 28 0 29 0;
#X connect 28 1 27 1;
#X connect 29 0 27 0;
#X connect 30 0 31 0;
#X connect 30 1 31 1;
#X connect 31 0 24 0;
#X connect 32 0 25 0;
#X connect 33 0 32 0;
#X connect 34 0 30 0;
#X restore 407 346 pd samp4;
#X obj 407 325 bng 15 250 50 0 empty rcd4 empty 0 -6 64 8 -262144 -1
-1;
#X floatatom 479 312 5 100 2000;
#X floatatom 484 329 3 0 16;
#X obj 440 189 vsl 15 150 100 4000 0 0 empty dlyval4 empty 0 -8 64
8 -206451 -241291 -1 14900 1;
#N canvas 534 88 445 418 samp5 0;
#X obj 116 27 inlet;
#X text 112 4 playback dly;
#X obj 218 26 inlet;
#X text 215 5 velo;
#X obj 8 24 inlet;
#X text 5 4 rec msg;
#X obj 124 339 *~;
#X msg 9 49 bang \; upd5 1;
#X obj 124 363 throw~ gtr_gen_audio;
#X floatatom 96 134 0 0 0;
#X obj 96 174 * 441;
#X obj 96 237 samphold~;
#X obj 96 199 sig~;
#X obj 96 284 *~;
#X obj 151 163 * 0.01;
#X obj 108 109 / 10;
#X obj 114 82 line;
#X obj 115 57 pack 0 500;
#X obj 152 188 s chunk-size5;
#X obj 154 212 r~ phase5;
#X obj 112 259 r~ phase5;
#X obj 100 310 tabread4~ trnc5;
#X obj 270 21 inlet;
#X text 266 -2 transp;
#X obj 296 320 phasor~ 0;
#X floatatom 283 121 0 0 0;
#X obj 283 146 / 120;
#X obj 297 220 pow;
#X obj 283 171 t b f;
#X msg 283 196 2;
#X obj 307 271 t b f;
#X obj 296 295 /;
#X obj 273 88 line;
#X obj 274 52 pack 0 500;
#X obj 307 246 r chunk-size5;
#X obj 296 344 s~ phase5;
#X connect 0 0 17 0;
#X connect 2 0 6 1;
#X connect 4 0 7 0;
#X connect 6 0 8 0;
#X connect 9 0 10 0;
#X connect 9 0 14 0;
#X connect 10 0 12 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 13 0 21 0;
#X connect 14 0 18 0;
#X connect 15 0 9 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 19 0 11 1;
#X connect 20 0 13 1;
#X connect 21 0 6 0;
#X connect 22 0 33 0;
#X connect 24 0 35 0;
#X connect 25 0 26 0;
#X connect 26 0 28 0;
#X connect 27 0 31 0;
#X connect 28 0 29 0;
#X connect 28 1 27 1;
#X connect 29 0 27 0;
#X connect 30 0 31 0;
#X connect 30 1 31 1;
#X connect 31 0 24 0;
#X connect 32 0 25 0;
#X connect 33 0 32 0;
#X connect 34 0 30 0;
#X restore 544 347 pd samp5;
#X obj 544 326 bng 15 250 50 0 empty rcd5 empty 0 -6 64 8 -262144 -1
-1;
#X obj 572 190 vsl 15 150 100 3000 0 0 empty dlyval5 empty 0 -8 64
8 -206451 -241291 -1 14900 1;
#X floatatom 614 295 5 100 1500;
#X floatatom 614 318 3 0 16;
#N canvas 0 0 816 478 blayback 0;
#X obj 23 120 dac~;
#X obj 21 83 clip~ -1 1;
#X obj 18 48 /~ 5;
#X obj 9 13 catch~ gtr_gen_audio;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X restore 778 33 pd blayback;
#X obj 63 183 vsl 15 150 -480 480 0 0 sptch1 ptch1 empty 0 0 192 4
-105651 -241291 -1 7450 0;
#X floatatom 81 338 5 0 0;
#X obj 194 183 vsl 15 150 -480 480 0 0 sptch2 ptch2 empty 0 0 192 4
-105651 -241291 -1 7450 0;
#X floatatom 212 338 5 0 0;
#X obj 326 183 vsl 15 150 -480 480 0 0 sptch3 ptch3 empty 0 0 192 4
-105651 -241291 -1 7450 0;
#X floatatom 343 344 5 0 0;
#X text 192 14 reset pitch;
#X text 438 10 reset delay;
#X obj 99 236 tgl 15 0 empty tog1 empty 0 -6 64 8 -195568 -258699 -258699
0 1;
#X obj 99 267 *;
#X obj 105 256 bng 8 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 700 109 real time sampler purple sliders for dly time red sliders
for volume green sliders for transpose bang to start recording + /
- keys;
#X obj 231 236 tgl 15 0 empty tog2 empty 0 -6 64 8 -195568 -258699
-258699 1 1;
#X obj 231 271 *;
#X obj 231 257 bng 8 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 363 236 tgl 15 0 empty tog3 empty 0 -6 64 8 -195568 -258699
-258699 0 1;
#X obj 363 267 *;
#X obj 368 256 bng 8 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 498 238 tgl 15 0 empty tog4 empty 0 -6 64 8 -195568 -258699
-258699 0 1;
#X obj 496 269 *;
#X obj 504 258 bng 8 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 628 234 tgl 15 0 empty tog5 empty 0 -6 64 8 -195568 -258699
-258699 0 1;
#X obj 628 270 *;
#X obj 639 254 bng 8 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 576 10 in sync;
#X text 811 326 AUDIO_____: <spacebar> [toggle];
#X text 811 340 REC TRESH_: + / - [continuous];
#X obj 459 188 vsl 15 150 -480 480 0 0 sptch4 ptch4 empty 0 0 192 4
-105651 -241291 -1 7450 0;
#X floatatom 484 352 5 0 0;
#X text 809 211 KEYBOARD [qwerty];
#X obj 590 190 vsl 15 150 -480 480 0 0 sptch5 ptch5 empty 0 0 192 4
-105651 -241291 -1 7450 0;
#X floatatom 614 341 5 0 0;
#N canvas 0 0 450 300 graph1 0;
#X array trnc6 88200 float 0;
#X coords 0 1 88199 -1 200 140 1;
#X restore 539 535 graph;
#N canvas 0 0 1262 930 samp6 0;
#X obj 116 27 inlet;
#X text 112 4 playback dly;
#X obj 218 26 inlet;
#X text 215 5 velo;
#X obj 8 24 inlet;
#X text 5 4 rec msg;
#X obj 124 339 *~;
#X obj 124 363 throw~ gtr_gen_audio;
#X floatatom 96 134 0 0 0;
#X obj 96 174 * 441;
#X obj 96 237 samphold~;
#X obj 96 199 sig~;
#X obj 96 284 *~;
#X obj 151 163 * 0.01;
#X obj 108 109 / 10;
#X obj 114 82 line;
#X obj 115 57 pack 0 500;
#X obj 270 21 inlet;
#X text 266 -2 transp;
#X obj 296 320 phasor~ 0;
#X floatatom 283 121 0 0 0;
#X obj 283 146 / 120;
#X obj 297 220 pow;
#X obj 283 171 t b f;
#X msg 283 196 2;
#X obj 307 271 t b f;
#X obj 296 295 /;
#X obj 273 88 line;
#X obj 274 52 pack 0 500;
#X msg 9 49 bang \; upd6 1;
#X obj 152 188 s chunk-size6;
#X obj 154 212 r~ phase6;
#X obj 112 259 r~ phase6;
#X obj 100 310 tabread4~ trnc6;
#X obj 307 246 r chunk-size6;
#X obj 296 344 s~ phase6;
#X connect 0 0 16 0;
#X connect 2 0 6 1;
#X connect 4 0 29 0;
#X connect 6 0 7 0;
#X connect 8 0 9 0;
#X connect 8 0 13 0;
#X connect 9 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 33 0;
#X connect 13 0 30 0;
#X connect 14 0 8 0;
#X connect 15 0 14 0;
#X connect 16 0 15 0;
#X connect 17 0 28 0;
#X connect 19 0 35 0;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 22 0 26 0;
#X connect 23 0 24 0;
#X connect 23 1 22 1;
#X connect 24 0 22 0;
#X connect 25 0 26 0;
#X connect 25 1 26 1;
#X connect 26 0 19 0;
#X connect 27 0 20 0;
#X connect 28 0 27 0;
#X connect 31 0 10 1;
#X connect 32 0 12 1;
#X connect 33 0 6 0;
#X connect 34 0 25 0;
#X restore 680 349 pd samp6;
#X obj 744 189 vsl 15 100 0.02 32 0 0 svol6 vol6 empty 0 -8 192 8 -206426
-241291 -1 1232 1;
#X obj 680 328 bng 15 250 50 0 empty rcd6 empty 0 -6 64 8 -262144 -1
-1;
#X obj 707 188 vsl 15 150 100 3000 0 0 empty dlyval6 empty 0 -8 64
8 -206451 -241291 -1 9762 1;
#X floatatom 749 297 5 100 1500;
#X floatatom 749 320 3 0 16;
#X obj 765 229 tgl 15 0 empty tog6 empty 0 -6 64 8 -195568 -258699
-258699 0 1;
#X obj 764 268 *;
#X obj 778 250 bng 8 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 726 188 vsl 15 150 -480 480 0 0 sptch6 ptch6 empty 0 0 192 4
-105651 -241291 -1 7450 0;
#X floatatom 749 343 5 0 0;
#X msg 198 33 \; ptch1 0 \; ptch2 0 \; ptch3 0 \; ptch4 0 \; ptch5
0 \; ptch6 0 \;;
#X msg 438 34 \; dlyval1 10000 \; dlyval2 7000 \; dlyval3 6000 \; dlyval4
4000 \; dlyval5 3000 \; dlyval6 2000 \;;
#X msg 574 34 \; dlyval1 6000 \; dlyval2 4500 \; dlyval3 3000 \; dlyval4
3000 \; dlyval5 1500 \; dlyval6 1500 \;;
#X text 48 160 q a z;
#X text 179 162 w s x;
#X text 311 161 e d c;
#X text 441 168 r f v;
#X text 573 167 t g b;
#X text 709 167 y h n;
#X text 809 230 RECORD____: Q W E R T Y [oneshot];
#X text 809 244 PLAYBACK__: q w e r t y [toggle];
#X text 809 259 PITCH UP__: A S D F G H[continuous];
#X text 810 274 PITCH DOWN: a s d f g h[continuous];
#X text 810 288 VOL UP____: Z X C V B N[continuous];
#X text 810 299 VOL DOWN__: z x c v b n[continuous];
#X msg 313 36 bang \; ptch1 -120 \; ptch2 -120 \; ptch3 0 \; ptch4
1 \; ptch5 2 \; ptch6 3 \;;
#X text 312 15 bourd & micro;
#X obj 765 653 soundfiler;
#X text 811 311 VOL GEN UD: [ ];
#X msg 767 387 gdfx_mdly_invol 0 \; gdfx_mdly_fdbck 0 \; dlyval2 6027
\; ptch1 0 \; ptch2 0 \; ptch3 0 \; tog1 0 \; tog2 1 \; tog3 0 \; tog4
0 \; tog5 0 \; tog6 0 \; vol2 1 \; vol1 4 \; vol2 4 \; read c:/pd/wav/samplenov22.wav
trnc2 \;;
#X connect 4 0 49 0;
#X connect 5 0 53 0;
#X connect 6 0 56 0;
#X connect 7 0 59 0;
#X connect 8 0 62 0;
#X connect 11 0 10 0;
#X connect 11 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 0 13 1;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 20 0 18 1;
#X connect 24 0 23 0;
#X connect 27 0 23 1;
#X connect 27 0 25 0;
#X connect 30 0 29 0;
#X connect 33 0 29 1;
#X connect 33 0 31 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 36 0 34 1;
#X connect 40 0 41 0;
#X connect 40 0 13 3;
#X connect 42 0 18 3;
#X connect 42 0 43 0;
#X connect 44 0 23 3;
#X connect 44 0 45 0;
#X connect 48 0 49 1;
#X connect 48 0 50 0;
#X connect 49 0 13 2;
#X connect 49 0 17 0;
#X connect 50 0 49 0;
#X connect 52 0 53 1;
#X connect 52 0 54 0;
#X connect 53 0 22 0;
#X connect 53 0 18 2;
#X connect 54 0 53 0;
#X connect 55 0 56 1;
#X connect 55 0 57 0;
#X connect 56 0 23 2;
#X connect 56 0 26 0;
#X connect 57 0 56 0;
#X connect 58 0 59 1;
#X connect 58 0 60 0;
#X connect 59 0 32 0;
#X connect 59 0 29 2;
#X connect 60 0 59 0;
#X connect 61 0 62 1;
#X connect 61 0 63 0;
#X connect 62 0 38 0;
#X connect 62 0 34 2;
#X connect 63 0 62 0;
#X connect 67 0 29 3;
#X connect 67 0 68 0;
#X connect 70 0 71 0;
#X connect 70 0 34 3;
#X connect 74 0 80 0;
#X connect 75 0 73 0;
#X connect 76 0 77 0;
#X connect 76 0 73 1;
#X connect 79 0 80 1;
#X connect 79 0 81 0;
#X connect 80 0 78 0;
#X connect 80 0 73 2;
#X connect 81 0 80 0;
#X connect 82 0 73 3;
#X connect 82 0 83 0;
#X connect 99 0 85 0;
#X connect 103 0 101 0;


More information about the Pd-list mailing list