sample-player.pd

#N canvas 177 182 999 656 10;
#X obj 58 278 hip~ 5;
#X text -119 277 high pass filter to cut DC;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-sample 62079 float 0;
#X coords 0 1.02 62078 -1.02 200 130 1;
#X restore -80 408 graph;
#X obj 58 211 line~;
#X floatatom 57 75 0 0 0 0 - - -;
#X text -214 162 convert to SAMPLES (441 samples in 0.01 sec);
#X text -80 241 read from the table;
#X text -170 255 (the input is the index in samples);
#X text -74 561 (one second plus three extra;
#X text -72 580 for 4-point interpolation);
#X text 424 310 message to read a soundfile into the table (automatically
sent when you load this patch by the "loadbang" object.);
#X text -145 210 convert smoothly to audio signal;
#X text -211 87 (range is 0-100.) YOU ONLY HEAR OUTPUT;
#X text -210 103 WHEN THIS IS 0-100 AND ACTIVELY CHANGING.;
#X text -81 539 --- 44103 samples ---;
#X obj 444 290 soundfiler;
#X obj 58 310 outlet~;
#X obj 58 246 tabread4~ \$0-sample;
#X obj 483 47 inlet;
#X obj 444 192 prepend;
#X obj 444 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 57 22 inlet;
#X obj 393 233 print;
#X obj 444 122 f \$0;
#X msg 444 147 \$1-sample;
#X floatatom 16 21 5 0 0 0 - - -;
#X obj 97 22 inlet;
#X floatatom 97 45 0 0 0 0 - - -;
#X obj 57 48 % 100;
#X obj 137 22 inlet;
#X obj 57 102 + 0;
#X floatatom 57 135 0 0 0 0 - - -;
#X floatatom 82 102 5 0 0 0 - - -;
#X obj 483 85 prepend read -resize;
#X obj 194 89 soundfile_info;
#X obj 194 64 prepend read;
#X msg 194 113 \$3;
#X text 225 112 length of loaded file (samples);
#X floatatom 208 140 5 0 0 0 - - -;
#X obj 195 178 / 100;
#X floatatom 207 223 5 0 0 0 - - -;
#X text -223 73 read point in 100ths of a second;
#X obj 193 304 snapshot~;
#X floatatom 193 332 15 0 0 0 - - -;
#X obj 194 276 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 193 377 print;
#X obj 273 187 / 100;
#X obj 273 216 * 1;
#X text 314 186 calc percentage;
#X text 314 198 of file length;
#X floatatom 280 254 5 0 0 0 - - -;
#X obj 58 162 * 441;
#X obj 58 186 pack 0 100;
#X obj 289 396 % 44100;
#X floatatom 289 422 15 0 0 0 - - -;
#X obj 328 369 * 441;
#X obj 234 505 sig~;
#X obj 283 459 sig~;
#X connect 0 0 16 0;
#X connect 3 0 42 0;
#X connect 3 0 17 0;
#X connect 4 0 30 0;
#X connect 17 0 0 0;
#X connect 18 0 33 0;
#X connect 18 0 35 0;
#X connect 19 0 22 0;
#X connect 19 0 15 0;
#X connect 20 0 23 0;
#X connect 21 0 28 0;
#X connect 23 0 24 0;
#X connect 24 0 19 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 28 1;
#X connect 27 0 55 0;
#X connect 28 0 4 0;
#X connect 29 0 30 1;
#X connect 30 0 31 0;
#X connect 31 0 51 0;
#X connect 32 0 30 1;
#X connect 33 0 19 1;
#X connect 33 0 20 0;
#X connect 34 0 36 0;
#X connect 35 0 34 0;
#X connect 36 0 38 0;
#X connect 36 0 39 0;
#X connect 38 0 46 0;
#X connect 39 0 27 0;
#X connect 39 0 40 0;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 0 53 0;
#X connect 44 0 42 0;
#X connect 46 0 47 0;
#X connect 47 0 50 0;
#X connect 51 0 52 0;
#X connect 52 0 3 0;
#X connect 52 0 44 0;
#X connect 53 0 54 0;
#X connect 54 0 45 0;
#X connect 54 0 57 0;
#X connect 55 0 53 1;