1 files changed, 299 insertions, 0 deletions
diff --git a/sfruit/crikeymini.pd b/sfruit/crikeymini.pd
new file mode 100644
index 0000000..391553d
--- /dev/null
+++ b/sfruit/crikeymini.pd
@@ -0,0 +1,299 @@
+#N canvas 875 284 395 398 10;
+#N canvas 757 271 365 337 hid 0;
+#X obj 55 103 route key;
+#X obj 55 122 route key_1 key_-1;
+#X obj 177 152 list split 1;
+#X obj 177 206 symbol2list _;
+#X obj 176 233 list split 1;
+#X obj 211 178 s \$0keystate;
+#X obj 210 276 s \$0hidnum;
+#X obj 55 56 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X obj 55 84 hid;
+#X obj 55 4 loadbang;
+#X msg 149 55 debug 0;
+#X obj 55 28 t b b b;
+#X msg 84 55 open keyboard;
+#X connect 0 0 1 0;
+#X connect 1 2 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 5 0;
+#X connect 3 0 4 0;
+#X connect 4 1 6 0;
+#X connect 7 0 8 0;
+#X connect 8 0 0 0;
+#X connect 9 0 11 0;
+#X connect 10 0 8 0;
+#X connect 11 0 7 0;
+#X connect 11 1 12 0;
+#X connect 11 2 10 0;
+#X connect 12 0 8 0;
+#X restore 34 43 pd hid;
+#N canvas 547 30 733 597 transconfig 0;
+#X obj 543 46 keyname;
+#X obj 336 241 r \$0hidnum;
+#X obj 232 63 r \$0keystate;
+#X obj 232 149 sel 1;
+#X obj 243 171 r \$0reset;
+#X msg 26 299 1;
+#X msg 56 299 0;
+#X obj 87 299 f;
+#X obj 58 235 t b b f;
+#X obj 26 378 pack f f;
+#X obj 87 350 pipe f f 250;
+#X obj 87 378 pack f f;
+#X obj 26 433 s \$0note;
+#X floatatom 253 245 5 0 0 0 - - -;
+#X obj 217 540 tabwrite \$0translation;
+#X msg 243 193 reset;
+#X obj 426 47 r \$0rec;
+#X obj 426 73 sel 1;
+#X obj 426 102 s \$0reset;
+#X obj 253 292 s \$0recr;
+#X obj 253 267 sel 36;
+#X obj 233 219 count 37;
+#N canvas 0 22 463 424 (subpatch) 0;
+#X array \$0translation 255 float 3;
+#A 0 255 255 255 255 4 16 2 6 10 7 20 21 27 22 23 35 18 17 16 17 8
+11 5 24 26 3 9 1 25 0 12 13 14 15 28 29 30 31 15 255 255 255 22 0 255
+18 20 19 21 23 255 255 255 255 19 32 33 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 34 255 255 255 255
+255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
+255 255 255 255;
+#X coords 0 0 255 260 200 140 1;
+#X restore 9 38 graph;
+#X obj 336 314 t b f;
+#X obj 217 350 f;
+#X obj 336 290 spigot;
+#X obj 372 265 r \$0rec;
+#X obj 232 119 spigot;
+#X obj 265 94 r \$0rec;
+#X text 16 204 feedback while filling;
+#X text 17 214 the translation table.;
+#X obj 582 75 s \$0keyname;
+#X obj 250 424 pack f f;
+#X obj 250 448 s \$0messmem;
+#X obj 250 485 r \$0messmemload;
+#X obj 250 509 unpack;
+#X obj 295 401 change;
+#X obj 250 401 change;
+#X obj 527 216 r \$0reset;
+#X obj 527 241 t b b;
+#X obj 527 395 tabwrite \$0translation;
+#X msg 571 295 reset;
+#X obj 527 326 count 255;
+#X msg 527 373 255;
+#X obj 527 296 until;
+#X msg 527 270 255;
+#X obj 527 348 t b f;
+#X text 17 193 This rigs up visual;
+#X connect 0 1 31 0;
+#X connect 1 0 25 0;
+#X connect 2 0 27 0;
+#X connect 3 0 21 0;
+#X connect 4 0 15 0;
+#X connect 5 0 9 1;
+#X connect 6 0 10 1;
+#X connect 7 0 9 0;
+#X connect 7 0 10 0;
+#X connect 8 0 7 0;
+#X connect 8 1 6 0;
+#X connect 8 1 5 0;
+#X connect 8 2 7 1;
+#X connect 9 0 12 0;
+#X connect 10 0 11 0;
+#X connect 10 1 11 1;
+#X connect 11 0 12 0;
+#X connect 13 0 20 0;
+#X connect 15 0 21 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 20 0 19 0;
+#X connect 21 0 13 0;
+#X connect 21 0 8 0;
+#X connect 21 0 24 1;
+#X connect 23 0 24 0;
+#X connect 23 1 14 1;
+#X connect 23 1 36 0;
+#X connect 24 0 14 0;
+#X connect 24 0 37 0;
+#X connect 25 0 23 0;
+#X connect 26 0 25 1;
+#X connect 27 0 3 0;
+#X connect 28 0 27 1;
+#X connect 32 0 33 0;
+#X connect 34 0 35 0;
+#X connect 35 0 14 0;
+#X connect 35 1 14 1;
+#X connect 36 0 32 1;
+#X connect 37 0 32 0;
+#X connect 38 0 39 0;
+#X connect 39 0 45 0;
+#X connect 39 1 41 0;
+#X connect 41 0 42 0;
+#X connect 42 0 46 0;
+#X connect 43 0 40 0;
+#X connect 44 0 42 0;
+#X connect 45 0 44 0;
+#X connect 46 0 43 0;
+#X connect 46 1 40 1;
+#X restore 34 69 pd transconfig;
+#N canvas 930 190 350 403 translate 0;
+#X obj 100 266 r \$0keystate;
+#X obj 56 321 s \$0note;
+#X obj 55 286 pack f f;
+#X obj 55 149 tabread \$0translation;
+#X obj 55 45 r \$0hidnum;
+#X obj 145 45 r \$0rec;
+#X obj 145 70 sel 0 1;
+#X msg 145 97 1;
+#X msg 175 97 0;
+#X obj 55 223 spigot;
+#X obj 55 179 t f f;
+#X obj 88 202 < 255;
+#X obj 55 114 spigot 1;
+#X connect 0 0 2 1;
+#X connect 2 0 1 0;
+#X connect 3 0 10 0;
+#X connect 4 0 12 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 1 8 0;
+#X connect 7 0 12 1;
+#X connect 8 0 12 1;
+#X connect 9 0 2 0;
+#X connect 10 0 9 0;
+#X connect 10 1 11 0;
+#X connect 11 0 9 1;
+#X connect 12 0 3 0;
+#X restore 34 117 pd translate;
+#N canvas 564 265 482 332 output 0;
+#X obj 138 28 r \$0note;
+#X obj 138 68 unpack;
+#X obj 175 115 sel 1;
+#X obj 174 203 f;
+#X obj 189 158 r \$0vel;
+#X obj 90 252 outlet;
+#X obj 175 252 outlet;
+#X obj 113 173 * 12;
+#X obj 90 196 + 60;
+#X obj 113 152 r \$0oct;
+#X connect 0 0 1 0;
+#X connect 1 0 8 0;
+#X connect 1 1 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 6 0;
+#X connect 3 0 6 0;
+#X connect 4 0 3 1;
+#X connect 7 0 8 1;
+#X connect 8 0 5 0;
+#X connect 9 0 7 0;
+#X restore 34 141 pd output;
+#N canvas 806 99 474 324 args 0;
+#X obj 165 61 \$1;
+#X obj 197 61 \$2;
+#X obj 229 61 \$3;
+#X obj 164 26 loadbang;
+#X obj 164 131 s \$0durationr;
+#X obj 198 109 s \$0velr;
+#X obj 230 86 s \$0channel;
+#X connect 0 0 4 0;
+#X connect 1 0 5 0;
+#X connect 2 0 6 0;
+#X connect 3 0 0 0;
+#X connect 3 0 1 0;
+#X connect 3 0 2 0;
+#X restore 34 19 pd args;
+#X obj 34 204 outlet;
+#N canvas 683 22 713 641 saveload 0;
+#X msg 190 110 add2 \$1 \$2;
+#X msg 125 110 addcomma;
+#X obj 125 52 r \$0messmem;
+#X obj 125 78 t a a;
+#X msg 125 207;
+#X msg 201 176 set;
+#X obj 124 502 textfile;
+#X msg 124 366 add \$1 \$2;
+#X obj 337 379 s \$0reset;
+#X obj 278 235 r \$0loadkeymap;
+#X obj 174 555 s \$0keyname;
+#X msg 174 528 symbol Ok;
+#X obj 125 596 s \$0messmemload;
+#X obj 9 144 r \$0savekeymap;
+#X obj 9 360 savepanel;
+#X msg 9 386 write \$1;
+#X obj 201 152 r \$0reset;
+#X obj 9 174 t b b;
+#X msg 298 469 rewind;
+#X obj 240 403 until;
+#X text 12 10 The map is held in a message to allow the eventual ability
+to hardcode defaults into the patch for ease of use.;
+#X obj 278 283 openpanel;
+#X obj 278 353 t b b a b;
+#X obj 316 434 list trim;
+#X obj 342 297 loadbang;
+#X text 399 298 Default map filename;
+#X obj 316 407 list prepend read;
+#X obj 345 88 r \$0-mode-s;
+#X obj 345 111 sel 0 1;
+#X msg 345 157 symbol drumpads.crikey;
+#X msg 345 137 symbol clavier.crikey;
+#X msg 342 319 symbol clavier.crikey;
+#X connect 0 0 4 0;
+#X connect 1 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 3 1 0 0;
+#X connect 4 0 7 0;
+#X connect 5 0 4 0;
+#X connect 6 0 12 0;
+#X connect 6 1 11 0;
+#X connect 6 1 19 1;
+#X connect 7 0 6 0;
+#X connect 9 0 21 0;
+#X connect 11 0 10 0;
+#X connect 13 0 17 0;
+#X connect 14 0 15 0;
+#X connect 15 0 6 0;
+#X connect 16 0 5 0;
+#X connect 17 0 14 0;
+#X connect 17 1 4 0;
+#X connect 18 0 6 0;
+#X connect 19 0 6 0;
+#X connect 21 0 22 0;
+#X connect 22 0 19 0;
+#X connect 22 1 18 0;
+#X connect 22 2 26 0;
+#X connect 22 3 8 0;
+#X connect 23 0 6 0;
+#X connect 24 0 31 0;
+#X connect 26 0 23 0;
+#X connect 27 0 28 0;
+#X connect 28 0 30 0;
+#X connect 28 1 29 0;
+#X connect 29 0 22 0;
+#X connect 30 0 22 0;
+#X connect 31 0 22 0;
+#X restore 34 93 pd saveload;
+#X obj 34 172 pack f f;
+#X obj 186 132 hradio 8 1 1 7 \$0oct \$0octr Octave 0 -6 0 8 -39808
+-1 -1 3;
+#X obj 186 143 vradio 10 1 0 2 \$0-mode-s \$0-mode-r empty 0 -8 0 10
+-262144 -1 -1 0;
+#X obj 198 143 cnv 10 40 10 empty empty Clavier 2 5 0 8 -262144 -66577
+0;
+#X obj 198 153 cnv 10 40 10 empty empty MPD 2 5 0 8 -262144 -66577
+0;
+#X connect 3 0 7 0;
+#X connect 3 1 7 1;
+#X connect 7 0 5 0;
+#X coords 0 -1 1 1 64 50 2 182 118;