1 files changed, 81 insertions, 0 deletions
diff --git a/control/_radio-commun.pd b/control/_radio-commun.pd
new file mode 100644
index 0000000..f07f9e7
--- /dev/null
+++ b/control/_radio-commun.pd
@@ -0,0 +1,81 @@
+#N canvas 381 269 537 578 10;
+#X obj 136 102 * -1;
+#X obj 136 81 - 13;
+#X obj 136 143 commun \$1 \$2;
+#X obj 136 53 inlet;
+#X obj 136 220 * -1;
+#X obj 136 240 + 13;
+#X obj 136 279 outlet;
+#X text 30 15 Commun wrapper which inverts a radio button;
+#X obj 425 146 symbol \$1;
+#X obj 425 213 t f;
+#X obj 425 169 symbol2list /n;
+#X obj 425 192 unpack 0;
+#X obj 425 119 loadbang;
+#X obj 342 349 makefilename \$2-n%d;
+#X obj 342 287 - 1;
+#X obj 342 307 mod 32;
+#X obj 342 327 + 1;
+#N canvas 0 0 450 300 later 0;
+#X obj 146 57 r \$2-octave;
+#X obj 146 80 * 12;
+#X obj 254 137 r \$2-octave;
+#X obj 154 137 mod 12;
+#X obj 172 114 t f f;
+#X obj 203 137 / 12;
+#X obj 203 167 select 0;
+#X obj 153 236 spigot;
+#X msg 203 191 1;
+#X msg 284 213 0;
+#X obj 254 190 t b b;
+#X msg 211 237 0;
+#X connect 0 0 1 0;
+#X connect 2 0 6 1;
+#X connect 4 0 3 0;
+#X connect 4 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 8 0;
+#X connect 6 1 10 0;
+#X connect 8 0 7 1;
+#X connect 9 0 7 1;
+#X connect 10 0 11 0;
+#X connect 10 1 9 0;
+#X restore 293 61 pd later;
+#X obj 186 81 s \$0-current;
+#X obj 409 417 r \$0-current;
+#X obj 358 243 f 1;
+#X obj 342 264 +;
+#X obj 393 444 f;
+#X obj 326 95 r \$2-shifter;
+#X msg 328 497 \; \$2 \$3;
+#X obj 328 474 pack s s 0;
+#X obj 303 429 symbol \$1;
+#X obj 326 127 t b f b;
+#X obj 393 387 r \$2-prepare-shift;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 4 0;
+#X connect 3 0 1 0;
+#X connect 3 0 18 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 8 0 10 0;
+#X connect 9 0 20 1;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X connect 12 0 8 0;
+#X connect 13 0 25 1;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 16 0 13 0;
+#X connect 19 0 22 1;
+#X connect 20 0 21 1;
+#X connect 21 0 14 0;
+#X connect 22 0 25 2;
+#X connect 23 0 27 0;
+#X connect 25 0 24 0;
+#X connect 26 0 25 0;
+#X connect 27 0 26 0;
+#X connect 27 1 21 0;
+#X connect 27 2 20 0;
+#X connect 28 0 22 0;