1 files changed, 273 insertions, 0 deletions
diff --git a/gemsWin.pd b/gemsWin.pd
new file mode 100644
index 0000000..9961a4b
--- /dev/null
+++ b/gemsWin.pd
@@ -0,0 +1,273 @@
+#N canvas 16 29 993 682 10;
+#X declare -lib Gem;
+#X obj 236 355 gemwin;
+#X obj -10 -340 inlet;
+#X obj -11 -182 sel 1 0;
+#X msg 157 235 0;
+#X msg 100 238 destroy;
+#X obj 110 141 t b b;
+#X obj 20 223 s \$0reset;
+#X msg 42 274 create;
+#X msg 5 274 1;
+#X obj -12 172 t b b;
+#X obj 113 164 delay 200;
+#N canvas 364 209 654 496 MOUSE_INPUT 0;
+#X obj 82 49 gemmouse;
+#X obj 186 184 sel 1;
+#X msg 182 261 0;
+#N canvas 211 90 618 711 viewing 0;
+#X obj 65 57 inlet;
+#X obj 123 55 inlet;
+#X obj 238 52 inlet;
+#X obj 182 680 outlet;
+#X obj 43 558 pack f f f 100;
+#X msg 43 588 view \$1 \$2 \$3 0 0 0 0 \$4 0;
+#X obj 41 498 expr sin($f1)*cos($f2)*4;
+#X obj 380 499 expr cos($f1)*cos($f2)*4;
+#X obj 226 498 expr sin($f1)*4;
+#X obj 297 221 spigot;
+#X obj 244 221 spigot;
+#X obj 308 156 t f f f;
+#X obj 368 181 sel 1;
+#X obj 230 282 t f f;
+#X obj 311 285 t f f;
+#X obj 181 314 t f f;
+#X obj 203 355 -;
+#X obj 314 313 t f f;
+#X obj 320 364 -;
+#X obj 389 312 spigot 1;
+#X obj 248 307 spigot 1;
+#X msg 372 218 1;
+#X obj 237 334 t f b;
+#X msg 265 357 0;
+#X obj 185 415 +;
+#X obj 297 417 +;
+#X obj 184 438 t f f f f;
+#X obj 296 440 t f f f;
+#X obj 141 390 / -100;
+#X msg 473 245 0 0;
+#X obj 485 81 inlet reset;
+#X obj 447 388 / 100;
+#X obj 492 212 ./doubleClick 500;
+#X connect 0 0 10 0;
+#X connect 1 0 9 0;
+#X connect 2 0 11 0;
+#X connect 4 0 5 0;
+#X connect 5 0 3 0;
+#X connect 6 0 4 0;
+#X connect 7 0 4 2;
+#X connect 8 0 4 1;
+#X connect 9 0 14 0;
+#X connect 10 0 13 0;
+#X connect 11 1 9 1;
+#X connect 11 1 10 1;
+#X connect 11 2 12 0;
+#X connect 12 0 21 0;
+#X connect 12 0 32 0;
+#X connect 13 0 15 0;
+#X connect 13 1 20 0;
+#X connect 14 0 17 0;
+#X connect 14 1 19 0;
+#X connect 15 0 16 1;
+#X connect 15 1 16 0;
+#X connect 16 0 28 0;
+#X connect 17 0 18 1;
+#X connect 17 1 18 0;
+#X connect 18 0 31 0;
+#X connect 19 0 18 1;
+#X connect 20 0 22 0;
+#X connect 21 0 20 1;
+#X connect 21 0 19 1;
+#X connect 22 0 16 1;
+#X connect 22 1 23 0;
+#X connect 23 0 20 1;
+#X connect 23 0 19 1;
+#X connect 24 0 26 0;
+#X connect 25 0 27 0;
+#X connect 26 0 6 0;
+#X connect 26 2 7 0;
+#X connect 26 3 24 1;
+#X connect 27 0 6 1;
+#X connect 27 0 8 0;
+#X connect 27 1 7 1;
+#X connect 27 2 25 1;
+#X connect 28 0 24 0;
+#X connect 29 0 25 0;
+#X connect 29 0 24 0;
+#X connect 30 0 29 0;
+#X connect 31 0 25 0;
+#X connect 32 0 29 0;
+#X restore 59 168 pd viewing;
+#X obj 176 326 outlet;
+#X obj 56 327 outlet;
+#X obj 177 225 ./doubleClick 500;
+#X obj 283 24 inlet;
+#X obj 172 82 ./valueChange gems.win/right_click;
+#X obj 187 138 ./valueChange gems.win/middle_click;
+#X connect 0 0 3 0;
+#X connect 0 1 3 1;
+#X connect 0 3 9 0;
+#X connect 0 4 8 0;
+#X connect 1 0 6 0;
+#X connect 2 0 4 0;
+#X connect 3 0 5 0;
+#X connect 6 0 2 0;
+#X connect 7 0 3 3;
+#X connect 8 0 3 2;
+#X connect 9 0 1 0;
+#X restore 351 160 pd MOUSE_INPUT;
+#N canvas 609 121 830 679 CREATE&DESTROY 0;
+#X obj 104 -313 inlet;
+#X msg 138 -180 0;
+#X obj 27 -183 t b b;
+#X msg 90 -138 0;
+#X msg 36 -104 1;
+#X obj 16 -138 delay 201;
+#X obj 91 -280 route 1 0;
+#X obj 95 -243 route create destroy;
+#X obj 176 42 outlet;
+#X connect 0 0 6 0;
+#X connect 1 0 8 0;
+#X connect 2 0 5 0;
+#X connect 2 1 3 0;
+#X connect 3 0 8 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 0;
+#X connect 6 0 2 0;
+#X connect 6 1 1 0;
+#X connect 6 2 7 0;
+#X connect 7 0 2 0;
+#X connect 7 1 1 0;
+#X restore -11 -213 pd CREATE&DESTROY;
+#X obj -67 327 s GEMS;
+#X obj -36 212 t b b b;
+#N canvas 309 104 1019 673 SETTINGS 0;
+#X obj 219 -72 inlet;
+#X obj 69 461 outlet;
+#X msg 229 177 frame \$1;
+#X msg 519 120 border \$1;
+#X msg 723 156 lighting \$1;
+#N canvas 1 57 1022 686 dimen 0;
+#X msg 117 392 dimen \$1 \$2;
+#X obj 159 261 value GEMSW;
+#X obj 307 265 value GEMSH;
+#X obj 37 135 unpack f f;
+#X obj 102 258 pack;
+#X obj 87 228 t f f;
+#X obj 284 236 t f f;
+#X obj 60 20 inlet;
+#X obj 109 468 outlet;
+#X obj 104 58 t b b;
+#X obj 47 111 tof/param /dimen 320 240 /ns;
+#X obj 73 200 tof/param /w 320 /nlb /wfb /nps /g nbx;
+#X obj 322 204 tof/param /h 240 /nlb /wfb /nps /g nbx;
+#X connect 0 0 8 0;
+#X connect 3 0 11 0;
+#X connect 3 1 12 0;
+#X connect 4 0 0 0;
+#X connect 5 0 4 0;
+#X connect 5 1 1 0;
+#X connect 6 0 4 1;
+#X connect 6 1 2 0;
+#X connect 7 0 9 0;
+#X connect 9 0 11 0;
+#X connect 9 1 12 0;
+#X connect 10 0 3 0;
+#X connect 11 0 5 0;
+#X connect 12 0 6 0;
+#X restore 47 102 pd dimen;
+#N canvas 1 57 1022 686 offset 0;
+#X obj 37 135 unpack f f;
+#X obj 102 258 pack;
+#X obj 60 20 inlet;
+#X obj 109 468 outlet;
+#X msg 117 392 offset \$1 \$2;
+#X obj 123 67 t b b;
+#X obj 37 112 tof/param /offset 0 0 /ns;
+#X obj 298 200 tof/param /y 0 /nlb /wfb /nps /g nbx;
+#X obj 67 202 tof/param /x 0 /nlb /wfb /nps /g nbx;
+#X connect 0 0 8 0;
+#X connect 0 1 7 0;
+#X connect 1 0 4 0;
+#X connect 2 0 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 8 0;
+#X connect 5 1 7 0;
+#X connect 6 0 0 0;
+#X connect 7 0 1 1;
+#X connect 8 0 1 0;
+#X restore 178 113 pd offset;
+#X obj 723 120 tof/param /lighting 0 /nlb /g tgl /wfb;
+#X obj 218 -39 t b b b b b b;
+#X msg 620 319 FSAA \$1;
+#X obj 621 294 * 2;
+#X obj 327 176 value GEMSFPS;
+#X obj 256 118 tof/param /fps 20 /nlb /wfb /nps /g nbx;
+#X obj 505 85 tof/param /border 1 /nlb /g tgl /nps /wfb;
+#X obj 623 269 tof/param /anti-aliasing 0 /g nbx /nlb /wfb /nps;
+#X connect 0 0 8 0;
+#X connect 2 0 1 0;
+#X connect 3 0 1 0;
+#X connect 4 0 1 0;
+#X connect 5 0 1 0;
+#X connect 6 0 1 0;
+#X connect 7 0 4 0;
+#X connect 8 0 5 0;
+#X connect 8 1 6 0;
+#X connect 8 2 12 0;
+#X connect 8 3 13 0;
+#X connect 8 4 7 0;
+#X connect 8 5 14 0;
+#X connect 9 0 1 0;
+#X connect 10 0 9 0;
+#X connect 12 0 2 0;
+#X connect 12 0 11 0;
+#X connect 13 0 3 0;
+#X connect 14 0 10 0;
+#X restore 184 -101 pd SETTINGS;
+#X obj -11 -315 route float bang;
+#X msg 35 -283 1;
+#X text 488 -43 Internal messages:;
+#X text 515 -21 send "GEMS" bang when a new window is created;
+#X text 517 -3 value "GEMSW" holds the last width set;
+#X text 516 13 value "GEMSH" holds the last height set;
+#X obj 255 -63 print WIN;
+#X text 517 33 value "GEMSFPS" holds the frame rate;
+#X obj -6 -134 t b b b;
+#X obj 201 -152 value GEMSI;
+#X msg 201 -175 0;
+#X obj -11 -243 tof/param /create 0 /nlb /g tgl /ns;
+#X obj 509 -203 iemguts/propertybang;
+#X obj 498 -267 import Gem;
+#X obj 510 -174 tof/param gui;
+#X obj 82 -288 tof/param route;
+#X connect 1 0 16 0;
+#X connect 2 0 24 0;
+#X connect 2 1 5 0;
+#X connect 3 0 0 0;
+#X connect 4 0 0 0;
+#X connect 5 0 10 0;
+#X connect 5 1 3 0;
+#X connect 7 0 0 0;
+#X connect 8 0 0 0;
+#X connect 9 0 14 0;
+#X connect 9 1 6 0;
+#X connect 10 0 4 0;
+#X connect 11 0 0 0;
+#X connect 11 1 27 0;
+#X connect 12 0 2 0;
+#X connect 14 0 13 0;
+#X connect 14 1 8 0;
+#X connect 14 2 7 0;
+#X connect 15 0 0 0;
+#X connect 15 0 22 0;
+#X connect 16 0 27 0;
+#X connect 16 1 17 0;
+#X connect 16 2 31 0;
+#X connect 17 0 27 0;
+#X connect 24 0 9 0;
+#X connect 24 1 15 0;
+#X connect 24 2 26 0;
+#X connect 26 0 25 0;
+#X connect 27 0 12 0;
+#X connect 28 0 30 0;