#N canvas 233 23 449 360 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 26 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; #N canvas 366 23 852 653 subtractive 0; #X floatatom 385 293 5 0 0 0 - - -; #X obj 169 385 +~; #X obj 315 341 *~ 1; #X obj 169 338 *~ 1; #X obj 360 201 expr pow(2 \, ($f1 / 12)); #X floatatom 360 183 5 0 0 0 - - -; #X floatatom 360 220 5 0 0 0 - - -; #X obj 200 201 expr pow(2 \, ($f1 / 12)); #X floatatom 200 183 5 0 0 0 - - -; #X floatatom 200 220 5 0 0 0 - - -; #X floatatom 225 298 5 0 0 0 - - -; #X obj 131 795 outlet~; #X obj 434 222 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 0 1; #X text 240 492 <-- LFO (Low-Frequency Oscillator; #X obj 133 293 inlet~; #X floatatom 176 276 5 0 0 0 - - -; #X obj 132 611 vcf~; #X obj -128 632 vsl 15 128 0 20 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 3366 1; #X obj 174 412 hsl 128 15 700 6000 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 185 475 hsl 128 15 0 700 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom 181 494 6 0 0 0 - - -; #X floatatom 184 453 6 0 0 0 - - -; #X obj 171 431 -; #X obj 141 432 bang; #X obj 139 493 +~ 200; #X text 310 412 <-- Maximum of the freq. range; #X text 328 466 <-- Minimum of the freq. range; #X text -91 732 <-- "Q"; #X text -109 712 <-- Voltage-Controlled band-pass filter; #X obj -108 632 loadbang; #X msg -108 657 5.3; #X obj 131 656 *~ 1; #X floatatom 132 635 5 0 0 0 - - -; #X obj -128 766 pack f 50; #X obj -128 786 line; #X obj 340 243 *~ 1; #X obj 177 238 *~ 1; #X obj 176 257 env~; #X floatatom 340 283 5 0 0 0 - - -; #X obj 340 264 env~; #X obj 315 311 vcf~ 220 1; #X obj 169 319 vcf~ 100 1; #X floatatom 177 159 5 0 0 0 - - -; #X text 457 225 Q; #X text 218 159 fc; #X obj 131 728 lop~; #X floatatom -314 693 5 0 0 0 - - -; #X floatatom -232 690 5 0 0 0 - - -; #X obj -314 605 inlet; #X obj -229 535 inlet; #X obj -129 527 inlet; #X obj -13 482 inlet; #X obj 54 500 inlet; #X obj -314 633 * 10000; #X obj -230 588 pack f 500; #X obj -230 608 line~; #X obj -231 630 env~; #X obj -231 654 * 10; #X obj -314 654 pack f 500; #X obj -314 674 line; #X obj -16 556 + 699; #X floatatom -16 580 5 0 0 0 - - -; #X obj -16 532 * 5300; #X obj 54 528 * 700; #X obj -127 588 * 20; #X obj 131 766 hip~ 1; #X connect 0 0 40 2; #X connect 2 0 1 1; #X connect 3 0 1 0; #X connect 4 0 6 0; #X connect 5 0 4 0; #X connect 6 0 35 1; #X connect 7 0 9 0; #X connect 8 0 7 0; #X connect 9 0 36 1; #X connect 10 0 41 2; #X connect 12 0 0 0; #X connect 12 0 10 0; #X connect 14 0 41 0; #X connect 14 0 16 0; #X connect 15 0 41 1; #X connect 16 0 31 0; #X connect 17 0 33 0; #X connect 18 0 22 0; #X connect 19 0 20 0; #X connect 19 0 22 1; #X connect 19 0 24 1; #X connect 22 0 21 0; #X connect 22 0 24 0; #X connect 23 0 22 0; #X connect 23 0 19 0; #X connect 24 0 16 1; #X connect 29 0 30 0; #X connect 30 0 17 0; #X connect 31 0 45 0; #X connect 32 0 31 1; #X connect 33 0 34 0; #X connect 34 0 16 2; #X connect 35 0 39 0; #X connect 36 0 37 0; #X connect 37 0 15 0; #X connect 38 0 40 1; #X connect 39 0 38 0; #X connect 40 0 2 0; #X connect 41 0 3 0; #X connect 42 0 36 0; #X connect 42 0 35 0; #X connect 45 0 65 0; #X connect 46 0 45 1; #X connect 47 0 65 1; #X connect 48 0 53 0; #X connect 50 0 64 0; #X connect 51 0 62 0; #X connect 52 0 63 0; #X connect 53 0 58 0; #X connect 54 0 55 0; #X connect 55 0 56 0; #X connect 56 0 57 0; #X connect 58 0 59 0; #X connect 59 0 46 0; #X connect 60 0 61 0; #X connect 62 0 18 0; #X connect 62 0 60 0; #X connect 63 0 19 0; #X connect 64 0 17 0; #X connect 65 0 11 0; #X restore -871 56 pd subtractive; #X obj -867 -19 gridSampler 1; #X connect 1 0 0 0; #X connect 6 0 3 0; #X connect 6 0 3 1;