#N canvas 108 101 578 262 10; #X obj 331 -1718 cnv 15 200 20 empty empty empty 20 12 0 14 -1 -66577 0; #N canvas 0 22 450 278 (subpatch) 0; #X array sampleL 442029 float 2; #X coords 0 2.1 442029 -3.5 200 170 1 0 0; #X restore 331 -1706 graph; #N canvas 0 22 450 278 (subpatch) 0; #X array sampleR 442029 float 2; #X coords 0 4 442029 -1.1 200 170 1 0 0; #X restore 331 -1706 graph; #X obj 334 -1706 hsl 195 15 0 1 0 0 start_pos_snd start_pos_rcv start_pos. 70 8 1 8 -35112 -257985 -261234 7100 1; #X obj 334 -1691 hsl 195 15 0 1 0 0 end_pos_snd end_pos_rcv end_pos. 72 8 1 8 -37913 -257985 -261234 11700 1; #X obj 334 -1676 hsl 195 140 0 442029 0 0 play_pos_snd play_pos_rcv empty -2 24 0 10 -80313 -257985 -1 7100 1; #N canvas 444 22 375 179 play_pos_resize 0; #X floatatom -16 -344 12 440 3520 0 - - -; #X obj -16 -296 pack 0 0; #X text 68 -346 right-range-bound; #X obj -16 -321 t b f; #X obj -16 -368 r original_samplesize; #X msg -16 -271 \; play_pos_rcv range \$1 \$2; #X connect 0 0 3 0; #X connect 1 0 5 0; #X connect 3 0 1 0; #X connect 3 1 1 1; #X connect 4 0 0 0; #X restore -35 -1674 pd play_pos_resize; #N canvas 161 122 444 547 guts 1; #X obj -228 325 *~; #X obj -228 133 phasor~; #X obj -228 65 /; #X obj -305 -6 loadbang; #X obj -305 13 samplerate~; #X floatatom -305 32 5 0 0 0 - - -; #X obj -228 36 t b f; #X obj -228 392 +~; #X obj -228 13 r total_number_of_samples; #X obj -181 421 unsig~ 50; #X obj -228 470 outlet~; #X obj -212 87 s rate; #X obj -87 442 s current_pos; #X floatatom -183 387 12 0 0 0 - - -; #X obj -156 206 r original_samplesize; #N canvas 258 302 450 300 phasor_control_rcv 0; #X obj 79 55 r cycles; #X obj 146 55 r phase; #X obj 79 82 outlet; #X obj 146 82 outlet; #X connect 0 0 2 0; #X connect 1 0 3 0; #X restore -212 110 pd phasor_control_rcv; #X obj -181 442 s play_pos_rcv; #X obj -195 159 r end_pos_snd; #X obj -165 182 r start_pos_snd; #X obj -191 325 s total_number_of_samples; #X obj 33 150 throw~; #X obj -195 230 *; #X obj -165 230 *; #X obj -165 273 t b f; #X obj -195 298 -; #X obj -195 251 i; #X obj -165 251 i; #X obj -110 272 s offset; #X obj -213 358 r offset; #X connect 0 0 7 0; #X connect 1 0 0 0; #X connect 1 0 20 0; #X connect 2 0 1 0; #X connect 2 0 11 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 2 0; #X connect 6 0 2 0; #X connect 6 1 2 1; #X connect 7 0 9 0; #X connect 7 0 10 0; #X connect 8 0 6 0; #X connect 9 0 12 0; #X connect 9 0 16 0; #X connect 14 0 22 1; #X connect 14 0 21 1; #X connect 15 0 1 0; #X connect 15 1 1 1; #X connect 17 0 21 0; #X connect 18 0 22 0; #X connect 21 0 25 0; #X connect 22 0 26 0; #X connect 23 0 24 0; #X connect 23 1 24 1; #X connect 24 0 19 0; #X connect 24 0 0 1; #X connect 25 0 24 0; #X connect 26 0 23 0; #X connect 26 0 27 0; #X connect 28 0 7 1; #X connect 28 0 13 0; #X restore -35 -1647 pd guts; #N canvas 245 329 450 300 sound 0; #X text -42 252 audio output; #X obj -86 250 dac~; #N canvas 258 418 450 300 final_gainstage 0; #X obj 29 66 *~; #X obj 152 44 line~; #X text 190 44 envelope; #X text 190 55 generator; #X obj 29 88 hip~ 5; #X obj 99 66 *~; #X obj 99 88 hip~ 5; #X obj 29 22 inlet~; #X obj 99 22 inlet~; #X obj 152 23 inlet; #X obj 29 119 outlet~; #X obj 99 118 outlet~; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 1 0 5 1; #X connect 4 0 10 0; #X connect 5 0 6 0; #X connect 6 0 11 0; #X connect 7 0 0 0; #X connect 8 0 5 0; #X connect 9 0 1 0; #X restore -86 228 pd final_gainstage; #X obj -86 53 inlet~; #X obj 17 54 inlet; #X obj -86 98 tabread4~ sampleR; #X obj -34 120 tabread4~ sampleL; #X connect 2 0 1 0; #X connect 2 1 1 1; #X connect 3 0 5 0; #X connect 3 0 6 0; #X connect 4 0 2 2; #X connect 5 0 2 0; #X connect 6 0 2 1; #X restore -35 -1515 pd sound; #X text 72 -1558 on; #X text 72 -1538 off; #X msg 26 -1538 0 100; #X text -9 -1581 amplitude controls:; #N canvas 192 31 457 316 phasor_control_snd 0; #X obj -115 -155 inlet; #N canvas 189 330 108 95 pause 0; #X obj -129 15 inlet; #X msg -129 40 \; cycles 0; #X connect 0 0 1 0; #X restore -115 62 pd pause; #N canvas 214 403 147 118 stop 0; #X obj -79 12 inlet; #X msg -79 41 \; cycles 0 \; phase 0; #X connect 0 0 1 0; #X restore -73 39 pd stop; #N canvas 230 316 170 148 restart 0; #X obj -32 17 inlet; #X obj -17 44 r rate; #X msg -32 82 \; cycles \$1 \; phase 0; #X obj -32 62 f; #X connect 0 0 3 0; #X connect 1 0 3 1; #X connect 3 0 2 0; #X restore -31 16 pd restart; #N canvas 249 324 450 300 play 0; #X obj 71 34 r current_pos; #X msg 10 119 \; cycles \$1 \; phase \$2; #X obj 9 98 pack f f; #X obj 71 78 /; #X obj 86 55 r total_number_of_samples; #X obj 9 78 f; #X obj 24 58 r rate; #X obj 9 17 inlet; #X connect 0 0 3 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X connect 4 0 3 1; #X connect 5 0 2 0; #X connect 6 0 5 1; #X connect 7 0 5 0; #X restore 12 -7 pd play; #N canvas 317 398 160 127 reset 0; #X msg 13 40 \; start_pos_rcv 0 \; end_pos_rcv 1; #X obj 13 10 inlet; #X obj 59 11 loadbang; #X connect 1 0 0 0; #X connect 2 0 0 0; #X restore 54 -29 pd reset; #N canvas 372 188 278 292 once 0; #X obj 52 164 edge~; #X obj 189 62 r rate; #X msg 174 114 \; cycles \$1 \; phase 0; #X obj 174 92 f; #X obj 97 69 t b b; #N canvas 602 223 450 300 spig~ 0; #X obj 114 80 inlet~; #X obj 118 151 outlet~; #X obj 117 115 *~; #X obj 171 80 inlet; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 52 119 pd spig~; #X msg 52 229 \; cycles 0 \; phase 0; #X msg 97 95 1; #X obj 52 186 t b b; #X msg 79 209 0; #X obj 52 141 expr~ $v1>0.99; #X obj 52 72 catch~; #X obj 97 24 inlet; #X connect 0 0 8 0; #X connect 1 0 3 1; #X connect 3 0 2 0; #X connect 4 0 7 0; #X connect 4 1 3 0; #X connect 5 0 10 0; #X connect 7 0 5 1; #X connect 8 0 6 0; #X connect 8 1 9 0; #X connect 9 0 5 1; #X connect 10 0 0 0; #X connect 11 0 5 0; #X connect 12 0 4 0; #X restore 97 -51 pd once; #X obj -115 -121 route pause stop restart play reset once load_file ; #N canvas 355 22 336 163 load 0; #X obj 14 -1689 openpanel; #X msg 14 -1665 read -resize \$1 sampleL sampleR; #X obj 14 -1642 soundfiler; #X obj 14 -1738 inlet; #X obj 14 -1614 s original_samplesize; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X restore 139 -73 pd load; #X connect 0 0 7 0; #X connect 7 0 1 0; #X connect 7 1 2 0; #X connect 7 2 3 0; #X connect 7 3 4 0; #X connect 7 4 5 0; #X connect 7 5 6 0; #X connect 7 6 8 0; #X restore 148 -1507 pd phasor_control_snd; #X obj -35 -1738 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X msg -35 -1714 \; pd dsp \$1; #X msg 181 -1614 pause; #X msg 171 -1634 stop; #X msg 211 -1554 restart; #X msg 191 -1594 play; #X msg 161 -1654 reset; #X msg 201 -1574 once; #X msg 151 -1704 load_file; #X msg 10 -1559 1 100; #X connect 7 0 8 0; #X connect 11 0 8 1; #X connect 14 0 15 0; #X connect 16 0 13 0; #X connect 17 0 13 0; #X connect 18 0 13 0; #X connect 19 0 13 0; #X connect 20 0 13 0; #X connect 21 0 13 0; #X connect 22 0 13 0; #X connect 23 0 8 1;