patches/lib/control/keymod.pd

#N canvas 0 30 1022 568 12;
#X obj 708 47 inlet;
#X obj 448 458 outlet;
#X obj 525 269 spigot;
#X msg 555 187 1;
#X msg 613 188 0;
#X symbolatom 131 43 10 0 0 0 - - -, f 10;
#X obj 320 322 +;
#X msg 184 196 1;
#X msg 122 209 -1;
#X obj 326 378 f;
#X obj 311 273 spigot;
#X obj 122 148 select Left Right Down Up;
#X obj 552 154 select .;
#X obj 604 322 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 547 354 5 0 0 0 - - -, f 5;
#X symbolatom 815 209 6 0 0 0 - - -, f 6;
#X msg 245 191 -10;
#X msg 304 186 10;
#X text 778 51 key to select;
#X obj 589 25 loadbang;
#X obj 695 111 symbol \$1;
#N canvas 0 50 1022 569 not-a-number 0;
#X floatatom 88 99 3 0 0 0 - - -, f 3;
#X obj 97 63 keyname;
#X symbolatom 164 100 10 0 0 0 - - -, f 10;
#X obj 91 133 == 0;
#X obj 108 290 outlet;
#X obj 107 197 spigot 1;
#X obj 113 250 spigot 1;
#X obj 408 41 key;
#X floatatom 408 69 3 0 0 0 - - -, f 3;
#X obj 334 110 moses 48;
#X obj 390 187 - 48;
#X obj 410 147 moses 58;
#X msg 348 238 0;
#X msg 462 290 1;
#X obj 372 439 outlet;
#X text 106 318 press;
#X text 371 467 release;
#X symbolatom 57 354 10 0 0 0 - - -, f 10;
#X symbolatom 468 448 10 0 0 0 - - -, f 10;
#X obj 343 396 spigot 0;
#X obj 327 362 spigot 0;
#X symbolatom 237 454 10 0 0 0 - - -, f 10;
#X connect 0 0 3 0;
#X connect 0 0 19 1;
#X connect 1 0 0 0;
#X connect 1 1 2 0;
#X connect 2 0 5 0;
#X connect 2 0 20 0;
#X connect 3 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 6 0 17 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 13 0;
#X connect 9 1 11 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 11 1 13 0;
#X connect 12 0 6 1;
#X connect 12 0 20 1;
#X connect 13 0 6 1;
#X connect 13 0 20 1;
#X connect 19 0 18 0;
#X connect 19 0 14 0;
#X connect 20 0 19 0;
#X connect 20 0 21 0;
#X restore 75 7 pd not-a-number;
#N canvas 0 50 1022 569 number 0;
#X obj 217 239 outlet;
#X obj 288 35 key;
#X floatatom 288 63 3 0 0 0 - - -, f 3;
#X obj 214 104 moses 48;
#X obj 270 181 - 48;
#X obj 290 141 moses 58;
#X obj 424 239 outlet;
#X floatatom 495 63 3 0 0 0 - - -, f 3;
#X obj 421 104 moses 48;
#X obj 477 181 - 48;
#X obj 497 141 moses 58;
#X obj 495 35 keyup;
#X text 273 216 on;
#X text 479 210 off;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 1 5 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 7 0 8 0;
#X connect 8 1 10 0;
#X connect 9 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 7 0;
#X restore 444 32 pd number;
#X floatatom 463 95 5 0 0 0 - - -, f 5;
#X obj 746 455 outlet;
#X text 471 64 press;
#X text 589 69 release;
#X floatatom 610 98 5 0 0 0 - - -, f 5;
#X obj 770 310 spigot;
#X text 446 487 press;
#X text 771 487 release;
#X msg 288 61 bang;
#X obj 392 378 f;
#X floatatom 812 410 5 0 0 0 - - -, f 5;
#X obj 261 109 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X symbolatom 286 17 10 0 0 0 - - -, f 10;
#X symbolatom 623 321 2 0 0 0 - - -, f 2;
#X connect 0 0 20 0;
#X connect 2 0 6 1;
#X connect 2 0 14 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 3 0 10 1;
#X connect 3 0 13 0;
#X connect 3 0 28 1;
#X connect 4 0 2 1;
#X connect 4 0 10 1;
#X connect 4 0 13 0;
#X connect 4 0 28 1;
#X connect 5 0 11 0;
#X connect 6 0 2 0;
#X connect 6 0 9 0;
#X connect 6 0 32 1;
#X connect 7 0 10 0;
#X connect 8 0 10 0;
#X connect 9 0 6 1;
#X connect 10 0 6 0;
#X connect 11 0 8 0;
#X connect 11 1 7 0;
#X connect 11 2 16 0;
#X connect 11 3 17 0;
#X connect 11 4 12 0;
#X connect 12 0 3 0;
#X connect 12 1 4 0;
#X connect 16 0 10 0;
#X connect 17 0 10 0;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 20 0 15 0;
#X connect 20 0 36 0;
#X connect 21 0 5 0;
#X connect 21 1 31 0;
#X connect 21 1 35 0;
#X connect 22 0 23 0;
#X connect 22 1 27 0;
#X connect 23 0 2 0;
#X connect 27 0 28 0;
#X connect 28 0 33 0;
#X connect 28 0 24 0;
#X connect 31 0 32 0;
#X connect 31 0 34 0;
#X connect 32 0 24 0;
#X coords 0 -1 1 1 50 40 1 600 300;