1 files changed, 270 insertions, 0 deletions
diff --git a/pal/pradio.pd b/pal/pradio.pd
new file mode 100755
index 0000000..16107e7
--- /dev/null
+++ b/pal/pradio.pd
@@ -0,0 +1,270 @@
+#N canvas 0 84 1004 682 12;
+#X obj 20 -14 inlet;
+#N canvas 219 0 1004 682 show-sym 0;
+#X obj -366 14 inlet;
+#X obj -366 39 showsym \$1 \$2 SET-BUTTON-COLOR;
+#X connect 0 0 1 0;
+#X restore 875 153 pd show-sym;
+#N canvas 0 0 296 250 label-tgl 0;
+#X obj 122 94 sel 0 1;
+#X obj 122 66 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 11 20 loadbang;
+#X msg 11 46 0;
+#X obj 122 194 outlet;
+#X msg 122 119 symbol empty;
+#X msg 148 148 symbol LABEL;
+#X obj 122 28 r \$1-label-tgl;
+#X connect 0 0 5 0;
+#X connect 0 1 6 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 4 0;
+#X connect 6 0 4 0;
+#X connect 7 0 1 0;
+#X restore 122 531 pd label-tgl;
+#X obj 148 507 r \$1-patchname;
+#X obj 45 507 loadbang;
+#X obj 45 531 symbol \$2;
+#X obj 574 291 constrain \$1 \$2;
+#X obj 574 319 getGUIsize \$3 \$4 \$5 \$6;
+#X obj 217 205 pack;
+#X obj 36 338 t b a;
+#X obj 217 175 +;
+#X obj 258 175 +;
+#X obj 36 313 unpack f f f f;
+#N canvas 0 0 700 277 swap 0;
+#X obj 23 241 outlet;
+#X obj 123 238 outlet;
+#X obj 23 166 spigot 1;
+#X obj 123 166 spigot 0;
+#X obj 23 11 inlet;
+#X obj 196 11 r \$2-color-swap;
+#X obj 214 166 spigot 0;
+#X obj 196 37 t a b;
+#X obj 196 63 pack f 1;
+#X msg 275 63 0;
+#X obj 196 89 route 0 1 2;
+#X obj 214 238 outlet;
+#X connect 2 0 0 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 4 0 3 0;
+#X connect 4 0 6 0;
+#X connect 5 0 7 0;
+#X connect 6 0 11 0;
+#X connect 7 0 8 0;
+#X connect 7 1 9 0;
+#X connect 8 0 10 0;
+#X connect 9 0 2 1;
+#X connect 9 0 3 1;
+#X connect 9 0 6 1;
+#X connect 10 0 2 1;
+#X connect 10 1 3 1;
+#X connect 10 2 6 1;
+#X restore 202 313 pd swap;
+#X obj 36 289 spigot;
+#X obj 202 289 spigot;
+#X obj 202 266 r \$1-rgb-value;
+#X obj 36 266 r \$1-label-posNsize;
+#X obj 93 290 r \$2-lock;
+#X obj 266 381 loadbang;
+#X obj 266 405 symbol \$2;
+#X obj 217 234 s \$1-helper-xy;
+#X obj 537 326 t a;
+#X msg 352 460 \; \$3\$2 label \$1;
+#X obj 352 435 pack s f s;
+#X obj 450 405 loadbang;
+#X obj 450 435 symbol \$2;
+#X obj 834 356 t b a;
+#X obj 834 387 set \$2 xsize ysize;
+#X obj 537 95 t a a a;
+#X obj 563 265 if-numscroll \$1 \$2 \$3 \$4 \$5 \$6;
+#X obj 36 405 pack 0 22 22 f 20 12 10 0 s;
+#X msg 36 430 \; \$9\$4 color \$1 \$2 \$3 \; \$9\$4 label_pos \$5 \$6
+\; \$9\$4 label_font \$8 \$7;
+#X obj 273 337 t b a;
+#X obj 219 337 t b a;
+#X obj 268 507 loadbang;
+#X obj 268 534 symbol \$9;
+#X obj 20 562 pack f s \$3 \$4 s s \$7 \$8 s;
+#X obj 352 405 label \$1 \$2;
+#X obj 822 -10 clean \$1 \$2;
+#X obj 675 124 get \$2 id;
+#X obj 20 11 pappend \$1 \$2 \$3 \$4 \$5 \$6;
+#X obj 82 97 \$7;
+#X obj 117 97 \$8;
+#X obj 82 69 t b b a;
+#X obj 390 329 t a;
+#X obj 217 121 get \$2 x0 y0 x y;
+#X obj 707 481 loadbang;
+#X obj 707 504 symbol \$2;
+#X obj 875 116 t a;
+#X obj 20 164 t a;
+#X obj 442 223 symbol \$2;
+#X obj 442 198 loadbang;
+#X obj 337 223 pack f f f s;
+#X msg 337 250 \; \$4\$3 pos \$1 \$2;
+#X obj 360 121 get \$2 x y id;
+#X obj 360 146 + 10;
+#X obj 410 146 + 10;
+#X obj 537 16 lock \$1 \$2;
+#X obj 537 42 route change displace deselect select click pappend;
+#X obj 863 213 shownum \$1 \$2;
+#X obj 506 524 vradio 15 1 0 8 empty empty empty 0 -8 0 10 -262144
+-1 -1 0;
+#X obj 537 -9 pstruct \$1 \$2 init num n/a n/a n/a;
+#X obj 82 122 set \$2 init num;
+#X msg 20 590 \; \$6 obj 10 10 \$9 \$3 1 \$7 \$8 \$9 \$2\$1 empty 0
+-8 0 10 -262144 -1 -1 0;
+#X obj 585 505 pack f f f f s;
+#X obj 633 448 int;
+#X msg 585 535 \; \$5\$1 size \$2 \; \$5\$1 number \$3;
+#X obj 537 153 get \$2 id x0 y0 x y init;
+#N canvas 0 0 1004 682 swapIF 0;
+#X obj 14 20 inlet;
+#X obj 85 22 inlet;
+#X obj 14 183 outlet;
+#X obj 85 184 outlet;
+#X obj 221 9 loadbang;
+#X obj 221 34 \$10;
+#X obj 170 63 == 0;
+#X obj 14 116 spigot;
+#X obj 85 116 spigot;
+#X obj 150 116 spigot;
+#X obj 220 116 spigot;
+#X obj 150 145 swap;
+#X connect 0 0 7 0;
+#X connect 0 0 9 0;
+#X connect 1 0 8 0;
+#X connect 1 0 10 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 5 0 9 1;
+#X connect 5 0 10 1;
+#X connect 6 0 7 1;
+#X connect 6 0 8 1;
+#X connect 7 0 2 0;
+#X connect 8 0 3 0;
+#X connect 9 0 11 0;
+#X connect 10 0 11 1;
+#X connect 11 0 2 0;
+#X connect 11 1 3 0;
+#X restore 612 366 pd swapIF;
+#X obj 526 630 hradio 15 1 0 8 empty empty empty 0 -8 0 10 -262144
+-1 -1 0;
+#X floatatom 706 403 5 0 0 0 - - -;
+#X floatatom 688 457 5 0 0 0 - - -;
+#X obj 633 398 / 16;
+#X obj 633 423 + 8;
+#X connect 0 0 41 0;
+#X connect 2 0 37 4;
+#X connect 3 0 37 5;
+#X connect 4 0 5 0;
+#X connect 5 0 37 1;
+#X connect 6 0 7 0;
+#X connect 6 1 7 1;
+#X connect 7 0 28 0;
+#X connect 7 0 30 1;
+#X connect 7 0 69 0;
+#X connect 7 1 27 0;
+#X connect 7 1 30 2;
+#X connect 7 1 69 1;
+#X connect 8 0 21 0;
+#X connect 9 0 31 0;
+#X connect 9 1 31 4;
+#X connect 10 0 8 0;
+#X connect 11 0 8 1;
+#X connect 12 0 9 0;
+#X connect 12 1 31 5;
+#X connect 12 2 31 6;
+#X connect 12 3 31 7;
+#X connect 13 0 31 0;
+#X connect 13 1 34 0;
+#X connect 13 2 33 0;
+#X connect 14 0 12 0;
+#X connect 15 0 13 0;
+#X connect 16 0 15 0;
+#X connect 17 0 14 0;
+#X connect 18 0 14 1;
+#X connect 18 0 15 1;
+#X connect 19 0 20 0;
+#X connect 20 0 31 8;
+#X connect 22 0 24 1;
+#X connect 22 0 31 3;
+#X connect 22 0 65 0;
+#X connect 24 0 23 0;
+#X connect 25 0 26 0;
+#X connect 26 0 24 2;
+#X connect 27 0 28 0;
+#X connect 27 1 28 1;
+#X connect 29 0 68 0;
+#X connect 29 1 30 0;
+#X connect 29 2 49 0;
+#X connect 31 0 32 0;
+#X connect 33 0 31 0;
+#X connect 33 1 31 2;
+#X connect 34 0 31 0;
+#X connect 34 1 31 1;
+#X connect 35 0 36 0;
+#X connect 36 0 37 8;
+#X connect 37 0 64 0;
+#X connect 38 0 24 0;
+#X connect 40 0 45 0;
+#X connect 41 0 50 0;
+#X connect 41 1 44 0;
+#X connect 41 1 46 0;
+#X connect 42 0 63 0;
+#X connect 43 0 63 1;
+#X connect 44 0 42 0;
+#X connect 44 1 43 0;
+#X connect 44 2 63 2;
+#X connect 45 0 24 1;
+#X connect 45 0 31 3;
+#X connect 46 0 10 0;
+#X connect 46 1 11 0;
+#X connect 46 2 10 1;
+#X connect 46 3 11 1;
+#X connect 47 0 48 0;
+#X connect 48 0 65 4;
+#X connect 49 0 28 2;
+#X connect 49 0 1 0;
+#X connect 50 0 37 0;
+#X connect 50 0 31 3;
+#X connect 50 0 24 1;
+#X connect 51 0 53 3;
+#X connect 52 0 51 0;
+#X connect 53 0 54 0;
+#X connect 55 0 56 0;
+#X connect 55 1 57 0;
+#X connect 55 2 53 2;
+#X connect 56 0 53 0;
+#X connect 57 0 53 1;
+#X connect 58 0 59 0;
+#X connect 59 0 29 0;
+#X connect 59 0 46 0;
+#X connect 59 0 60 0;
+#X connect 59 1 46 0;
+#X connect 59 1 55 0;
+#X connect 59 3 40 0;
+#X connect 59 3 46 0;
+#X connect 59 3 49 0;
+#X connect 59 3 60 1;
+#X connect 59 4 29 0;
+#X connect 59 4 60 1;
+#X connect 59 4 46 0;
+#X connect 59 5 29 0;
+#X connect 62 0 58 0;
+#X connect 65 0 67 0;
+#X connect 66 0 65 2;
+#X connect 66 0 72 0;
+#X connect 68 0 22 0;
+#X connect 68 1 6 0;
+#X connect 68 2 6 1;
+#X connect 68 5 65 3;
+#X connect 69 0 65 1;
+#X connect 69 1 71 0;
+#X connect 69 1 73 0;
+#X connect 73 0 74 0;
+#X connect 74 0 66 0;