#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;