#N canvas 3 28 982 681 10;
#X obj 672 394 cnv 15 270 240 empty empty empty 20 12 0 14 -196506
-66577 0;
#X obj 350 399 cnv 15 270 210 empty empty empty 20 12 0 14 -196506
-66577 0;
#X obj -11 453 cnv 15 200 130 empty empty empty 20 12 0 14 -196506
-66577 0;
#X obj -11 304 cnv 15 170 100 empty empty empty 20 12 0 14 -196506
-66577 0;
#X text 12 10 SAMPLER;
#X text 1 627 amplitude (dB);
#X text 3 641 duration (msec);
#X text 281 629 rise time (msec);
#X text 282 643 decay time (msec);
#X text 140 613 sample number;
#X text 132 644 starting point(msec);
#X text 136 628 (number of arrays);
#X text 2 612 pitch;
#X text 39 613 (0-127)MIDI;
#X msg 751 37 \; pd dsp 0 \;;
#X msg 825 37 \; pd dsp 1 \;;
#X obj 184 164 f;
#X obj 273 215 f;
#X obj 329 210 f;
#X obj 392 211 f;
#X obj 452 220 f;
#X obj 529 243 f;
#X msg 166 90 bang;
#X obj 166 112 delay 5;
#X obj 166 138 t b b b;
#X obj 504 224 delay;
#X obj 184 185 mtof;
#X obj 185 208 / 261.62;
#X obj 185 232 * 4.41e+08;
#X obj 185 255 +;
#X text 54 216 The mtof and / 261;
#X text 22 249 calculate speed change;
#X text 80 234 transposition;
#X obj 392 252 * 44.1;
#X obj 3 362 line~;
#X obj 264 392 line~;
#X obj 244 414 *~;
#X msg 2 515 set \$1;
#X obj 365 455 dbtorms;
#X obj 365 432 unpack;
#X obj 366 481 sqrt;
#X obj 366 502 sqrt;
#X obj 366 532 line~;
#X obj 243 506 *~;
#X obj 368 558 *~;
#X obj 368 587 *~;
#X text 270 376 line~ for de-clicking;
#X obj 241 541 dac~;
#N canvas 0 22 450 300 graph1 0;
#X array kuvatab0 205158 float 0;
#X coords 0 1.02 205157 -1.02 200 130 1;
#X restore 751 77 graph;
#N canvas 0 22 450 300 graph1 0;
#X array kuvatab1 414547 float 0;
#X coords 0 1.02 414546 -1.02 200 130 1;
#X restore 753 220 graph;
#X obj 685 514 soundfiler;
#X floatatom 763 515 8 0 0 0 - - -;
#X obj 364 301 pack 0 0 0 0 0;
#X text 548 221 duration&decay;
#X text 465 359 Transposition is done by altering the amount to play
back in the (artificial) ten thousand seconds (1e+07).;
#X obj 366 410 r env;
#X obj 686 466 openpanel;
#X obj 690 439 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 760 445 openpanel;
#X obj 761 426 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 211 167 pitch;
#X text 273 196 amp;
#X text 306 224 sampleN;
#X text 375 230 startingP;
#X msg 556 244 \; env 0 \$1;
#X text 451 238 riseT;
#X msg 89 92 \; cut 0 5;
#X text -4 325 the pitch value;
#X text -4 315 starting point and;
#X obj 2 470 r sampleN;
#X obj 3 341 r startP;
#X msg 473 289 \; env 0 \, \$1 \$2 \; startP \$3 \, \$4 1e+07 \; sampleN
\$5 \; cut 1 5 \;;
#X text -4 546 number of the array;
#X text -6 557 to read the sample from;
#X text 415 408 envelope generator;
#X text 427 426 amplitude and rise time;
#X text 427 435 duration and decay;
#X text 431 447 values;
#X text 679 395 you can load your sound samples;
#X text 681 406 by browsing their locations;
#X text 409 484 4th root;
#X text 409 497 2Xsquare root;
#X text 402 564 4th power;
#X text 498 632 2006_Koray Tahiroglu;
#X text 500 649 modified from the original patch example D10 Sampler
Notes;
#X text 545 144 initial values;
#X text 543 154 for sampler;
#X msg 366 155 \$1 \$2 \$3 \$4 \$5 \$6 \$7;
#X obj 238 17 vsl 30 50 0 127 0 0 empty empty pitch 0 -8 0 8 -262144
-1 -1 1900 1;
#X obj 868 535 / 44.1;
#X floatatom 870 558 8 0 0 0 - - -;
#X obj 289 16 vsl 30 50 0 100 0 0 empty empty amp 0 -8 0 8 -262144
-1 -1 4900 1;
#X obj 340 16 vsl 30 50 0 4652.11 0 0 empty duration duration 0 -8
0 8 -262144 -1 -1 1200 1;
#X obj 460 19 vsl 30 50 0 4652.11 0 0 empty duration StartingPoint
0 -8 0 8 -262144 -1 -1 3900 1;
#X obj 531 17 vsl 30 50 0 2000 0 0 empty empty RiseTime 0 -8 0 8 -262144
-1 -1 1500 1;
#X obj 580 18 vsl 30 50 0 2000 0 0 empty empty DecayTime 0 -8 0 8 -262144
-1 -1 1300 1;
#X msg 715 540 \; duration range 0 \$1;
#X text 679 576 it sends the length of the sample;
#X text 678 589 in ms to the range of the duration and;
#X text 678 603 starting point sliders;
#X floatatom 237 77 5 0 0 0 - - -;
#X floatatom 288 74 5 0 0 0 - - -;
#X floatatom 334 73 8 0 0 0 - - -;
#X floatatom 397 76 5 0 0 0 - - -;
#X floatatom 459 76 8 0 0 0 - - -;
#X floatatom 532 74 5 0 0 0 - - -;
#X floatatom 586 77 5 0 0 0 - - -;
#X obj 367 175 unpack 0 0 0 0 0 0 0;
#X obj 264 360 r cut;
#X obj 1 494 makefilename kuvatab%d;
#X obj 123 25 metro;
#X obj 124 8 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 154 7 8 0 0 0 - - -;
#X text 164 27 loop;
#X obj 287 93 t b f;
#X obj 341 93 t b f;
#X obj 401 94 t b f;
#X obj 462 94 t b f;
#X obj 527 95 t b f;
#X obj 584 94 t b f;
#X obj 366 136 pack 62 80 1200 1 200 0 0;
#X text 52 132 clicking sound;
#X text 53 122 this avoids;
#X text 629 57 pack object;
#X text 630 71 requires bang;
#X text 631 81 to its 1st inlet;
#X text 631 91 to activate the;
#X text 630 102 changes in other;
#X text 632 113 inlets;
#X obj 391 25 vradio 15 1 0 2 empty empty SampleNumber 0 -6 0 8 -262144
-1 -1 0;
#X obj 247 334 tabread4~ kuvatab0;
#X text 17 260 considering 60 as unity;
#X msg 684 487 read -resize \$1 kuvatab0;
#X msg 758 466 read -resize \$1 kuvatab1;
#X connect 16 0 26 0;
#X connect 17 0 52 0;
#X connect 18 0 52 4;
#X connect 19 0 33 0;
#X connect 20 0 52 1;
#X connect 21 0 64 0;
#X connect 22 0 23 0;
#X connect 22 0 66 0;
#X connect 23 0 24 0;
#X connect 24 0 17 0;
#X connect 24 1 16 0;
#X connect 24 2 25 0;
#X connect 24 2 20 0;
#X connect 24 2 19 0;
#X connect 24 2 18 0;
#X connect 25 0 21 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 52 3;
#X connect 33 0 52 2;
#X connect 34 0 130 0;
#X connect 35 0 36 1;
#X connect 36 0 43 0;
#X connect 37 0 130 0;
#X connect 38 0 40 0;
#X connect 39 0 38 0;
#X connect 39 1 42 1;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 44 0;
#X connect 42 0 44 1;
#X connect 43 0 47 0;
#X connect 43 0 47 1;
#X connect 44 0 45 0;
#X connect 44 0 45 1;
#X connect 45 0 43 1;
#X connect 50 0 51 0;
#X connect 51 0 89 0;
#X connect 52 0 71 0;
#X connect 55 0 39 0;
#X connect 56 0 132 0;
#X connect 57 0 56 0;
#X connect 58 0 133 0;
#X connect 59 0 58 0;
#X connect 69 0 109 0;
#X connect 70 0 34 0;
#X connect 87 0 107 0;
#X connect 88 0 100 0;
#X connect 89 0 90 0;
#X connect 90 0 96 0;
#X connect 91 0 101 0;
#X connect 92 0 102 0;
#X connect 93 0 104 0;
#X connect 94 0 105 0;
#X connect 95 0 106 0;
#X connect 100 0 120 0;
#X connect 101 0 114 0;
#X connect 102 0 115 0;
#X connect 102 0 112 0;
#X connect 103 0 116 0;
#X connect 104 0 117 0;
#X connect 105 0 118 0;
#X connect 106 0 119 0;
#X connect 107 0 16 1;
#X connect 107 0 22 0;
#X connect 107 1 17 1;
#X connect 107 2 25 1;
#X connect 107 3 18 1;
#X connect 107 4 19 1;
#X connect 107 5 20 1;
#X connect 107 6 21 1;
#X connect 108 0 35 0;
#X connect 109 0 37 0;
#X connect 110 0 120 0;
#X connect 111 0 110 0;
#X connect 112 0 110 1;
#X connect 114 0 120 0;
#X connect 114 1 120 1;
#X connect 115 0 120 0;
#X connect 115 1 120 2;
#X connect 116 0 120 0;
#X connect 116 1 120 3;
#X connect 117 0 120 0;
#X connect 117 1 120 4;
#X connect 118 0 120 0;
#X connect 118 1 120 5;
#X connect 119 0 120 0;
#X connect 119 1 120 6;
#X connect 120 0 87 0;
#X connect 129 0 103 0;
#X connect 130 0 36 0;
#X connect 132 0 50 0;
#X connect 133 0 50 0;