#N canvas 495 30 772 701 10; #X declare -lib OSC -lib mrpeach; #X obj 4 259 phasor~; #X obj 4 384 *~; #X floatatom 4 223 5 0 0 0 - - -; #X obj 3 23 expr 1 / $f1; #X obj 3 62 *; #X obj 4 240 *; #X obj 4 305 *~; #X obj 4 324 +~; #X obj 15 203 t b f; #X obj 4 518 *~ 1; #X obj 4 537 hip~ 5; #X obj 4 422 *~; #N canvas 51 473 450 300 playback 0; #X obj 63 80 snapshot~; #X obj 63 59 metro 50; #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 obj 97 121 s \$0-pos; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 4 0; #X connect 3 0 7 0; #X connect 4 0 1 0; #X connect 6 0 0 0; #X restore 12 346 pd playback pos; #N canvas 4 229 662 435 lnrlim 0; #X obj 184 92 t b f; #X obj 195 167 -; #X obj 184 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 262 207 store the value of the difference of the left and right value in a float; #X obj -62 181 inlet~; #X obj 238 245 outlet; #X obj -24 336 vline~; #X obj -24 270 t b b; #X msg -24 313 1 500; #X msg 17 313 0 500; #X text -62 135 send a bang to use the values stored in f at the beginning of a new phase; #X obj 177 265 outlet; #X obj -25 355 outlet~; #X obj -24 294 del 300; #X text 67 314 dip vol on each loop; #X obj 67 265 s \$0-balpbsped; #X obj 260 32 loadbang; #X msg 260 51 15; #X obj 184 53 r \$0-lLim; #X obj 319 51 r \$0-lRim; #X obj 152 34 loadbang; #X msg 152 53 0; #X connect 0 0 1 0; #X connect 0 1 1 1; #X connect 0 1 6 1; #X connect 1 0 5 1; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 1 0; #X connect 5 0 17 0; #X connect 5 0 21 0; #X connect 6 0 11 0; #X connect 7 1 5 0; #X connect 7 1 6 0; #X connect 7 1 13 0; #X connect 10 0 7 0; #X connect 12 0 18 0; #X connect 13 0 19 0; #X connect 13 1 15 0; #X connect 14 0 12 0; #X connect 15 0 12 0; #X connect 19 0 14 0; #X connect 22 0 23 0; #X connect 23 0 3 0; #X connect 24 0 2 0; #X connect 26 0 27 0; #X connect 27 0 2 0; #X restore 22 281 pd lnrlim; #N canvas 267 379 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 floatatom 136 108 5 0 0 0 - - -; #X floatatom 214 133 5 0 0 0 - - -; #X obj 214 114 + 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 37 273 outlet; #X obj 211 265 outlet~; #X obj 106 257 s~ \$0-depop; #X obj 214 94 r \$0-rLim; #X obj 136 77 r \$0-lLim; #X obj 49 54 r \$0-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 14 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 5 0 15 0; #X connect 5 0 16 0; #X connect 6 0 4 0; #X connect 7 0 12 0; #X connect 8 0 11 0; #X connect 9 0 8 0; #X connect 10 0 3 1; #X connect 11 0 10 0; #X connect 12 0 11 0; #X connect 12 1 11 1; #X connect 13 0 3 0; #X connect 17 0 9 0; #X connect 18 0 13 1; #X connect 18 0 7 0; #X connect 19 0 13 0; #X restore 43 240 pd samphop; #N canvas 391 536 246 186 loadsamp 0; #X obj 4 109 soundfiler; #X obj 4 148 expr 44100 / $f1; #X obj 4 170 outlet; #X obj 21 129 s \$0-sampSize; #X obj 4 4 r \$0-uploadsamp; #X obj 4 71 pack \$1 \$2; #X msg 4 90 read -resize \$2.wav \$1-table; #X obj 89 32 r \$0-fileSelect; #X obj 71 52 f; #X connect 0 0 1 0; #X connect 0 0 3 0; #X connect 1 0 2 0; #X connect 4 0 8 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 1; #X connect 8 0 5 1; #X restore 18 42 pd loadsamp; #X obj 25 499 expr 1 / $f1; #X obj 25 480 + 1; #X obj 4 442 *~; #X obj 4 556 outlet~; #X obj 206 149 hsl 299 15 -2 2 0 0 \$0-pbk empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 296 147 playback speed; #X obj 203 110 hradio 19 1 1 16 \$0-lLim empty empty 0 -8 0 10 -262144 -1 -1 1; #X obj 203 91 hradio 19 1 1 16 \$0-rLim empty empty 0 -8 0 10 -262144 -1 -1 4; #X obj 203 128 hradio 19 1 0 16 empty \$0-pos empty 0 -8 0 10 -262144 -1 -1 0; #X obj 203 72 hradio 19 1 0 16 \$0-hop \$0-lLim empty 0 -8 0 10 -262144 -1 -1 4; #X text 204 112 l e f t l i m i t; #X text 309 95 r i g h t l i m i t; #X text 211 132 p l a y b a c k p o s; #X text 37 442 need to sort how vol is cal; #X obj 21 365 r \$0-sampSize; #X obj 203 167 hradio 38 1 0 8 \$0-vol empty empty 0 -8 0 102 -262144 -1 -1 0; #X text 257 179 v o l u m e; #X obj 25 461 r \$0-vol; #X obj 15 88 r \$0-pbk; #X obj 3 4 r \$0-balpbsped; #X floatatom 471 49 5 0 0 0 - #0-mineFirst #0-fileSelect; #X text 86 114 set temp; #X msg 88 134 145.7; #X obj 92 166 *; #X floatatom 26 118 5 0 0 0 - - -; #X obj 216 305 loadbang; #X obj 216 323 \$1; #X obj 216 376 s \$0-mineFirst; #X msg 229 343 \; \$1-table resize 1; #N canvas 815 382 450 300 table 0; #N canvas 0 50 450 250 (subpatch) 0; #X array \$1-table 1 float 2; #X coords 0 1 1 -1 262 54 1 0 0; #X restore 4 25 graph; #X restore 215 284 pd table; #X obj 4 403 tabread4~ \$1-table; #X text 275 305 give small default size to array; #X obj 546 407 serialosc; #X obj 546 480 unpack f f f; #X floatatom 546 512 5 0 0 0 - - -; #X floatatom 580 512 5 0 0 0 - - -; #X floatatom 615 512 5 0 0 0 - - -; #X obj 546 458 routeOSC /monome/grid/key; #X msg 588 304 /monome/grid/led/set \$1 \$2 \$3; #X msg 588 193 1 1 1; #X msg 635 193 1 1 0; #X text 778 302 add the OSC address; #X text 545 530 x y state; #X connect 0 0 6 0; #X connect 0 0 13 0; #X connect 1 0 46 0; #X connect 2 0 5 0; #X connect 3 0 4 0; #X connect 4 0 2 0; #X connect 5 0 0 0; #X connect 6 0 7 0; #X connect 7 0 1 0; #X connect 7 0 12 0; #X connect 8 0 2 0; #X connect 8 1 5 1; #X connect 9 0 10 0; #X connect 10 0 19 0; #X connect 11 0 18 0; #X connect 13 0 18 1; #X connect 13 1 6 1; #X connect 13 2 7 1; #X connect 14 0 0 1; #X connect 14 1 11 1; #X connect 15 0 4 1; #X connect 16 0 9 1; #X connect 17 0 16 0; #X connect 18 0 9 0; #X connect 30 0 1 1; #X connect 33 0 17 0; #X connect 34 0 8 0; #X connect 35 0 3 0; #X connect 41 0 42 0; #X connect 42 0 43 0; #X connect 42 0 44 0; #X connect 46 0 11 0; #X connect 48 0 53 0; #X connect 49 0 50 0; #X connect 49 1 51 0; #X connect 49 2 52 0; #X connect 53 0 49 0; #X connect 53 0 54 0; #X connect 54 0 48 0; #X connect 55 0 54 0; #X connect 56 0 54 0; #X coords 0 701 1 700 310 200 0;