1 files changed, 98 insertions, 0 deletions
diff --git a/control/kbd2midi.pd b/control/kbd2midi.pd
new file mode 100644
index 0000000..f26038d
--- /dev/null
+++ b/control/kbd2midi.pd
@@ -0,0 +1,98 @@
+#N canvas 413 429 88 48 10;
+#N canvas 405 324 705 488 guts 0;
+#X obj 97 26 keyname;
+#X obj 103 102 symbol;
+#X obj 103 77 select 1;
+#X obj 181 153 pool;
+#X msg 121 129 get \$1;
+#X obj 181 261 outlet;
+#X obj 181 82 loadbang;
+#X obj 218 175 r \$0-onoff;
+#X obj 94 51 spigot;
+#X obj 164 28 r \$0-onoff;
+#X obj 181 220 route float;
+#X obj 181 198 spigot;
+#X msg 325 116 set \$1 \$2;
+#X obj 326 81 pack s 0;
+#X floatatom 377 58 5 0 0 0 - - -;
+#X obj 319 38 symbol;
+#X symbolatom 338 16 10 0 0 0 - - -;
+#X msg 292 2 bang;
+#X obj 243 52 spigot;
+#X obj 263 25 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X obj 84 162 r \$0-op;
+#X obj 84 184 openpanel;
+#X msg 84 209 loadx \$1;
+#X msg 224 154 savex qwertz2midi.xml;
+#X obj 9 38 s \$0-onoff;
+#X obj 7 14 inlet;
+#X obj 267 218 r \$0-oct;
+#X obj 181 240 + 0;
+#X obj 246 244 * 12;
+#X msg 181 128 loadx qwertz2midi.xml;
+#X obj 26 239 select Prior Next;
+#X obj 27 350 int 0;
+#X obj 71 312 + 1;
+#X obj 134 359 int 0;
+#X obj 151 306 - 1;
+#X obj 28 373 moses 5;
+#X obj 134 381 moses -5;
+#X obj 89 437 s \$0-oct;
+#X connect 0 0 8 0;
+#X connect 0 1 1 1;
+#X connect 0 1 18 0;
+#X connect 1 0 4 0;
+#X connect 1 0 30 0;
+#X connect 2 0 1 0;
+#X connect 3 0 11 0;
+#X connect 4 0 3 0;
+#X connect 6 0 29 0;
+#X connect 7 0 11 1;
+#X connect 8 0 2 0;
+#X connect 9 0 8 1;
+#X connect 10 0 27 0;
+#X connect 11 0 10 0;
+#X connect 12 0 3 0;
+#X connect 13 0 12 0;
+#X connect 14 0 13 1;
+#X connect 15 0 13 0;
+#X connect 16 0 15 1;
+#X connect 17 0 15 0;
+#X connect 18 0 16 0;
+#X connect 19 0 18 1;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 3 0;
+#X connect 23 0 3 0;
+#X connect 25 0 24 0;
+#X connect 26 0 28 0;
+#X connect 27 0 5 0;
+#X connect 28 0 27 1;
+#X connect 29 0 3 0;
+#X connect 30 0 31 0;
+#X connect 30 1 33 0;
+#X connect 31 0 35 0;
+#X connect 32 0 31 1;
+#X connect 33 0 36 0;
+#X connect 34 0 33 1;
+#X connect 35 0 32 0;
+#X connect 35 0 34 0;
+#X connect 35 0 37 0;
+#X connect 36 1 32 0;
+#X connect 36 1 34 0;
+#X connect 36 1 37 0;
+#X restore 88 0 pd guts;
+#X obj 88 26 outlet;
+#X obj 2 14 cnv 15 80 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 8 23 tgl 15 0 \$0-onoff \$0-onoff on 3 -3 0 8 -262144 -1 -1
+1 1;
+#X obj 29 23 bng 15 250 50 0 \$0-op \$0-op op 3 -3 0 8 -262144 -1 -1
+;
+#X obj 146 -1 inlet;
+#X obj 50 24 nbx 2 14 -5 5 0 0 \$0-oct \$0-oct oct 3 -3 0 8 -262144
+-1 -1 0 256;
+#X connect 0 0 1 0;
+#X connect 5 0 0 0;
+#X coords 0 0 1 1 82 45 1;