1 files changed, 90 insertions, 0 deletions
diff --git a/packages/noncvs/windows/extra/Gem/gemhead.pd b/packages/noncvs/windows/extra/Gem/gemhead.pd
new file mode 100644
index 00000000..59923cbc
--- /dev/null
+++ b/packages/noncvs/windows/extra/Gem/gemhead.pd
@@ -0,0 +1,90 @@
+#N canvas 255 164 769 392 10;
+#N canvas 443 22 581 526 gemreceive 0;
+#X obj 109 413 outlet;
+#X obj 288 58 inlet order;
+#X obj 288 177 select 0;
+#X msg 288 198 50;
+#X obj 109 365 spigot 1;
+#X obj 109 390 t a;
+#X obj 288 222 t f f f;
+#X obj 334 275 t f f;
+#X obj 334 301 > 0;
+#X obj 366 301 < 0;
+#X obj 313 365 spigot 0;
+#X obj 520 283 abs;
+#X obj 109 342 gemreceive __gem_render \$1;
+#X obj 313 342 gemreceive __gem_render_osd \$1;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 6 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 0 0;
+#X connect 6 0 12 1;
+#X connect 6 1 11 0;
+#X connect 6 2 7 0;
+#X connect 7 0 8 0;
+#X connect 7 1 9 0;
+#X connect 8 0 4 1;
+#X connect 9 0 10 1;
+#X connect 10 0 5 0;
+#X connect 11 0 13 1;
+#X connect 12 0 4 0;
+#X connect 13 0 10 0;
+#X restore 170 69 pd gemreceive;
+#X obj 170 155 gemlist;
+#N canvas 602 92 635 363 material 0;
+#X obj 98 88 inlet gemlist;
+#X obj 98 258 outlet gemlist;
+#X obj 98 117 GEMglColor4f 1 1 1 1;
+#X obj 98 143 GEMglMaterialfv GL_FRONT_AND_BACK GL_AMBIENT 0.2 0.2
+0.2 1;
+#X obj 98 163 GEMglMaterialfv GL_FRONT_AND_BACK GL_DIFFUSE 0.8 0.8
+0.8 1;
+#X obj 98 183 GEMglMaterialfv GL_FRONT_AND_BACK GL_EMISSION 0 0 0 1
+;
+#X obj 98 203 GEMglMaterialfv GL_FRONT_AND_BACK GL_SPECULAR 0 0 0 1
+;
+#X obj 98 223 GEMglMaterialfv GL_FRONT_AND_BACK GL_SHININESS 0;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 1 0;
+#X restore 170 197 pd material;
+#X obj 170 221 t a a a;
+#X obj 216 242 GEMglPushMatrix;
+#X obj 170 282 GEMglPopMatrix;
+#X obj 193 306 outlet gemlist;
+#X obj 130 18 inlet control;
+#X obj 130 40 route bang float set;
+#X obj 223 94 i;
+#X obj 170 116 spigot 1;
+#N canvas 0 0 650 510 defaultarg 0;
+#X obj 134 132 loadbang;
+#X obj 134 265 outlet;
+#X obj 134 157 f \$1;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X restore 286 39 pd defaultarg;
+#X obj 71 174 GEMglFlush;
+#X obj 71 122 gemlist;
+#X obj 71 144 t a a;
+#X connect 0 0 10 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 3 1 6 0;
+#X connect 3 2 4 0;
+#X connect 7 0 8 0;
+#X connect 8 0 13 0;
+#X connect 8 1 9 0;
+#X connect 8 2 0 0;
+#X connect 9 0 10 1;
+#X connect 10 0 1 0;
+#X connect 11 0 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X connect 14 1 2 0;