#N canvas 662 23 423 263 10; #X declare -lib OSC -lib mrpeach; #X msg -867 -145 \; pd dsp \$1; #N canvas 469 26 298 426 toggle 0; #X obj 6 224 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 ; #X obj 13 275 s osc-out; #X msg 13 252 /monome/grid/led/set 0 0 \$1; #X obj 6 304 outlet; #X floatatom 64 28 5 0 0 0 - - -; #X floatatom 123 28 5 0 1 0 - - -; #X floatatom 6 24 5 0 0 0 - - -; #X obj 123 47 == 1; #X obj 6 66 expr $i1 + $i2 + $i3; #X obj 6 86 == 3; #X obj 6 47 == 0; #X obj 7 196 sel 1; #X obj 7 168 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 ; #X obj 64 47 == 0; #X obj 5 -44 r routeOSC; #X obj 5 -22 routeOSC /monome/grid/key; #X obj 5 -5 unpack f f f; #X connect 0 0 2 0; #X connect 0 0 3 0; #X connect 2 0 1 0; #X connect 4 0 13 0; #X connect 5 0 7 0; #X connect 6 0 10 0; #X connect 7 0 8 2; #X connect 8 0 9 0; #X connect 9 0 12 0; #X connect 10 0 8 0; #X connect 11 0 0 0; #X connect 12 0 11 0; #X connect 13 0 8 1; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 16 0 6 0; #X connect 16 1 4 0; #X connect 16 2 5 0; #X restore -867 -164 pd toggle; #N canvas 501 25 464 256 gridinput 0; #X obj -277 -63 r osc-out; #X obj -277 -39 serialosc; #X obj -277 -12 s routeOSC; #X connect 0 0 1 0; #X connect 1 0 2 0; #X restore -867 -113 pd gridinput; #X obj -867 -74 dac~; #N canvas 441 23 579 378 binery 0; #X obj 327 -20 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 387 -20 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 447 -20 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 507 -20 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 327 22 3; #X obj 327 0 t b f; #X obj 327 49 expr if($f2==1 \, pow(2 \, $f1) \, -pow(2 \, $f1)); #X obj 327 71 +; #X obj 357 71 t f; #X floatatom 303 105 5 0 0 0 - - -; #X obj 387 0 t b f; #X obj 447 0 t b f; #X obj 507 0 t b f; #X msg 507 22 0; #X msg 447 22 1; #X msg 387 22 2; #X floatatom 386 -151 5 0 0 0 - - -; #X floatatom 445 -151 5 0 1 0 - - -; #X floatatom 328 -150 5 0 0 0 - - -; #X obj 445 -132 == 1; #X obj 328 -169 r x; #X obj 386 -170 r y; #X obj 445 -170 r s; #X obj 328 -113 expr $i1 + $i2 + $i3; #X obj 328 -93 == 3; #X obj 327 -72 spigot; #N canvas 642 140 450 300 bineryLED 0; #X obj 147 88 s osc-out; #X obj 68 -16 inlet; #X obj 105 -16 inlet; #X obj 143 -15 inlet; #X obj 185 -19 inlet; #X msg 68 5 /monome/grid/led/set 12 7 \$1; #X msg 124 45 /monome/grid/led/set 14 7 \$1; #X msg 147 65 /monome/grid/led/set 15 7 \$1; #X msg 105 24 /monome/grid/led/set 13 7 \$1; #X connect 1 0 5 0; #X connect 2 0 8 0; #X connect 3 0 6 0; #X connect 4 0 7 0; #X connect 5 0 0 0; #X connect 6 0 0 0; #X connect 7 0 0 0; #X connect 8 0 0 0; #X restore 546 -1 pd bineryLED; #X obj 92 155 s osc-out; #X floatatom 165 -59 5 0 0 0 - - -; #X floatatom 224 -59 5 0 1 0 - - -; #X floatatom 107 -58 5 0 0 0 - - -; #X obj 224 -40 == 1; #X obj 107 -77 r x; #X obj 165 -78 r y; #X obj 224 -78 r s; #X obj 107 -21 expr $i1 + $i2 + $i3; #X obj 107 -1 == 3; #X obj 107 18 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 302 160 s bin; #X obj 107 36 sel 1; #X obj 108 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 305 134 f; #X obj 284 72 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 186 48 sel 1; #X obj 199 78 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 386 -132 == 7; #X obj 165 -40 == 7; #X obj 328 -132 >= 12; #X obj 327 -45 sel 12; #X obj 389 -45 sel 13; #X obj 447 -45 sel 14; #X obj 503 -46 sel 15; #X obj 107 -40 == 11; #X msg 92 136 /monome/grid/led/set 11 7 \$1; #X connect 0 0 5 0; #X connect 0 0 26 0; #X connect 1 0 10 0; #X connect 1 0 26 1; #X connect 2 0 11 0; #X connect 2 0 26 2; #X connect 3 0 12 0; #X connect 3 0 26 3; #X connect 4 0 6 0; #X connect 5 0 4 0; #X connect 5 1 6 1; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 1; #X connect 9 0 41 1; #X connect 10 0 15 0; #X connect 10 1 6 1; #X connect 11 0 14 0; #X connect 11 1 6 1; #X connect 12 0 13 0; #X connect 12 1 6 1; #X connect 13 0 6 0; #X connect 14 0 6 0; #X connect 15 0 6 0; #X connect 16 0 45 0; #X connect 17 0 19 0; #X connect 18 0 25 0; #X connect 18 0 47 0; #X connect 19 0 23 2; #X connect 20 0 18 0; #X connect 21 0 16 0; #X connect 22 0 17 0; #X connect 23 0 24 0; #X connect 24 0 25 1; #X connect 25 0 48 0; #X connect 25 0 49 0; #X connect 25 0 50 0; #X connect 25 0 51 0; #X connect 28 0 46 0; #X connect 29 0 31 0; #X connect 30 0 52 0; #X connect 31 0 35 2; #X connect 32 0 30 0; #X connect 33 0 28 0; #X connect 34 0 29 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 37 0 39 0; #X connect 39 0 40 0; #X connect 40 0 53 0; #X connect 40 0 43 0; #X connect 41 0 38 0; #X connect 42 0 41 0; #X connect 43 0 44 0; #X connect 44 0 42 0; #X connect 45 0 23 1; #X connect 46 0 35 1; #X connect 47 0 23 0; #X connect 48 0 0 0; #X connect 49 0 1 0; #X connect 50 0 2 0; #X connect 51 0 3 0; #X connect 52 0 35 0; #X connect 53 0 27 0; #X restore -807 -164 pd binery; #X obj -601 0 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -588 107 print; #X obj -590 79 f \$1; #X obj -546 108 print; #X obj -548 80 f \$2; #X obj -503 107 print; #X obj -505 79 f \$3; #X obj -867 -94 gridSamplerPtest \$0; #X connect 1 0 0 0; #X connect 5 0 7 0; #X connect 5 0 9 0; #X connect 5 0 11 0; #X connect 7 0 6 0; #X connect 9 0 8 0; #X connect 11 0 10 0; #X connect 12 0 3 0; #X connect 12 0 3 1;