#N canvas 854 89 1051 882 10; #X obj 7 163 phasor~; #X obj 7 288 *~; #X obj 24 269 r sampSize; #X obj 350 277 hsl 145 15 -2 2 0 0 pbk empty empty -2 -8 0 10 -262144 -1 -1 11400 1; #X text 498 277 playback speed; #X floatatom 7 127 5 0 0 0 - - -; #X obj 7 30 expr 1 / $f1; #X obj 7 69 *; #X obj 7 144 *; #X text 668 238 left limit; #X obj 7 207 *~; #X obj 7 226 +~; #X obj 18 88 r pbk; #X obj 18 107 t b f; #X obj 9 516 dac~; #X obj 7 472 *~ 1; #X obj 8 492 hip~ 5; #X obj 347 233 hradio 20 1 1 16 lLim empty empty 0 -8 0 10 -262144 -1 -1 8; #X obj 347 211 hradio 20 1 1 16 rLim empty empty 0 -8 0 10 -262144 -1 -1 10; #X obj 6 330 *~; #N canvas 0 50 450 250 (subpatch) 0; #X array table 944322 float 2; #X coords 0 1 944322 -1 15 15 1 0 0; #X restore 407 71 graph; #X text 669 258 playback position; #N canvas 1064 347 450 300 playback 0; #X obj 63 80 snapshot~; #X obj 63 59 metro 50; #X obj 97 121 s pos; #X obj 63 18 loadbang; #X obj 97 101 * 16; #X obj 63 41 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 ; #X text 146 39 convert signal from phasor to then display to phase position of phasor; #X obj 11 40 inlet~; #X connect 0 0 4 0; #X connect 1 0 0 0; #X connect 3 0 5 0; #X connect 4 0 2 0; #X connect 5 0 1 0; #X connect 7 0 0 0; #X restore 14 250 pd playback pos; #N canvas 12 124 675 391 lnrlim 1; #X obj 195 92 t b f; #X obj 195 167 -; #X obj 195 53 r lLim; #X obj 260 49 r rLim; #X obj 195 72 * 0.0625; #X obj 260 70 * 0.0625; #X obj 260 92 + 0.0625; #X obj 177 243 f; #X obj 238 224 f; #X obj -63 207 threshold~ 0.1 10 0.1 10; #X text 305 125 calculate the difference between the left and right limit of the sample; #X text 278 227 store the value of the difference of the left and right value in a float; #X text -62 135 send a bang to use the values stored in f at the beginning of a new phase; #X obj -62 181 inlet~; #X obj 238 277 outlet; #X obj 177 285 outlet; #X obj 81 297 s balpbsped; #X obj -48 259 unsig~; #X obj -37 300 > 0.9; #X obj -4 350 outlet; #X connect 0 0 1 0; #X connect 0 1 1 1; #X connect 0 1 8 1; #X connect 1 0 7 1; #X connect 2 0 4 0; #X connect 3 0 5 0; #X connect 4 0 0 0; #X connect 5 0 6 0; #X connect 6 0 1 0; #X connect 7 0 15 0; #X connect 7 0 16 0; #X connect 8 0 14 0; #X connect 9 1 7 0; #X connect 9 1 8 0; #X connect 9 1 19 0; #X connect 13 0 9 0; #X connect 13 0 17 0; #X connect 17 0 18 0; #X restore 25 185 pd lnrlim; #X obj 7 11 r balpbsped; #X obj 347 255 hradio 20 1 0 16 empty pos empty 0 -8 0 10 -262144 -1 -1 8; #X text 667 215 right limit; #N canvas 567 407 450 300 samphop 0; #X obj 49 155 t b f b; #X msg 91 197 0 1; #X obj 46 223 pipe 2; #X obj 49 134 * 0.0625; #X msg 49 199 1 1; #X obj 98 223 vline~; #X obj 49 175 del 3; #X obj 136 89 r lLim; #X obj 185 88 r rLim; #X floatatom 136 108 5 0 0 0 - - -; #X floatatom 185 127 5 0 0 0 - - -; #X obj 185 108 + 1; #X obj 136 173 expr 1 / $f1; #X obj 136 147 -; #X obj 136 124 t b f; #X obj 49 90 -; #X obj 106 247 s~ depop; #X obj 37 273 outlet; #X obj 236 270 outlet~; #X obj 49 54 r hop; #X connect 0 0 6 0; #X connect 0 1 2 0; #X connect 0 2 1 0; #X connect 1 0 5 0; #X connect 2 0 17 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 5 0 18 0; #X connect 6 0 4 0; #X connect 7 0 9 0; #X connect 7 0 15 1; #X connect 8 0 11 0; #X connect 9 0 14 0; #X connect 10 0 13 0; #X connect 11 0 10 0; #X connect 12 0 3 1; #X connect 13 0 12 0; #X connect 14 0 13 0; #X connect 14 1 13 1; #X connect 15 0 3 0; #X connect 19 0 15 0; #X restore 53 143 pd samphop; #X obj 347 189 hradio 20 1 0 16 hop lLim empty 0 -8 0 10 -262144 -1 -1 8; #X obj 7 311 tabread4~ table; #N canvas 208 320 450 300 loadsamp 0; #X obj 90 114 soundfiler; #X obj 107 134 s sampSize; #X obj 90 153 expr 44100 / $f1; #X msg 90 95 read -resize 1.wav table; #X obj 90 175 outlet; #X obj 90 76 r uploadsamp; #X connect 0 0 2 0; #X connect 0 0 1 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X connect 5 0 3 0; #X restore 25 49 pd loadsamp; #X obj 347 156 bng 30 250 50 0 uploadsamp empty empty 17 7 0 20 -4034 -257985 -45076; #X text 383 163 Load Samp; #X obj 348 295 vradio 20 1 0 8 vol empty empty 0 -8 0 10 -262144 -1 -1 1; #X obj 32 413 r vol; #X obj 32 453 expr 1 / $f1; #X obj 32 433 + 1; #X text 61 433 need to sort how vol is cal; #X text 343 455 vol; #X obj 197 324 vline~; #X obj 148 256 t b b; #X obj 7 371 *~; #X obj 148 276 del 3; #X msg 148 300 1 10; #X msg 190 298 0 10; #X connect 0 0 10 0; #X connect 0 0 23 0; #X connect 1 0 29 0; #X connect 2 0 1 1; #X connect 5 0 8 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X connect 8 0 0 0; #X connect 10 0 11 0; #X connect 11 0 1 0; #X connect 11 0 22 0; #X connect 12 0 13 0; #X connect 13 0 5 0; #X connect 13 1 8 1; #X connect 15 0 16 0; #X connect 16 0 14 0; #X connect 16 0 14 1; #X connect 19 0 41 0; #X connect 23 0 40 0; #X connect 23 1 10 1; #X connect 23 2 11 1; #X connect 24 0 6 0; #X connect 27 0 0 1; #X connect 27 1 19 1; #X connect 29 0 19 0; #X connect 30 0 7 1; #X connect 34 0 36 0; #X connect 35 0 15 1; #X connect 36 0 35 0; #X connect 39 0 41 1; #X connect 40 0 42 0; #X connect 40 1 44 0; #X connect 41 0 15 0; #X connect 42 0 43 0; #X connect 43 0 39 0; #X connect 44 0 39 0; #X coords 0 882 1 881 85 60 0;