1 files changed, 50 insertions, 0 deletions
diff --git a/s-midictl.pd b/s-midictl.pd
new file mode 100644
index 0000000..08a29e6
--- /dev/null
+++ b/s-midictl.pd
@@ -0,0 +1,50 @@
+#N canvas 363 281 452 313 10;
+#X obj 4 51 ctlin;
+#X obj 4 218 spigot;
+#X obj 4 278 outlet;
+#X obj 119 6 loadbang;
+#X obj 119 51 == 0;
+#X obj 34 74 spigot;
+#X obj 4 165 spigot;
+#X obj 71 52 != 0;
+#X obj 66 255 spigot;
+#X obj 124 159 loadbang;
+#X msg 124 223 1;
+#X msg 182 223 0;
+#X obj 254 5 inlet;
+#X obj 254 26 route set;
+#X obj 254 49 unpack f f;
+#X obj 34 108 == \$3;
+#X obj 119 28 \$3;
+#X text 127 99 s-midictl [ctrl-num] [send-name] [channel];
+#X obj 66 279 s \$2;
+#X obj 124 201 select \$2;
+#X obj 124 180 symbol \$2;
+#X obj 41 195 == \$1;
+#X connect 0 0 6 0;
+#X connect 0 1 21 0;
+#X connect 0 2 5 0;
+#X connect 1 0 2 0;
+#X connect 1 0 8 0;
+#X connect 3 0 16 0;
+#X connect 4 0 6 1;
+#X connect 5 0 15 0;
+#X connect 6 0 1 0;
+#X connect 7 0 5 1;
+#X connect 8 0 18 0;
+#X connect 9 0 20 0;
+#X connect 10 0 8 1;
+#X connect 11 0 8 1;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 21 1;
+#X connect 14 1 15 1;
+#X connect 14 1 16 0;
+#X connect 15 0 6 1;
+#X connect 16 0 4 0;
+#X connect 16 0 7 0;
+#X connect 19 0 10 0;
+#X connect 19 1 11 0;
+#X connect 20 0 19 0;
+#X connect 21 0 1 1;
+#X coords 0 0 1 1 150 25 0;