From 108c7c2f64b9254ea599073bd737f5e5a8b8d9c3 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Fri, 6 Feb 2009 11:16:06 +0000 Subject: adding jonathan wilkes lovely 'pal' editor, continued work and upgrades to ds-designer, and the start of ds-choice-list, a context-menu-ish gui element (with icons thanks to ds-designer) svn path=/trunk/abstractions/ds-gui/; revision=10748 --- pal/pradio.pd | 270 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 270 insertions(+) create mode 100755 pal/pradio.pd (limited to 'pal/pradio.pd') 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; -- cgit v1.2.1