patches/lib/audio/sampler~.pd

#N canvas 0 104 755 568 12;
#X obj 343 45 inlet~;
#X obj 595 373 outlet~;
#X text 422 47 <- sound in;
#X obj 52 14 inlet;
#X obj 609 327 hip~ 3;
#X msg 165 188 start;
#X msg 108 149 stop;
#X obj 135 20 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 609 270 tabread~ out\$0;
#X obj 177 443 tabwrite~ in\$0;
#X obj 95 478 array define out\$0 4.8e+06;
#X obj 79 520 array define in\$0 4.8e+06;
#X obj 492 252 timer 1 samp;
#X msg 479 213 bang;
#X msg 540 211 bang;
#X obj 623 173 expr~ $v1*($v2-1);
#X obj 77 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 80 80 route 0 1;
#N canvas 0 104 755 568 load-file 1;
#X obj 248 224 soundfiler;
#X msg 288 13 bang;
#X obj 229 148 list;
#X obj 391 28 loadbang;
#X obj 266 125 list trim;
#X obj 241 178 list trim;
#X obj 136 24 inlet;
#X obj 144 98 list prepend;
#X obj 125 400 array define read\$0;
#X obj 268 96 symbol read\$0;
#X msg 239 54 read -resize;
#X obj 274 301 outlet;
#X obj 130 356 array set out\$0;
#X msg 132 289 bang;
#X obj 130 321 array get read\$0;
#X obj 478 29 inlet;
#X text 539 31 current out array;
#X obj 479 70 list split 1;
#X connect 0 0 11 0;
#X connect 0 0 13 0;
#X connect 1 0 10 0;
#X connect 1 0 9 0;
#X connect 2 0 5 0;
#X connect 3 0 10 0;
#X connect 3 0 9 0;
#X connect 4 0 2 1;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X connect 9 0 4 0;
#X connect 10 0 7 1;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X connect 15 0 17 0;
#X connect 17 1 12 2;
#X restore 199 147 pd load-file;
#X obj 522 414 /;
#X obj 488 377 samplerate~;
#X obj 503 322 t f b;
#X obj 499 281 f;
#X obj 760 243 snapshot~;
#X floatatom 765 278 5 0 0 0 - - -, f 5;
#X obj 773 200 bang~;
#X floatatom 507 463 5 0 0 0 - - -, f 5;
#X obj 583 47 expr 1/$f1;
#X obj 624 143 phasor~;
#X obj 569 9 inlet;
#X text 620 16 <- offset;
#X text 788 51 speed;
#X obj 605 83 f;
#X text 409 507 should have a "raw" signal inlet too;
#X obj 744 31 inlet~;
#X obj 611 115 *~ 1;
#X obj 66 216 s switch\$0;
#N canvas 0 50 755 568 switch 0;
#X obj 161 316 outlet;
#X obj 388 314 outlet;
#X obj 196 105 route 0;
#X obj 162 191 symbol in\$0;
#X obj 260 191 symbol out\$0;
#X obj 164 165 bang;
#X obj 261 160 bang;
#X obj 164 232 list prepend;
#X msg 386 93 set;
#X obj 169 264 list trim;
#X obj 191 23 inlet;
#X obj 198 52 bang;
#X obj 199 78 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 357 239 list prepend;
#X obj 362 271 list trim;
#X obj 374 162 bang;
#X obj 485 156 bang;
#X obj 372 187 symbol out\$0;
#X obj 483 187 symbol in\$0;
#X obj 387 60 loadbang;
#X connect 2 0 5 0;
#X connect 2 0 15 0;
#X connect 2 1 6 0;
#X connect 2 1 16 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 5 0 3 0;
#X connect 6 0 4 0;
#X connect 7 0 9 0;
#X connect 8 0 7 1;
#X connect 8 0 13 1;
#X connect 9 0 0 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 2 0;
#X connect 13 0 14 0;
#X connect 14 0 1 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 13 0;
#X connect 18 0 13 0;
#X connect 19 0 8 0;
#X restore 280 279 pd switch;
#X obj 740 62 +~ 1;
#X connect 0 0 9 0;
#X connect 3 0 17 0;
#X connect 4 0 1 0;
#X connect 5 0 9 0;
#X connect 5 0 13 0;
#X connect 6 0 9 0;
#X connect 6 0 14 0;
#X connect 6 0 36 0;
#X connect 6 0 37 0;
#X connect 7 0 17 0;
#X connect 8 0 4 0;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 14 0 12 1;
#X connect 15 0 8 0;
#X connect 15 0 23 0;
#X connect 17 0 6 0;
#X connect 17 0 16 0;
#X connect 17 1 5 0;
#X connect 17 2 18 0;
#X connect 18 0 22 0;
#X connect 19 0 26 0;
#X connect 19 0 27 0;
#X connect 20 0 19 1;
#X connect 21 0 19 0;
#X connect 21 1 20 0;
#X connect 22 0 21 0;
#X connect 22 0 15 1;
#X connect 23 0 24 0;
#X connect 25 0 23 0;
#X connect 27 0 32 0;
#X connect 27 0 32 1;
#X connect 28 0 15 0;
#X connect 29 0 28 1;
#X connect 32 0 35 1;
#X connect 34 0 38 0;
#X connect 35 0 28 0;
#X connect 37 0 9 0;
#X connect 37 0 18 1;
#X connect 37 1 8 0;
#X connect 38 0 35 0;