1 files changed, 237 insertions, 0 deletions
diff --git a/pal/ptgl.pd b/pal/ptgl.pd
new file mode 100755
index 0000000..8ecca62
--- /dev/null
+++ b/pal/ptgl.pd
@@ -0,0 +1,237 @@
+#N canvas 10 0 1004 682 12;
+#X obj 20 -14 inlet;
+#N canvas 205 25 240 164 show-sym 0;
+#X obj -339 17 inlet;
+#X obj -339 42 showsym \$1 \$2 SET-TICK-COLOR;
+#X connect 0 0 1 0;
+#X restore 874 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 1
+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 572 291 constrain \$1 \$2;
+#X obj 577 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 833 356 t b a;
+#X obj 833 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 352 405 label \$1 \$2;
+#X obj 815 -9 clean \$1 \$2;
+#X obj 675 124 get \$2 id;
+#X obj 20 11 pappend \$1 \$2 \$3 \$4 \$5 \$6;
+#X obj 390 329 t a;
+#X obj 217 121 get \$2 x0 y0 x y;
+#X obj 699 391 loadbang;
+#X obj 699 414 symbol \$2;
+#X obj 874 116 t a;
+#X obj 20 164 t a;
+#N canvas 0 0 461 325 quantize 0;
+#X obj 14 20 inlet;
+#X obj 195 22 inlet;
+#X obj 14 213 outlet;
+#X obj 195 184 outlet;
+#X connect 0 0 2 0;
+#X connect 1 0 3 0;
+#X restore 577 360 pd quantize;
+#X obj 537 153 get \$2 id x0 y0 x y nz init;
+#X obj 575 415 pack f f f f s;
+#X msg 132 70 1;
+#X text 672 361 <--UPDATE THIS!!;
+#X obj 132 100 set \$2 nz;
+#X obj 132 47 t b a;
+#X msg 575 445 \; \$5\$1 size \$2 \; \$5\$1 nonzero \$3 \; \$5\$1 init
+\$4;
+#X obj 20 584 t a a;
+#X msg 238 568 \; \$2\$1 1;
+#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 20 558 pack f s \$3 \$7 s s 0 \$8 s;
+#X msg 20 610 \; \$6 obj 10 10 \$9 \$3 \$4 \$9 \$2\$1 empty 17 7 0
+10 -262144 -1 -1 0 \$8;
+#X obj 537 -9 pstruct \$1 \$2 nz init n/a n/a n/a;
+#X obj 537 16 lock \$1 \$2;
+#X obj 537 39 route change displace deselect select click pappend;
+#X obj 763 153 shownum \$1 \$2;
+#X connect 0 0 40 0;
+#X connect 2 0 64 4;
+#X connect 3 0 64 5;
+#X connect 4 0 5 0;
+#X connect 5 0 64 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 47 0;
+#X connect 7 1 27 0;
+#X connect 7 1 30 2;
+#X connect 7 1 47 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 49 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 48 0;
+#X connect 29 1 30 0;
+#X connect 29 2 45 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 64 8;
+#X connect 37 0 24 0;
+#X connect 39 0 41 0;
+#X connect 40 0 46 0;
+#X connect 40 1 42 0;
+#X connect 40 1 53 0;
+#X connect 41 0 24 1;
+#X connect 41 0 31 3;
+#X connect 42 0 10 0;
+#X connect 42 1 11 0;
+#X connect 42 2 10 1;
+#X connect 42 3 11 1;
+#X connect 43 0 44 0;
+#X connect 44 0 49 4;
+#X connect 45 0 28 2;
+#X connect 45 0 1 0;
+#X connect 46 0 31 3;
+#X connect 46 0 24 1;
+#X connect 46 0 64 0;
+#X connect 47 0 49 1;
+#X connect 48 0 22 0;
+#X connect 48 1 6 0;
+#X connect 48 2 6 1;
+#X connect 48 5 49 2;
+#X connect 48 6 49 3;
+#X connect 49 0 54 0;
+#X connect 50 0 52 0;
+#X connect 53 0 50 0;
+#X connect 53 1 52 1;
+#X connect 55 0 56 0;
+#X connect 55 1 65 0;
+#X connect 57 0 59 3;
+#X connect 58 0 57 0;
+#X connect 59 0 60 0;
+#X connect 61 0 62 0;
+#X connect 61 1 63 0;
+#X connect 61 2 59 2;
+#X connect 62 0 59 0;
+#X connect 63 0 59 1;
+#X connect 64 0 55 0;
+#X connect 66 0 67 0;
+#X connect 67 0 68 0;
+#X connect 68 0 29 0;
+#X connect 68 0 42 0;
+#X connect 68 0 69 0;
+#X connect 68 1 42 0;
+#X connect 68 1 61 0;
+#X connect 68 3 39 0;
+#X connect 68 3 42 0;
+#X connect 68 3 45 0;
+#X connect 68 3 69 1;
+#X connect 68 4 29 0;
+#X connect 68 4 42 0;
+#X connect 68 4 69 1;
+#X connect 68 5 29 0;