#N canvas 401 67 842 605 12;
#X declare -stdpath ./;
#N canvas 0 0 450 300 (subpatch) 0;
#X array cos-output 44100 float 2;
#X coords 0 1.02 44100 -1.02 200 130 1;
#X restore 510 201 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array table18 44103 float 2;
#X coords 0 1.02 44103 -1.02 200 130 1;
#X restore 507 26 graph;
#X obj 509 473 loadbang;
#X obj 82 249 hip~ 5;
#X floatatom 82 50 6 0 0 0 - - - 0;
#X floatatom 165 87 6 0 0 0 - - - 0;
#X obj 165 114 * 441;
#X obj 147 163 +~ 1;
#X obj 512 373 adc~ 1;
#X text 43 10 ENVELOPING YOUR LOOPING SAMPLER;
#X obj 82 139 -~ 0.5;
#X obj 82 189 cos~;
#X obj 82 222 *~;
#X obj 509 527 soundfiler;
#X text 522 158 -- 44103 samples ---;
#X text 533 334 ----- 1 second ------;
#X obj 82 77 phasor~;
#X obj 82 164 *~ 0.5;
#X obj 82 283 output~;
#X obj 147 138 *~;
#X text 26 360 Here we apply an amplitude envelope to protect against discontinuities at the loop point. The envelope is just a cosine wave from -90 degrees to +90 degrees \, (-pi/2 to pi/2 radians) \, i.e. \, the part that is zero or positive in sign. The "cos~" object's input is in cycles (units of 2pi radians) so -1/4 to +1/4 addresses the desired part of the waveform.;
#X obj 204 247 tabwrite~ cos-output;
#X text 26 468 To see the envelope \, put the phasor on 2 Hz or so \, click the "graph" button \, and look at "cos-output." This is multiplied by the tabread4~ output so that it doesn't click when the phase wraps around., f 59;
#X text 26 535 It is possible to get much more control over the shape of the envelope \, but this will be taken up later., f 59;
#X obj 147 189 tabread4~ table18;
#X obj 512 429 tabwrite~ table18;
#X msg 509 502 read ../sound/voice.wav table18;
#X text 550 403 <-- click here to record to table;
#X text 600 481 v-- re-read the original sound;
#X text 613 562 updated for Pd version 0.37;
#X obj 221 313 declare -stdpath ./;
#X text 225 220 <-- click to graph envelope;
#X text 131 49 <-- frequency (Hz.);
#X text 213 86 <-- chunk size (100ths of a second);
#X obj 204 220 bng 19 250 50 0 empty empty empty 17 7 0 10 #dfdfdf #000000 #000000;
#X obj 527 402 bng 19 250 50 0 empty empty empty 17 7 0 10 #dfdfdf #000000 #000000;
#X connect 2 0 26 0;
#X connect 3 0 18 0;
#X connect 4 0 16 0;
#X connect 5 0 6 0;
#X connect 6 0 19 1;
#X connect 7 0 24 0;
#X connect 8 0 25 0;
#X connect 10 0 17 0;
#X connect 11 0 12 0;
#X connect 11 0 21 0;
#X connect 12 0 3 0;
#X connect 16 0 10 0;
#X connect 16 0 19 0;
#X connect 17 0 11 0;
#X connect 19 0 7 0;
#X connect 24 0 12 1;
#X connect 26 0 13 0;
#X connect 34 0 21 0;
#X connect 35 0 25 0;
