sampling104 (requires recorderobject abstraction)

#N canvas 377 104 798 597 10;

#X obj 204 93 adc~;

#X obj 204 142 tabwrite~ array2;

#X obj 307 467 tabplay~ array2;

#X obj 308 508 dac~;

#X obj 174 93 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1

-1;

#X obj 344 137 env~;

#X obj 474 481 hsl 195 15 0 44100 0 0 empty empty empty -2 -8 0 10

-262144 -1 -1 0 1;

#N canvas 0 22 450 300 (subpatch) 0;

#X array array2 88200 float 2;

#X coords 0 1 88200 -1 200 140 1;

#X restore 471 335 graph;

#X obj 470 508 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0

1;

#X text 489 507 turn scrubbing on and off;

#N canvas 0 22 450 300 (subpatch) 0;

#X array array1 44100 float 2;

#X coords 0 1 44099 -1 200 140 1;

#X restore 466 128 graph;

#X obj 347 370 spigot;

#X obj -19 144 cnv 15 200 190 empty empty opening_sound_files 20 12

0 10 -204786 -66577 0;

#X obj 2 208 openpanel;

#X msg 2 244 read \$1 array1;

#X obj 2 278 soundfiler;

#X obj 2 175 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1

-1;

#X obj 13 20 recorderobject;

#X msg 204 206 set array1;

#X msg 266 181 set array2;

#X msg 348 434 \$1 44100;

#X obj 347 280 expr ($f1 / 127) * lengthofsoundfile;

#X obj 2 304 value lengthofsoundfile;

#X msg 7 397 \; array2 resize 88200;

#X text 624 332 to save contents;

#X text 582 318 ****change properties;

#X text 620 125 to save contents;

#X text 578 111 ****change properties;

#X text -22 362 create a slider set from;

#X text 140 389 two keys;

#X text -3 376 mouse and cheese to adjust resizing with;

#X text 78 432 expand and play!;

#X connect 0 0 1 0;

#X connect 0 0 5 0;

#X connect 2 0 3 0;

#X connect 2 0 3 1;

#X connect 4 0 1 0;

#X connect 5 0 21 0;

#X connect 8 0 11 1;

#X connect 11 0 20 0;

#X connect 13 0 14 0;

#X connect 14 0 15 0;

#X connect 15 0 22 0;

#X connect 16 0 13 0;

#X connect 18 0 2 0;

#X connect 19 0 2 0;

#X connect 20 0 2 0;

#X connect 21 0 6 0;

#X connect 21 0 11 0;