#N canvas 111 106 635 630 10;
#X obj 456 76 inlet;
#X obj 36 36 inlet;
#X obj 36 591 outlet~;
#X obj 36 461 tabread4~;
#X obj 36 301 list prepend set;
#X obj 36 331 list trim;
#X obj 51 431 vline~;
#N canvas 480 39 1064 786 trigger-sample 1;
#X text 20 165 Wait for the;
#X text 18 179 cutoff to finish;
#X text 83 435 set the upper line~ to start;
#X text 82 454 at the first sample and go;
#X text 81 475 forever (until the next trigger);
#X obj 122 202 t b b;
#X obj 299 645 s \$0-phase;
#X obj 122 315 s \$0-cutoff;
#X obj 122 52 inlet;
#X obj 149 142 s \$0-cutoff;
#X text 16 143 cut the sound off;
#X obj 122 266 f;
#X obj 264 52 inlet;
#X obj 122 82 t b b;
#X text 267 30 gain;
#X obj 314 52 inlet;
#X text 313 30 transpos;
#X obj 299 465 * 1e+07;
#X obj 299 435 f 1;
#X obj 341 233 moses 0;
#X obj 448 646 s \$0-phase;
#X obj 448 466 * 1e+07;
#X obj 448 436 f 1;
#X obj 463 406 abs;
#X obj 314 73 t a a;
#X obj 299 307 < 0;
#X obj 299 331 select 0 1;
#X obj 299 285 f;
#X obj 122 172 delay 2;
#X obj 416 52 inlet;
#X text 413 32 start;
#X obj 633 85 inlet;
#X obj 299 555 unpack 0 0;
#X obj 299 585 + 0;
#X obj 299 615 pack 0 0;
#X text 468 111 ms to samples;
#X text 671 84 duration;
#X obj 633 115 select 0;
#X obj 678 175 delay;
#X obj 855 45 inlet;
#X text 852 24 loops;
#X obj 736 270 outlet;
#X obj 678 145 - 2;
#X obj 736 235 delay 2;
#X obj 448 556 unpack 0 0;
#X obj 448 586 + 0;
#X obj 448 616 pack 0 0;
#X msg 633 145 stop;
#X obj 455 82 / 1000;
#X obj 455 52 r \$0-sr;
#X obj 448 496 pack 0 -2.205e+08;
#X msg 448 526 1 0 \, \$2 \$1;
#X obj 547 438 r \$0-sr;
#X obj 547 468 * -10000;
#X obj 392 435 r \$0-sr;
#X obj 392 465 * 10000;
#X obj 299 495 pack 0 2.205e+08;
#X msg 299 525 1 0 \, \$2 \$1;
#X obj 709 115 r \$0-stop;
#X obj 149 112 pack 0 2;
#X obj 678 365 s \$0-cutoff;
#X obj 678 335 pack 0 2;
#X obj 341 185 swap 1;
#X obj 341 210 /;
#X obj 167 82 t f f;
#X obj 416 134 t f f;
#X obj 748 82 t f f;
#X obj 678 205 t f f;
#X obj 167 52 r \$0-fade-out;
#X obj 122 290 pack 0 0;
#X obj 175 265 r \$0-fade-in;
#X obj 723 305 r \$0-fade-out;
#X obj 748 52 r \$0-fade-out;
#X obj 709 145 t a a;
#X obj 416 112 * 44.1;
#X connect 5 0 11 0;
#X connect 5 1 27 0;
#X connect 8 0 13 0;
#X connect 11 0 69 0;
#X connect 12 0 11 1;
#X connect 13 0 28 0;
#X connect 13 1 59 0;
#X connect 15 0 24 0;
#X connect 17 0 56 0;
#X connect 18 0 17 0;
#X connect 19 0 23 0;
#X connect 19 1 18 1;
#X connect 21 0 50 0;
#X connect 22 0 21 0;
#X connect 23 0 22 1;
#X connect 24 0 27 1;
#X connect 24 1 62 0;
#X connect 25 0 26 0;
#X connect 26 0 18 0;
#X connect 26 1 22 0;
#X connect 27 0 25 0;
#X connect 28 0 5 0;
#X connect 29 0 74 0;
#X connect 31 0 37 0;
#X connect 32 0 33 0;
#X connect 32 1 34 1;
#X connect 33 0 34 0;
#X connect 34 0 6 0;
#X connect 37 0 47 0;
#X connect 37 1 42 0;
#X connect 38 0 67 0;
#X connect 42 0 38 0;
#X connect 43 0 41 0;
#X connect 44 0 45 0;
#X connect 44 1 46 1;
#X connect 45 0 46 0;
#X connect 46 0 20 0;
#X connect 47 0 38 0;
#X connect 48 0 74 1;
#X connect 49 0 48 0;
#X connect 50 0 51 0;
#X connect 51 0 44 0;
#X connect 52 0 53 0;
#X connect 53 0 50 1;
#X connect 54 0 55 0;
#X connect 55 0 56 1;
#X connect 56 0 57 0;
#X connect 57 0 32 0;
#X connect 58 0 73 0;
#X connect 59 0 9 0;
#X connect 61 0 60 0;
#X connect 62 0 63 0;
#X connect 62 1 63 1;
#X connect 63 0 19 0;
#X connect 64 0 28 1;
#X connect 64 1 59 1;
#X connect 65 0 33 1;
#X connect 65 1 45 1;
#X connect 66 0 42 1;
#X connect 66 1 43 1;
#X connect 67 0 61 0;
#X connect 67 1 43 0;
#X connect 68 0 64 0;
#X connect 69 0 7 0;
#X connect 70 0 69 1;
#X connect 71 0 61 1;
#X connect 72 0 66 0;
#X connect 73 0 38 0;
#X connect 73 1 43 0;
#X connect 74 0 65 0;
#X restore 55 236 pd trigger-sample;
#X obj 51 501 r \$0-cutoff;
#X obj 36 561 *~;
#X obj 51 531 vline~;
#X obj 61 401 r \$0-phase;
#X text 79 28 IN: tablename gain transposition start(ms) duration(ms)
loop(0/1);
#X text 495 75 dispatcher (later);
#X obj 36 146 list;
#N canvas 262 214 523 499 defaults 0;
#X msg 57 404 1;
#X obj 23 24 inlet;
#X obj 23 54 list split 1;
#X obj 57 84 t a b;
#X obj 57 144 unpack 1 2 3 4 5;
#X text 149 114 defaults: gain 1 \, trans 1 \, start 0 \, dur 0==all
\, loops 0;
#X msg 84 114 1 1 0 0 0;
#X obj 57 454 outlet gain;
#X obj 57 374 select 0;
#X msg 80 294 1;
#X obj 80 264 select 0;
#X obj 80 344 outlet transpos;
#X obj 103 234 outlet start;
#X obj 126 204 outlet duration;
#X obj 150 174 outlet loops;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 2 2 3 0;
#X connect 3 0 4 0;
#X connect 3 1 6 0;
#X connect 4 0 8 0;
#X connect 4 1 10 0;
#X connect 4 2 12 0;
#X connect 4 3 13 0;
#X connect 4 4 14 0;
#X connect 6 0 4 0;
#X connect 8 0 0 0;
#X connect 8 1 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 10 1 11 0;
#X restore 75 206 pd defaults;
#X obj 93 96 t b a;
#X obj 36 66 route bang;
#X obj 55 266 outlet;
#X text 100 266 bangs at end of duration \, if specified;
#X obj 36 176 t a a a;
#N canvas 0 22 190 276 sr 0;
#X obj 32 29 inlet;
#X obj 32 89 route sr;
#X obj 32 59 list trim;
#X obj 77 119 outlet;
#X obj 32 219 s \$0-sr;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 1 0;
#X restore 456 106 pd sr;
#N canvas 0 22 492 417 stop 0;
#X obj 80 49 inlet;
#X obj 80 74 list trim;
#X obj 147 131 outlet;
#X obj 80 101 route stop;
#X obj 155 271 s \$0-cutoff;
#X obj 80 128 b;
#X obj 80 290 s \$0-stop;
#X msg 80 268 stop;
#X obj 80 247 delay 2;
#X obj 155 249 pack 0 2;
#X obj 151 201 r \$0-fade-out;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 2 0;
#X connect 5 0 8 0;
#X connect 5 0 9 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 4 0;
#X connect 10 0 8 1;
#X connect 10 0 9 1;
#X restore 456 136 pd stop;
#X obj 51 371 r \$0-stop;
#N canvas 0 22 492 417 fade 0;
#X obj 80 49 inlet;
#X obj 80 74 list trim;
#X obj 147 131 outlet;
#X obj 80 101 route fade;
#X obj 80 238 max 0;
#X obj 80 264 s \$0-fade-in;
#X obj 80 167 unpack 0 0;
#X obj 172 238 max 0;
#X obj 172 264 s \$0-fade-out;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X connect 6 1 7 0;
#X connect 7 0 8 0;
#X restore 456 166 pd fade;
#N canvas 228 198 627 317 LICENSE-BSD 0;
#X text 121 56 This software is copyrighted by Miller Puckette \, Reality
Jockey Ltd. and others. The terms (the "Standard Improved BSD License")
apply to all files associated with the software unless explicitly disclaimed
in individual files.;
#X text 123 148 See the file LICENSE.txt for the full license text.
;
#X restore 456 36 pd LICENSE-BSD;
#N canvas 0 22 256 258 calc 0;
#X obj 55 65 unpack 0 0;
#X obj 55 125 pack 0 0;
#X msg 55 155 set \$1 \$2;
#X msg 55 185 2.205e+08 1e+07;
#X msg 55 35 22050 1000;
#X floatatom 151 65 5 0 0 0 - - -;
#X obj 112 95 * 10000;
#X obj 55 95 * 10000;
#X connect 0 0 7 0;
#X connect 0 1 6 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X connect 5 0 6 1;
#X connect 5 0 7 1;
#X connect 6 0 1 1;
#X connect 7 0 1 0;
#X restore 456 196 pd calc;
#X obj 307 382 r RJLIB;
#X obj 307 403 route sf-samplerate;
#X obj 307 425 s \$0-sr;
#X text 303 361 Allow global setting of soundfile samplerate;
#X connect 0 0 21 0;
#X connect 1 0 17 0;
#X connect 3 0 9 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 18 0;
#X connect 8 0 10 0;
#X connect 9 0 2 0;
#X connect 10 0 9 1;
#X connect 11 0 6 0;
#X connect 14 0 20 0;
#X connect 15 0 7 1;
#X connect 15 1 7 2;
#X connect 15 2 7 3;
#X connect 15 3 7 4;
#X connect 15 4 7 5;
#X connect 16 0 14 0;
#X connect 16 1 14 1;
#X connect 17 0 14 0;
#X connect 17 1 16 0;
#X connect 20 0 4 0;
#X connect 20 1 7 0;
#X connect 20 2 15 0;
#X connect 21 0 22 0;
#X connect 22 0 24 0;
#X connect 23 0 6 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
