sampler.pd

#N canvas 508 92 1256 819 10;
#X obj 204 109 cnv 5 5 5 empty empty LENGTH 0 0 0 8 -262144 -120682
0;
#X obj 124 126 cnv 5 5 5 empty empty SAMPLER 0 0 0 12 -262144 -66577
0;
#X obj 105 328 cnv 5 5 5 empty empty OUT_L 0 0 0 8 -262144 -66577 0
;
#X obj 185 126 cnv 5 5 5 empty \$0-instance-num 3 0 0 0 12 -262144
-66577 0;
#X obj 252 109 cnv 5 5 5 empty empty START 0 0 0 8 -262144 -120682
0;
#X obj 46 354 cnv 15 400 600 empty empty load_file 20 12 0 14 -233017
-66577 0;
#X obj 457 354 cnv 15 655 955 empty empty sampler 20 12 0 14 -261682
-66577 0;
#X obj 227 400 bng 30 250 50 0 empty empty empty 17 7 0 10 -204800
-1 -1;
#X floatatom 227 474 20 0 0 0 - - -, f 20;
#X obj 227 631 /;
#X obj 227 577 t b f;
#X obj 670 1073 *~;
#X obj 670 930 *~;
#X obj 669 987 +~;
#X obj 107 208 hsl 128 15 -2 2 0 1 \$0-sampler-pitch-s \$0-sampler-pitch-r
PITCH 133 7 0 10 -262144 -1 -1 5325 1;
#X obj 107 223 hsl 128 15 0 127 0 1 \$0-sampler-length-s \$0-sampler-length-r
LENGTH 133 7 0 10 -262144 -1 -1 8700 1;
#X obj 107 238 hsl 128 15 0 127 0 0 \$0-sampler-start-s \$0-sampler-start-r
START 133 7 0 10 -262144 -1 -1 2800 1;
#X obj 670 731 phasor~;
#X text 73 405 Get path to sample;
#X text 510 983 Sample start position;
#X text 560 927 Sample length;
#X text 547 568 Freq adjustment;
#X text 50 608 Calculate freq based;
#X text 74 625 off of sample size;
#X text 518 389 Adjust freq for;
#X text 494 406 new sample length;
#X obj 668 1197 outlet~;
#X obj 104 158 bng 15 250 50 0 \$0-open empty OPEN_FILE 18 7 0 10 -204800
-1 -1;
#X obj 272 405 r \$0-open;
#X obj 671 847 *~;
#X text 530 699 Loop or one shot;
#X obj 222 158 tgl 15 1 \$0-loop-on-off-s \$0-loop-on-off-r LOOP 18
7 0 10 -204800 -1 -1 1 1;
#X obj 521 118 s \$0-bang;
#N canvas 30 510 526 376 open 0;
#X obj 242 56 openpanel;
#X obj 242 289 soundfiler;
#X text 150 290 Load sample;
#X obj 242 22 inlet;
#X obj 242 314 outlet;
#X obj 242 237 pack s s s;
#X obj 242 142 t a b b;
#X msg 242 262 read -resize \$1 \$2 \$3;
#X obj 280 172 symbol \$0-sample-L;
#X obj 319 202 symbol \$0-sample-R;
#X obj 261 76 r \$0-filename-r;
#X obj 261 116 s \$0-filename-s;
#X obj 53 182 s \$0-sample-display-name;
#N canvas 461 141 1318 808 get-file-name 0;
#X obj 468 39 inlet;
#X obj 468 68 list fromsymbol;
#X obj 468 240 list split 1;
#X obj 468 215 list append;
#X text 54 185 First store list \, then start the loop;
#X text 551 156 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 49 238 third outlet of "split" tells us to stop.;
#X text 49 260 Second outlet of "split" becomes the new list for "list
append" above.;
#X text 50 299 First outlet is the output.;
#X obj 510 541 list prepend;
#X obj 591 507 list;
#X obj 468 104 t b b l;
#X obj 624 723 spigot;
#X msg 705 694 1;
#X msg 669 694 0;
#X obj 624 757 list tosymbol;
#X obj 669 668 t b b b;
#X obj 624 782 outlet;
#X text 36 92 32 is the symbol for space;
#X text 36 110 47 is the symbol for /;
#X msg 429 507 47;
#X obj 468 490 t b;
#X obj 468 466 route 47 32;
#X text 36 145 95 is the symbol for _;
#X text 33 35 This patch substrings a path to only get the name of
the file itself. EX: ../folder/file.wav -> file.wav;
#X text 35 70 Replaces any space with an underscore;
#X obj 689 241 f 0;
#X obj 724 241 + 1;
#X obj 468 179 t b b;
#X obj 671 310 sel 1;
#X msg 707 220 0;
#X obj 689 263 > 20;
#X obj 549 266 t b b;
#X obj 671 290 f;
#X obj 769 358 - 20;
#X obj 751 379 f;
#X obj 584 573 list split 1;
#X msg 703 333 1;
#X obj 671 362 t b b;
#X text 789 230 Count the number of characters;
#X text 790 259 If its greater than the maximum \, we split off the
extra at the beginning \, then place three dots (code 46) at the beginning
of the final filename;
#X text 51 212 Store the remaining list with [list append].;
#X text 816 332 Split off the / at the beginning \, or split off the
number of characters greater than the maximum;
#X text 152 722 When we reach the end of the list \, send the output
converted back to a symbol;
#X text 36 128 46 is the symbol for .;
#N canvas 491 691 398 257 add-three-dots 0;
#X obj 126 168 list prepend 46 46 46;
#X obj 35 15 inlet;
#X obj 35 233 outlet;
#X msg 99 115 1;
#X msg 63 115 0;
#X msg 190 114 1;
#X msg 154 114 0;
#X obj 126 190 t b a;
#X obj 193 14 inlet;
#X obj 35 144 spigot 1;
#X obj 126 143 spigot 0;
#X connect 0 0 7 0;
#X connect 1 0 9 0;
#X connect 1 0 10 0;
#X connect 3 0 9 1;
#X connect 4 0 9 1;
#X connect 5 0 10 1;
#X connect 6 0 10 1;
#X connect 7 0 6 0;
#X connect 7 0 3 0;
#X connect 7 1 2 0;
#X connect 8 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 2 0;
#X connect 10 0 0 0;
#X restore 624 625 pd add-three-dots;
#X floatatom 729 264 5 0 0 0 - - -, f 5;
#X floatatom 757 405 5 0 0 0 - - -, f 5;
#X floatatom 784 383 5 0 0 0 - - -, f 5;
#X obj 468 157 until;
#X text 792 201 Every time we hit a / we restart the counter;
#X msg 510 491 32;
#X text 11 464 Use route to separate / and spaces from the rest of
the list. You can replace the spaces with _ by changing the 32 message
to a 95;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 2 0 22 0;
#X connect 2 1 3 1;
#X connect 2 2 32 0;
#X connect 3 0 2 0;
#X connect 9 0 10 0;
#X connect 9 0 36 0;
#X connect 10 0 9 1;
#X connect 11 0 49 0;
#X connect 11 1 20 0;
#X connect 11 1 30 0;
#X connect 11 2 3 1;
#X connect 12 0 15 0;
#X connect 13 0 12 1;
#X connect 14 0 12 1;
#X connect 15 0 17 0;
#X connect 16 0 14 0;
#X connect 16 1 9 0;
#X connect 16 2 13 0;
#X connect 20 0 10 0;
#X connect 21 0 20 0;
#X connect 21 0 30 0;
#X connect 22 0 21 0;
#X connect 22 1 51 0;
#X connect 22 2 9 0;
#X connect 26 0 27 0;
#X connect 26 0 31 0;
#X connect 26 0 34 0;
#X connect 26 0 46 0;
#X connect 27 0 26 1;
#X connect 28 0 3 0;
#X connect 28 1 26 0;
#X connect 29 0 38 0;
#X connect 29 1 37 0;
#X connect 30 0 26 1;
#X connect 31 0 33 1;
#X connect 32 0 16 0;
#X connect 32 0 49 1;
#X connect 32 1 33 0;
#X connect 33 0 29 0;
#X connect 34 0 35 1;
#X connect 34 0 48 0;
#X connect 35 0 36 1;
#X connect 35 0 47 0;
#X connect 36 1 45 0;
#X connect 37 0 36 1;
#X connect 38 0 45 1;
#X connect 38 1 35 0;
#X connect 45 0 12 0;
#X connect 49 0 28 0;
#X connect 51 0 9 0;
#X restore 53 124 pd get-file-name;
#X msg 53 146 label \$1;
#X connect 0 0 6 0;
#X connect 0 0 11 0;
#X connect 0 0 13 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 6 1 8 0;
#X connect 6 2 9 0;
#X connect 7 0 1 0;
#X connect 8 0 5 1;
#X connect 9 0 5 2;
#X connect 10 0 6 0;
#X connect 10 0 11 0;
#X connect 10 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X restore 227 447 pd open file;
#X text 466 1074 Scale to length of sample;
#X obj 670 1015 wrap~;
#X obj 227 656 s \$0-normal-freq;
#X obj 687 464 r \$0-normal-freq;
#X obj 259 534 s \$0-file-size;
#X obj 688 1046 r \$0-file-size;
#X obj 736 1196 outlet~;
#N canvas 0 101 1106 875 state-saving-multiple-instances 0;
#X obj 683 25 loadbang;
#X obj 739 399 textfile;
#X msg 979 352 rewind;
#X msg 933 352 bang;
#X obj 368 548 textfile;
#X obj 368 194 f;
#X obj 380 477 f;
#X msg 444 477 clear;
#X obj 761 223 outlet;
#X text 811 224 INSTANCE NUMBER;
#X obj 715 159 f \$1;
#X obj 129 65 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 129 41 r SAVE-S;
#X msg 380 518 write statesave/\$1-sampler-ss.txt;
#X msg 739 254 read statesave/\$1-sampler-ss.txt;
#X obj 747 122 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 386 61 r \$0-sampler-pitch-s;
#X obj 397 83 r \$0-sampler-length-s;
#X obj 407 105 r \$0-sampler-start-s;
#X obj 426 130 r \$0-sampler-pitch-att-s;
#X obj 446 155 r \$0-sampler-length-att-s;
#X obj 465 178 r \$0-sampler-start-att-s;
#X obj 485 201 r \$0-loop-on-off-s;
#X obj 889 694 s \$0-sampler-pitch-r;
#X obj 910 670 s \$0-sampler-length-r;
#X obj 932 646 s \$0-sampler-start-r;
#X obj 953 622 s \$0-sampler-pitch-att-r;
#X obj 975 596 s \$0-sampler-length-att-r;
#X obj 996 572 s \$0-sampler-start-att-r;
#X obj 1018 549 s \$0-loop-on-off-r;
#X obj 174 203 r \$0-filename-s;
#X obj 505 224 r \$0-sample-rate-s;
#X obj 1040 526 s \$0-sample-rate-r;
#X msg 368 305 set \$1 \$2 \$3 \$4 \$5 \$6 \$7 \$8;
#X obj 368 268 pack f f f f f f f f;
#X obj 129 98 t b b b b;
#X msg 149 293 add \$1;
#X obj 149 270 list;
#X obj 739 644 s \$0-filename-r;
#N canvas 640 221 748 742 list-to-symbol 0;
#X obj 85 190 list split 1;
#X obj 85 77 until;
#X obj 85 12 inlet;
#X obj 85 162 list append;
#X obj 56 431 list;
#X obj 85 406 list prepend;
#X obj 85 265 list fromsymbol;
#X obj 56 643 list tosymbol;
#X obj 85 310 spigot;
#X obj 178 310 spigot;
#X obj 85 44 t b a b;
#X msg 152 71 0;
#X obj 85 102 f 0;
#X obj 118 102 + 1;
#X obj 85 127 t b f;
#X obj 271 155 sel 0;
#X msg 271 200 0;
#X msg 411 200 1;
#X msg 371 200 0;
#X msg 308 200 1;
#X obj 56 698 outlet;
#X obj 48 236 t b a;
#X msg 48 265 32;
#X obj 56 563 list split;
#X obj 109 485 print before-split;
#X obj 56 456 t a a a;
#X obj 133 511 list length;
#X obj 133 536 - 1;
#X obj 56 588 t a a;
#X obj 178 376 t a;
#X obj 178 217 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 260 257 After each item in the list \, insert a space by using
the keycode 32;
#X text 266 414 After we have looped through all of the items in the
list \, we are left with a space (32) at the end \, so we remove this
by spliting the list at length - 1;
#X text 265 484 <--Connect this print object for debugging;
#X text 241 617 <--Connect this print object for debugging;
#X text 271 116 For the first character \, add it to the right inlet
of prepend \, all other characters go to the left inlet.;
#X text 266 12 This patch will convert a space separated list into
a single symbol.;
#X obj 93 617 print after-split;
#X obj 71 676 print final-symbol;
#X text 241 657 <--Connect this print object for debugging;
#X connect 0 0 21 0;
#X connect 0 1 3 1;
#X connect 0 2 30 0;
#X connect 1 0 12 0;
#X connect 2 0 10 0;
#X connect 3 0 0 0;
#X connect 4 0 25 0;
#X connect 5 0 4 1;
#X connect 5 0 29 0;
#X connect 6 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 20 0;
#X connect 8 0 5 0;
#X connect 9 0 29 0;
#X connect 10 0 1 0;
#X connect 10 1 3 1;
#X connect 10 2 11 0;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 14 0 3 0;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 15 0 17 0;
#X connect 15 1 18 0;
#X connect 15 1 19 0;
#X connect 16 0 8 1;
#X connect 17 0 9 1;
#X connect 18 0 9 1;
#X connect 19 0 8 1;
#X connect 21 0 22 0;
#X connect 21 1 6 0;
#X connect 22 0 5 0;
#X connect 23 0 28 0;
#X connect 25 0 23 0;
#X connect 25 1 26 0;
#X connect 26 0 27 0;
#X connect 27 0 23 1;
#X connect 28 0 7 0;
#X connect 29 0 5 1;
#X connect 30 0 1 1;
#X connect 30 0 4 0;
#X restore 739 621 pd list-to-symbol;
#X obj 889 501 unpack f f f f f f f f;
#X obj 715 195 t f f f;
#X obj 889 480 spigot;
#X msg 956 460 1, f 2;
#X msg 926 460 0, f 2;
#X obj 739 479 spigot;
#X msg 806 459 1, f 2;
#X msg 776 459 0, f 2;
#X msg 774 342 bang;
#X obj 933 317 t b b b;
#X obj 774 317 t b b;
#X obj 683 68 t b b b;
#X text 933 299 Read first line;
#X text 775 297 Read seccond line;
#X text 381 340 Save gui state on first line of file;
#X text 22 349 Save filename on seccond line of file;
#X text 190 617 If the filename has spaces in it \, by default Pure
Data would treat this as a List. We need to convert this list into
a single symbol.;
#X text 638 621 ------->>>>;
#X connect 0 0 51 0;
#X connect 1 0 42 0;
#X connect 1 0 45 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 5 0 34 0;
#X connect 6 0 13 0;
#X connect 7 0 4 0;
#X connect 10 0 41 0;
#X connect 11 0 35 0;
#X connect 12 0 11 0;
#X connect 13 0 4 0;
#X connect 14 0 1 0;
#X connect 15 0 10 0;
#X connect 16 0 5 1;
#X connect 17 0 34 1;
#X connect 18 0 34 2;
#X connect 19 0 34 3;
#X connect 20 0 34 4;
#X connect 21 0 34 5;
#X connect 22 0 34 6;
#X connect 30 0 37 1;
#X connect 31 0 34 7;
#X connect 33 0 4 0;
#X connect 34 0 33 0;
#X connect 35 0 6 0;
#X connect 35 1 37 0;
#X connect 35 2 5 0;
#X connect 35 3 7 0;
#X connect 36 0 4 0;
#X connect 37 0 36 0;
#X connect 39 0 38 0;
#X connect 40 0 23 0;
#X connect 40 1 24 0;
#X connect 40 2 25 0;
#X connect 40 3 26 0;
#X connect 40 4 27 0;
#X connect 40 5 28 0;
#X connect 40 6 29 0;
#X connect 40 7 32 0;
#X connect 41 0 6 1;
#X connect 41 1 14 0;
#X connect 41 2 8 0;
#X connect 42 0 40 0;
#X connect 43 0 42 1;
#X connect 44 0 42 1;
#X connect 45 0 39 0;
#X connect 46 0 45 1;
#X connect 47 0 45 1;
#X connect 48 0 1 0;
#X connect 49 0 3 0;
#X connect 49 1 43 0;
#X connect 49 1 47 0;
#X connect 49 2 2 0;
#X connect 50 0 48 0;
#X connect 50 1 46 0;
#X connect 50 1 44 0;
#X connect 51 0 50 0;
#X connect 51 1 49 0;
#X connect 51 2 10 0;
#X restore 587 221 pd state-saving-multiple-instances;
#X obj 587 296 s \$0-instance-num;
#X obj 587 248 makefilename %d;
#X msg 587 273 label \$1;
#N canvas 607 137 1205 745 state-saving-via-preset-manager-module 0
;
#X obj 690 337 textfile;
#X msg 931 294 rewind;
#X msg 888 294 bang;
#X obj 357 568 textfile;
#X obj 357 234 f;
#X obj 371 457 f;
#X msg 487 499 clear;
#X obj 357 56 delay 5;
#X obj 263 367 delay 10;
#X msg 263 292 bang;
#X obj 263 26 r STORE-S!;
#X obj 690 128 f;
#X obj 676 49 t b f;
#X obj 735 146 f \$1;
#X obj 690 173 pack f f;
#X obj 735 96 loadbang;
#X obj 371 487 pack f f;
#X obj 424 440 loadbang;
#X obj 424 462 f \$1;
#X obj 844 1086 pack f f;
#X obj 844 1110 line;
#X obj 897 1061 r preset-manager-morph-s;
#X obj 676 26 r preset-manager-scan;
#X obj 866 991 pack f f;
#X obj 866 1015 line;
#X obj 919 966 r preset-manager-morph-s;
#X obj 389 418 r preset-manager-store-slot;
#X obj 889 915 line;
#X obj 942 864 r preset-manager-morph-s;
#X msg 529 865 stop;
#X obj 529 798 r STOP-MORPH!;
#X obj 889 891 pack f f;
#X obj 935 660 pack f f;
#X obj 935 684 line;
#X obj 988 635 r preset-manager-morph-s;
#X obj 912 792 line;
#X obj 965 741 r preset-manager-morph-s;
#X obj 912 768 pack f f;
#X msg 690 202 read statesave/\$1-\$2-sampler-ss.txt;
#X msg 370 528 write statesave/\$1-\$2-sampler-ss.txt;
#X obj 375 78 r \$0-sampler-pitch-s;
#X obj 386 112 r \$0-sampler-length-s;
#X obj 396 138 r \$0-sampler-start-s;
#X obj 415 169 r \$0-sampler-pitch-att-s;
#X obj 434 195 r \$0-sampler-length-att-s;
#X obj 454 220 r \$0-sampler-start-att-s;
#X obj 844 1135 s \$0-sampler-pitch-r;
#X obj 958 550 pack f f;
#X obj 958 574 line;
#X obj 1011 525 r preset-manager-morph-s;
#X obj 958 597 s \$0-sampler-start-att-r;
#X obj 935 707 s \$0-sampler-length-att-r;
#X obj 912 815 s \$0-sampler-pitch-att-r;
#X obj 889 938 s \$0-sampler-start-r;
#X obj 866 1038 s \$0-sampler-length-r;
#X obj 474 246 r \$0-loop-on-off-s;
#X obj 973 496 s \$0-loop-on-off-r;
#X obj 144 432 r \$0-filename-s;
#X obj 494 272 r \$0-sample-rate-s;
#X obj 995 466 s \$0-sample-rate-r;
#X obj 844 439 unpack f f f f f f f f;
#X obj 357 301 pack f f f f f f f f;
#X obj 263 322 t b b b b;
#X obj 119 454 list;
#X msg 119 476 add \$1;
#X msg 357 368 set \$1 \$2 \$3 \$4 \$5 \$6 \$7 \$8;
#X obj 844 418 spigot;
#X msg 911 398 1, f 2;
#X msg 881 398 0, f 2;
#X obj 690 417 spigot;
#X msg 757 397 1, f 2;
#X msg 727 397 0, f 2;
#X obj 690 686 s \$0-filename-r;
#N canvas 640 221 748 742 list-to-symbol 0;
#X obj 85 190 list split 1;
#X obj 85 77 until;
#X obj 85 12 inlet;
#X obj 85 162 list append;
#X obj 56 431 list;
#X obj 85 406 list prepend;
#X obj 85 265 list fromsymbol;
#X obj 56 643 list tosymbol;
#X obj 85 310 spigot;
#X obj 178 310 spigot;
#X obj 85 44 t b a b;
#X msg 152 71 0;
#X obj 85 102 f 0;
#X obj 118 102 + 1;
#X obj 85 127 t b f;
#X obj 271 155 sel 0;
#X msg 271 200 0;
#X msg 411 200 1;
#X msg 371 200 0;
#X msg 308 200 1;
#X obj 56 698 outlet;
#X obj 48 236 t b a;
#X msg 48 265 32;
#X obj 56 563 list split;
#X obj 109 485 print before-split;
#X obj 56 456 t a a a;
#X obj 133 511 list length;
#X obj 133 536 - 1;
#X obj 56 588 t a a;
#X obj 178 376 t a;
#X obj 178 217 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 260 257 After each item in the list \, insert a space by using
the keycode 32;
#X text 266 414 After we have looped through all of the items in the
list \, we are left with a space (32) at the end \, so we remove this
by spliting the list at length - 1;
#X text 265 484 <--Connect this print object for debugging;
#X text 241 617 <--Connect this print object for debugging;
#X text 271 116 For the first character \, add it to the right inlet
of prepend \, all other characters go to the left inlet.;
#X text 266 12 This patch will convert a space separated list into
a single symbol.;
#X obj 93 617 print after-split;
#X obj 71 676 print final-symbol;
#X text 241 657 <--Connect this print object for debugging;
#X connect 0 0 21 0;
#X connect 0 1 3 1;
#X connect 0 2 30 0;
#X connect 1 0 12 0;
#X connect 2 0 10 0;
#X connect 3 0 0 0;
#X connect 4 0 25 0;
#X connect 5 0 4 1;
#X connect 5 0 29 0;
#X connect 6 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 20 0;
#X connect 8 0 5 0;
#X connect 9 0 29 0;
#X connect 10 0 1 0;
#X connect 10 1 3 1;
#X connect 10 2 11 0;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 14 0 3 0;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 15 0 17 0;
#X connect 15 1 18 0;
#X connect 15 1 19 0;
#X connect 16 0 8 1;
#X connect 17 0 9 1;
#X connect 18 0 9 1;
#X connect 19 0 8 1;
#X connect 21 0 22 0;
#X connect 21 1 6 0;
#X connect 22 0 5 0;
#X connect 23 0 28 0;
#X connect 25 0 23 0;
#X connect 25 1 26 0;
#X connect 26 0 27 0;
#X connect 27 0 23 1;
#X connect 28 0 7 0;
#X connect 29 0 5 1;
#X connect 30 0 1 1;
#X connect 30 0 4 0;
#X restore 690 663 pd list-to-symbol;
#X obj 888 255 t b b b;
#X msg 725 296 bang;
#X obj 725 257 t b b;
#X obj 644 85 t b b b;
#X text 155 660 If the filename has spaces in it \, by default Pure
Data would treat this as a List. We need to convert this list into
a single symbol.;
#X text 603 664 ------->>>>;
#X connect 0 0 66 0;
#X connect 0 0 69 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 4 0 61 0;
#X connect 5 0 16 0;
#X connect 6 0 3 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 62 0;
#X connect 10 0 9 0;
#X connect 11 0 14 0;
#X connect 12 0 77 0;
#X connect 12 1 11 1;
#X connect 13 0 14 1;
#X connect 14 0 38 0;
#X connect 15 0 13 0;
#X connect 16 0 39 0;
#X connect 17 0 18 0;
#X connect 18 0 16 1;
#X connect 19 0 20 0;
#X connect 20 0 46 0;
#X connect 21 0 19 1;
#X connect 22 0 12 0;
#X connect 23 0 24 0;
#X connect 24 0 54 0;
#X connect 25 0 23 1;
#X connect 26 0 5 1;
#X connect 27 0 53 0;
#X connect 28 0 31 1;
#X connect 29 0 20 0;
#X connect 29 0 24 0;
#X connect 29 0 27 0;
#X connect 29 0 33 0;
#X connect 29 0 48 0;
#X connect 30 0 29 0;
#X connect 31 0 27 0;
#X connect 32 0 33 0;
#X connect 33 0 51 0;
#X connect 34 0 32 1;
#X connect 35 0 52 0;
#X connect 36 0 37 1;
#X connect 37 0 35 0;
#X connect 38 0 0 0;
#X connect 39 0 3 0;
#X connect 40 0 4 1;
#X connect 41 0 61 1;
#X connect 42 0 61 2;
#X connect 43 0 61 3;
#X connect 44 0 61 4;
#X connect 45 0 61 5;
#X connect 47 0 48 0;
#X connect 48 0 50 0;
#X connect 49 0 47 1;
#X connect 55 0 61 6;
#X connect 57 0 63 1;
#X connect 58 0 61 7;
#X connect 60 0 19 0;
#X connect 60 1 23 0;
#X connect 60 2 31 0;
#X connect 60 3 37 0;
#X connect 60 4 32 0;
#X connect 60 5 47 0;
#X connect 60 6 56 0;
#X connect 60 7 59 0;
#X connect 61 0 65 0;
#X connect 62 0 8 0;
#X connect 62 0 63 0;
#X connect 62 2 7 0;
#X connect 62 3 6 0;
#X connect 63 0 64 0;
#X connect 64 0 3 0;
#X connect 65 0 3 0;
#X connect 66 0 60 0;
#X connect 67 0 66 1;
#X connect 68 0 66 1;
#X connect 69 0 73 0;
#X connect 70 0 69 1;
#X connect 71 0 69 1;
#X connect 73 0 72 0;
#X connect 74 0 2 0;
#X connect 74 1 67 0;
#X connect 74 1 71 0;
#X connect 74 2 1 0;
#X connect 75 0 0 0;
#X connect 76 0 75 0;
#X connect 76 1 68 0;
#X connect 76 1 70 0;
#X connect 77 0 76 0;
#X connect 77 1 74 0;
#X connect 77 2 11 0;
#X restore 588 193 pd state-saving-via-preset-manager-module;
#N canvas 1151 367 615 566 parameter-nudging-system 0;
#N canvas 0 50 484 497 param-nudge 0;
#X obj 124 234 random;
#X obj 232 335 f;
#X obj 232 368 +;
#X obj 257 166 random 2;
#X obj 124 275 t f f;
#X obj 124 351 t b f;
#X obj 124 297 *;
#X obj 257 188 sel 0 1;
#X msg 257 280 -1;
#X msg 335 280 1;
#X obj 124 149 t b b b;
#X obj 124 123 r NUDGE!;
#X obj 157 193 r NUDGE-RANGE;
#X obj 247 308 inlet;
#X obj 232 397 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 6 1;
#X connect 9 0 6 1;
#X connect 10 0 0 0;
#X connect 10 1 1 0;
#X connect 10 2 3 0;
#X connect 11 0 10 0;
#X connect 12 0 0 1;
#X connect 13 0 1 1;
#X restore 23 125 pd param-nudge;
#N canvas 472 60 484 497 param-nudge 0;
#X obj 124 234 random;
#X obj 232 335 f;
#X obj 232 368 +;
#X obj 257 166 random 2;
#X obj 124 275 t f f;
#X obj 124 351 t b f;
#X obj 124 297 *;
#X obj 257 188 sel 0 1;
#X msg 257 280 -1;
#X msg 335 280 1;
#X obj 124 149 t b b b;
#X obj 124 123 r NUDGE!;
#X obj 157 193 r NUDGE-RANGE;
#X obj 247 308 inlet;
#X obj 232 397 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 6 1;
#X connect 9 0 6 1;
#X connect 10 0 0 0;
#X connect 10 1 1 0;
#X connect 10 2 3 0;
#X connect 11 0 10 0;
#X connect 12 0 0 1;
#X connect 13 0 1 1;
#X restore 211 45 pd param-nudge;
#N canvas 0 50 484 497 param-nudge 0;
#X obj 124 234 random;
#X obj 232 335 f;
#X obj 232 368 +;
#X obj 257 166 random 2;
#X obj 124 275 t f f;
#X obj 124 351 t b f;
#X obj 124 297 *;
#X obj 257 188 sel 0 1;
#X msg 257 280 -1;
#X msg 335 280 1;
#X obj 124 149 t b b b;
#X obj 124 123 r NUDGE!;
#X obj 157 193 r NUDGE-RANGE;
#X obj 247 308 inlet;
#X obj 232 397 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 6 1;
#X connect 9 0 6 1;
#X connect 10 0 0 0;
#X connect 10 1 1 0;
#X connect 10 2 3 0;
#X connect 11 0 10 0;
#X connect 12 0 0 1;
#X connect 13 0 1 1;
#X restore 413 45 pd param-nudge;
#N canvas 0 50 484 497 param-nudge 0;
#X obj 124 234 random;
#X obj 232 335 f;
#X obj 232 368 +;
#X obj 257 166 random 2;
#X obj 124 275 t f f;
#X obj 124 351 t b f;
#X obj 124 297 *;
#X obj 257 188 sel 0 1;
#X msg 257 280 -1;
#X msg 335 280 1;
#X obj 124 149 t b b b;
#X obj 124 123 r NUDGE!;
#X obj 157 193 r NUDGE-RANGE;
#X obj 247 308 inlet;
#X obj 232 397 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 6 1;
#X connect 9 0 6 1;
#X connect 10 0 0 0;
#X connect 10 1 1 0;
#X connect 10 2 3 0;
#X connect 11 0 10 0;
#X connect 12 0 0 1;
#X connect 13 0 1 1;
#X restore 21 326 pd param-nudge;
#X obj 23 157 clip 0 127;
#X obj 211 67 clip 0 127;
#X obj 413 67 clip 0 127;
#X obj 23 249 s \$0-sampler-pitch-r;
#X obj 211 139 s \$0-sampler-length-r;
#X obj 413 139 s \$0-sampler-start-r;
#X obj 21 397 s \$0-sampler-pitch-att-r;
#X obj 21 348 clip 0 127;
#N canvas 0 50 484 497 param-nudge 0;
#X obj 124 234 random;
#X obj 232 335 f;
#X obj 232 368 +;
#X obj 257 166 random 2;
#X obj 124 275 t f f;
#X obj 124 351 t b f;
#X obj 124 297 *;
#X obj 257 188 sel 0 1;
#X msg 257 280 -1;
#X msg 335 280 1;
#X obj 124 149 t b b b;
#X obj 124 123 r NUDGE!;
#X obj 157 193 r NUDGE-RANGE;
#X obj 247 308 inlet;
#X obj 232 397 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 6 1;
#X connect 9 0 6 1;
#X connect 10 0 0 0;
#X connect 10 1 1 0;
#X connect 10 2 3 0;
#X connect 11 0 10 0;
#X connect 12 0 0 1;
#X connect 13 0 1 1;
#X restore 211 326 pd param-nudge;
#X obj 211 348 clip 0 127;
#N canvas 0 50 484 497 param-nudge 0;
#X obj 124 234 random;
#X obj 232 335 f;
#X obj 232 368 +;
#X obj 257 166 random 2;
#X obj 124 275 t f f;
#X obj 124 351 t b f;
#X obj 124 297 *;
#X obj 257 188 sel 0 1;
#X msg 257 280 -1;
#X msg 335 280 1;
#X obj 124 149 t b b b;
#X obj 124 123 r NUDGE!;
#X obj 157 193 r NUDGE-RANGE;
#X obj 247 308 inlet;
#X obj 232 397 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 6 1;
#X connect 9 0 6 1;
#X connect 10 0 0 0;
#X connect 10 1 1 0;
#X connect 10 2 3 0;
#X connect 11 0 10 0;
#X connect 12 0 0 1;
#X connect 13 0 1 1;
#X restore 411 326 pd param-nudge;
#X obj 411 348 clip 0 127;
#X obj 211 397 s \$0-sampler-length-att-r;
#X obj 411 397 s \$0-sampler-start-att-r;
#X obj 23 22 r \$0-sampler-pitch-s;
#X obj 211 22 r \$0-sampler-length-s;
#X obj 413 22 r \$0-sampler-start-s;
#X obj 21 303 r \$0-sampler-pitch-att-s;
#X obj 211 303 r \$0-sampler-length-att-s;
#X obj 411 303 r \$0-sampler-start-att-s;
#X obj 23 178 / 127;
#X obj 23 200 * 4;
#X obj 23 222 - 2;
#X obj 23 49 + 2;
#X obj 23 71 / 4;
#X obj 23 93 * 127;
#X text 58 221 Scale back to -2 - 2;
#X text 72 92 Scale to 0 - 127;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 11 0;
#X connect 4 0 24 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 13 0 16 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 18 0 27 0;
#X connect 19 0 1 0;
#X connect 20 0 2 0;
#X connect 21 0 3 0;
#X connect 22 0 12 0;
#X connect 23 0 14 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 7 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 0 0;
#X restore 589 165 pd parameter-nudging-system;
#X text 118 448 Open the sample;
#X obj 175 328 cnv 5 5 5 empty empty OUT_R 0 0 0 8 -262144 -66577 0
;
#X obj 107 268 hsl 128 15 0 127 0 1 \$0-sampler-length-att-s \$0-sampler-length-att-r
LENGTH 133 7 0 10 -158136 -1 -1 0 1;
#X obj 107 283 hsl 128 15 0 127 0 1 \$0-sampler-start-att-s \$0-sampler-start-att-r
START 133 7 0 10 -158136 -1 -1 3800 1;
#X obj 107 253 hsl 128 15 0 127 0 1 \$0-sampler-pitch-att-s \$0-sampler-pitch-att-r
PITCH 133 7 0 10 -158136 -1 -1 100 1;
#X obj 670 594 *~;
#X obj 679 76 inlet~ PITCH;
#X obj 679 98 throw~ \$0-sampler-PITCH;
#X obj 670 539 *~;
#X obj 687 513 line~;
#X obj 854 76 inlet~ LENGTH;
#X obj 864 109 throw~ \$0-sampler-LENGTH;
#X text 568 595 Sample pitch;
#X obj 1043 98 throw~ \$0-sample-START;
#X obj 227 496 t f f;
#X obj 1043 76 inlet~ START;
#X obj 855 131 throw~ \$0-sampler-LENGTH2;
#N canvas 693 365 353 379 sample-length 0;
#X obj 30 21 r \$0-sampler-length-s;
#X obj 30 87 line~;
#X obj 30 282 clip~ 0 1;
#X obj 47 119 catch~ \$0-sampler-LENGTH;
#X obj 29 260 +~;
#X obj 65 144 r \$0-sampler-length-att-s;
#X obj 47 233 *~;
#X obj 65 210 line~;
#X obj 30 315 outlet~;
#X obj 65 166 / 127;
#X obj 30 43 / 127;
#X obj 65 188 pack 0 50;
#X obj 30 65 pack 0 50;
#X connect 0 0 10 0;
#X connect 1 0 4 0;
#X connect 2 0 8 0;
#X connect 3 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 9 0;
#X connect 6 0 4 1;
#X connect 7 0 6 1;
#X connect 9 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 7 0;
#X connect 12 0 1 0;
#X restore 688 388 pd sample-length;
#N canvas 186 336 428 589 sample-pitch 0;
#X obj 47 27 r \$0-sampler-pitch-s;
#X obj 47 123 line~;
#X obj 46 364 +~;
#X obj 65 175 catch~ \$0-sampler-PITCH;
#X obj 45 457 outlet~;
#X obj 65 332 *~;
#X obj 82 309 line~;
#X obj 82 236 r \$0-sampler-pitch-att-s;
#X obj 82 263 / 127;
#X obj 93 399 snapshot~;
#X obj 109 374 metro 100;
#X floatatom 93 421 10 0 0 0 - - -, f 10;
#X obj 109 351 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 65 197 *~ 127;
#X obj 82 287 pack 0 50;
#X obj 47 101 pack 0 50;
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 0 9 0;
#X connect 3 0 13 0;
#X connect 5 0 2 1;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 8 0 14 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 12 0 10 0;
#X connect 13 0 5 0;
#X connect 14 0 6 0;
#X connect 15 0 1 0;
#X restore 689 568 pd sample-pitch;
#X obj 635 408 sig~ 1;
#X obj 671 435 /~;
#N canvas 693 365 353 379 sample-length2 0;
#X obj 23 11 r \$0-sampler-length-s;
#X obj 23 77 line~;
#X obj 23 282 clip~ 0 1;
#X obj 22 260 +~;
#X obj 58 146 r \$0-sampler-length-att-s;
#X obj 40 233 *~;
#X obj 58 210 line~;
#X obj 23 315 outlet~;
#X obj 40 121 catch~ \$0-sampler-LENGTH2;
#X obj 58 167 / 127;
#X obj 23 34 / 127;
#X obj 58 188 pack 0 50;
#X obj 23 55 pack 0 50;
#X connect 0 0 10 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 5 0 3 1;
#X connect 6 0 5 1;
#X connect 8 0 5 0;
#X connect 9 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 6 0;
#X connect 12 0 1 0;
#X restore 689 897 pd sample-length2;
#N canvas 786 589 394 334 sample-start 0;
#X obj 24 18 r \$0-sampler-start-s;
#X obj 24 89 line~;
#X obj 24 241 +~;
#X obj 24 263 clip~ 0 1;
#X obj 42 115 catch~ \$0-sample-START;
#X obj 42 207 *~;
#X obj 60 140 r \$0-sampler-start-att-s;
#X obj 24 285 outlet~;
#X obj 60 161 / 127;
#X obj 24 44 / 127;
#X obj 24 67 pack 0 50;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 2 1;
#X connect 6 0 8 0;
#X connect 8 0 5 1;
#X connect 9 0 10 0;
#X connect 10 0 1 0;
#X restore 688 959 pd sample-start;
#X obj 669 1103 tabread4~ \$0-sample-L;
#X obj 737 1132 tabread4~ \$0-sample-R;
#X obj 726 597 r \$0-bang;
#X msg 726 685 0;
#X obj 849 689 sel 1;
#X msg 849 716 1;
#X text 518 791 Detect end of sample;
#X obj 807 620 t f f;
#N canvas 65 231 809 734 detect-end-of-sample 0;
#X obj 128 641 outlet bang-on-end;
#X msg 28 515 0;
#X obj 27 617 spigot;
#X obj 27 641 outlet;
#X obj 98 20 inlet~ pitch;
#X msg 98 100 1;
#X obj 98 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 298 97 0;
#X obj 98 73 threshold~ 0.0001 0 -0.0001 0;
#X obj 98 168 == 0;
#X obj 73 197 *~ 1;
#X obj 27 197 *~ 1;
#X text 250 270 Reversed;
#X text 250 246 Normal;
#X text 359 35 Bang when the sample has ended. We detect the end of
the sample with [threshold~ 0.9999] \, however \, when the sample is
played in reverse \, it would trigger this instantly. We need to detect
when the sample is playing in reverse so that we can use [threshold~
0.0001] to bang the end of the sample. We detect if the sample is reversed
by checking if the pitch of the phasor~ is negative.;
#X text 367 192 If loop is set to off \, we also need to mute the audio
from the phasor when the sample has ended.;
#X obj 73 401 t b b;
#X obj 27 401 t b b;
#X obj 43 424 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 112 423 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 27 352 spigot;
#X obj 73 373 spigot;
#X obj 112 318 r \$0-required-hack;
#X obj 28 579 t f f;
#X obj 128 619 spigot;
#X obj 195 534 sel 1;
#X msg 195 556 1;
#X obj 195 488 f;
#X floatatom 202 512 5 0 0 0 - - -, f 5;
#X obj 145 526 == 0;
#X obj 246 510 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 150 422 sel 0;
#X obj 162 443 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 356 415 We also piggy back off of \$0-required-hack to get
a bang whenver a new trigger is recieved \, so we can reset the spigots
at the bottom.;
#X text 253 318 <-------------;
#X obj 195 19 inlet loop-on-off;
#X obj 26 18 inlet~;
#X floatatom 145 548 5 0 0 0 - - -, f 5;
#X text 359 503 This is a mess of spigots \, but since we are using
a phasor~ object \, we are constanly cycling from 0 to 1 (or 1 to 0
if reversed). When loop is set to OFF \, we need to send the bang -on-end
\, send a 0 out of the left outlet \, then finally turn off both the
left and right outlet. The phasor~ will keep cycling \, but the patch
won't be outputting anything anymore.;
#X text 360 594 When loop is ON \, we need to turn both outlet back
on \, and disable them from being turned off. This is controlled using
spigots after the 0 message box.;
#X text 253 418 <-------------;
#X text 253 538 <-------------;
#X text 356 319 When the phase is reset to 0 this causes the threshold~
to trigger if the sample is being played in reverse. I tried setting
the phasor~ to 1 if the sample is in reverse \, but it still had this
problem. All this does is turn off the theshold~ outputs when the phasor~
is being reset \, then 5ms later it turns them back on.;
#X obj 28 553 spigot;
#X obj 67 535 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 27 240 threshold~ 0.999 0 0.5 0;
#X obj 73 271 threshold~ 0.001 0 0.5 0;
#X connect 1 0 43 0;
#X connect 1 0 44 0;
#X connect 2 0 3 0;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 9 0;
#X connect 6 0 11 1;
#X connect 7 0 6 0;
#X connect 8 0 5 0;
#X connect 8 1 7 0;
#X connect 9 0 10 1;
#X connect 10 0 46 0;
#X connect 11 0 45 0;
#X connect 16 0 1 0;
#X connect 16 1 19 0;
#X connect 16 1 24 0;
#X connect 17 0 1 0;
#X connect 17 1 18 0;
#X connect 17 1 24 0;
#X connect 20 0 17 0;
#X connect 21 0 16 0;
#X connect 22 0 20 1;
#X connect 22 0 21 1;
#X connect 22 0 31 0;
#X connect 23 0 24 1;
#X connect 23 0 2 1;
#X connect 23 1 2 0;
#X connect 24 0 0 0;
#X connect 25 0 26 0;
#X connect 26 0 24 1;
#X connect 26 0 2 1;
#X connect 27 0 25 0;
#X connect 27 0 28 0;
#X connect 27 0 29 0;
#X connect 27 0 30 0;
#X connect 29 0 37 0;
#X connect 29 0 43 1;
#X connect 31 0 26 0;
#X connect 31 0 32 0;
#X connect 35 0 27 0;
#X connect 36 0 11 0;
#X connect 36 0 10 0;
#X connect 43 0 23 0;
#X connect 45 0 20 0;
#X connect 46 0 21 0;
#X restore 689 797 pd detect-end-of-sample;
#X text 87 708 Create an array without the gui!;
#X obj 932 731 s \$0-required-hack;
#X obj 726 641 t b b b;
#X msg 957 684 0;
#X msg 913 705 1;
#X text 894 656 Used in detect-end-of-sample;
#X obj 913 685 del 5;
#X obj 726 619 t b b;
#X text 460 1017 Wrap around if we go past end;
#X text 498 1125 Finally play the sample;
#X text 318 120 Bang resets the phasor~ to 0;
#X obj 807 598 r \$0-loop-on-off-s;
#X text 38 1002 This is a stereo sample player designed for AUTOMATONISM.
;
#X obj 521 96 threshold~ 0.99 0 1 0;
#X obj 521 74 inlet~ trig;
#X obj 104 109 cnv 5 5 5 empty empty TRIG 0 0 0 8 -262144 -226533 0
;
#X obj 149 109 cnv 5 5 5 empty empty PITCH 0 0 0 8 -262144 -120682
0;
#X msg 847 820 1 0 \, 0 1 1;
#X obj 847 842 vline~;
#X obj 847 864 outlet~;
#X text 906 865 Output trig on end;
#X obj 452 92 loadbang;
#X obj 134 188 bng 15 250 50 0 \$0-pitch-presets-1-s \$0-pitch-presets-1-r
-1 0 -6 0 10 -204800 -1 -1;
#X obj 149 188 bng 15 250 50 0 \$0-pitch-presets-2-s \$0-pitch-presets-1-r
empty -5 -6 0 10 -204800 -1 -1;
#X obj 164 188 bng 15 250 50 0 \$0-pitch-presets-3-s \$0-pitch-presets-1-r
0 5 -6 0 10 -204800 -1 -1;
#X obj 179 188 bng 15 250 50 0 \$0-pitch-presets-4-s \$0-pitch-presets-1-r
empty -1 -6 0 10 -204800 -1 -1;
#X obj 194 188 bng 15 250 50 0 \$0-pitch-presets-5-s \$0-pitch-presets-1-r
1 5 -6 0 10 -204800 -1 -1;
#X obj 209 188 bng 15 250 50 0 \$0-pitch-presets-5-s \$0-pitch-presets-1-r
empty 30 7 0 10 -204800 -1 -1;
#X obj 119 188 bng 15 250 50 0 \$0-pitch-presets--2-s \$0-pitch-presets--2-s
empty 0 -6 0 10 -204800 -1 -1;
#X obj 224 188 bng 15 250 50 0 \$0-pitch-presets-5-s \$0-pitch-presets-1-r
2 5 -6 0 10 -204800 -1 -1;
#X obj 104 188 bng 15 250 50 0 \$0-pitch-presets-1-s \$0-pitch-presets-1-r
-2 0 -6 0 10 -204800 -1 -1;
#N canvas 591 509 450 351 apply-pitch-presets 0;
#X obj 191 232 f;
#X obj 191 255 s \$0-sampler-pitch-r;
#X obj 48 43 inlet;
#X obj 87 43 inlet;
#X obj 126 43 inlet;
#X obj 165 43 inlet;
#X obj 204 43 inlet;
#X obj 243 43 inlet;
#X obj 282 43 inlet;
#X obj 321 43 inlet;
#X obj 360 43 inlet;
#X msg 48 135 -2;
#X msg 87 110 -1.5;
#X msg 126 135 -1;
#X msg 165 109 -0.5;
#X msg 204 134 0;
#X msg 243 109 0.5;
#X msg 282 133 1;
#X msg 321 110 1.5;
#X msg 360 135 2;
#X connect 0 0 1 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 4 0 13 0;
#X connect 5 0 14 0;
#X connect 6 0 15 0;
#X connect 7 0 16 0;
#X connect 8 0 17 0;
#X connect 9 0 18 0;
#X connect 10 0 19 0;
#X connect 11 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 0 0;
#X connect 14 0 0 0;
#X connect 15 0 0 0;
#X connect 16 0 0 0;
#X connect 17 0 0 0;
#X connect 18 0 0 0;
#X connect 19 0 0 0;
#X restore 304 203 pd apply-pitch-presets;
#X obj 104 303 nbx 6 14 -1e+037 1e+037 0 0 \$0-sample-rate-s \$0-sample-rate-r
SAMPLE_RATE 65 7 0 10 -262144 -1 -1 44100 256;
#X obj 292 250 loadbang;
#X msg 292 272 44100;
#X obj 292 294 s \$0-sample-rate-r;
#X obj 79 553 r \$0-sample-rate-s;
#X obj 227 609 f 44100;
#X obj 812 826 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 236 328 cnv 5 5 5 empty empty END_TRIG 0 0 0 8 -262144 -226533
0;
#X obj 79 575 pipe 5;
#X obj 122 735 array define \$0-sample-L;
#X obj 122 755 array define \$0-sample-R;
#X obj 687 491 pack 0 1;
#X obj 104 118 bng 15 50 50 0 empty \$0-trig-r empty 17 7 0 10 -262144
-226533 -1;
#X obj 591 118 s \$0-trig-r;
#X obj 261 305 bng 15 50 50 0 empty \$0-end-trig-r empty 17 7 0 10
-262144 -226533 -1;
#X obj 866 800 s \$0-end-trig-r;
#X text 76 976 _megalon_ 2017 v1.3;
#X text 343 272 <-- DEFAULT SAMPLE RATE;
#X obj 104 147 cnv 5 5 5 empty \$0-sample-display-name SAMPLER 0 0
0 12 -262144 -66577 0;
#X connect 7 0 33 0;
#X connect 8 0 61 0;
#X connect 9 0 36 0;
#X connect 10 0 116 0;
#X connect 10 1 9 1;
#X connect 11 0 70 0;
#X connect 11 0 71 0;
#X connect 12 0 13 0;
#X connect 13 0 35 0;
#X connect 17 0 29 0;
#X connect 17 0 78 0;
#X connect 28 0 33 0;
#X connect 29 0 12 0;
#X connect 33 0 8 0;
#X connect 35 0 11 0;
#X connect 37 0 122 0;
#X connect 39 0 11 1;
#X connect 41 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 42 0;
#X connect 52 0 17 0;
#X connect 52 0 78 1;
#X connect 53 0 54 0;
#X connect 55 0 52 0;
#X connect 56 0 55 1;
#X connect 57 0 58 0;
#X connect 57 0 63 0;
#X connect 61 0 10 0;
#X connect 61 1 38 0;
#X connect 62 0 60 0;
#X connect 64 0 67 1;
#X connect 65 0 52 1;
#X connect 66 0 67 0;
#X connect 67 0 55 0;
#X connect 68 0 12 1;
#X connect 69 0 13 1;
#X connect 70 0 26 0;
#X connect 71 0 40 0;
#X connect 72 0 86 0;
#X connect 73 0 17 1;
#X connect 74 0 75 0;
#X connect 75 0 29 1;
#X connect 77 0 78 2;
#X connect 77 1 74 0;
#X connect 78 0 29 1;
#X connect 78 1 96 0;
#X connect 78 1 117 0;
#X connect 78 1 126 0;
#X connect 81 0 85 0;
#X connect 81 1 73 0;
#X connect 81 2 82 0;
#X connect 82 0 80 0;
#X connect 83 0 80 0;
#X connect 85 0 83 0;
#X connect 86 0 81 0;
#X connect 86 1 75 0;
#X connect 90 0 77 0;
#X connect 92 0 32 0;
#X connect 92 0 124 0;
#X connect 93 0 92 0;
#X connect 96 0 97 0;
#X connect 97 0 98 0;
#X connect 100 0 32 0;
#X connect 101 0 110 2;
#X connect 102 0 110 3;
#X connect 103 0 110 4;
#X connect 104 0 110 5;
#X connect 105 0 110 6;
#X connect 106 0 110 7;
#X connect 107 0 110 1;
#X connect 108 0 110 8;
#X connect 109 0 110 0;
#X connect 112 0 113 0;
#X connect 113 0 114 0;
#X connect 115 0 119 0;
#X connect 116 0 9 0;
#X connect 119 0 116 0;
#X connect 122 0 56 0;
#X coords 0 -1 1 1 180 235 2 100 100;