#N canvas 703 79 944 717 10;
#X declare -lib Gem;
#X obj 61 245 alpha 1;
#X obj 61 311 sphere 1 50;
#X obj 301 159 gemwin;
#X msg 398 84 0 \, destroy;
#X msg 82 210 auto \$1;
#X obj 82 171 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 1024 311 450 316 light 0;
#X obj 110 200 declare -lib Gem;
#X obj 113 127 light;
#X obj 113 12 gemhead;
#X obj 259 30 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 259 68 debug \$1;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X restore 400 123 pd light;
#N canvas 1062 138 362 426 mousemove 0;
#X obj 129 8 gemmouse;
#X obj 136 88 pack;
#X obj 136 110 spigot;
#X obj 136 131 unpack;
#X obj 136 196 t f f;
#X obj 36 16 gemkeyname;
#X obj 36 39 pack 0 s;
#X obj 36 62 route 1;
#X obj 36 84 route space;
#X msg 36 107 0;
#X msg 136 365 view \$2 \$3 \$1 0 0 0 0 1 0;
#X obj 136 173 +;
#X obj 136 221 * -1;
#X obj 201 237 t f f;
#X obj 201 174 +;
#X obj 201 262 * -1;
#X obj 36 129 t f f f;
#X text 61 106 reset;
#N canvas 292 198 304 356 coordinates 0;
#X obj 89 52 inlet;
#X obj 94 331 outlet;
#X obj 193 62 atan;
#X msg 193 41 1;
#X obj 193 84 / 45;
#X obj 193 20 loadbang;
#X text 94 29 r phi theta;
#X obj 89 78 unpack 0 0 0;
#X obj 128 123 *;
#X obj 168 123 *;
#X obj 120 197 cos;
#X obj 150 198 sin;
#X obj 120 166 t f f;
#X obj 183 198 cos;
#X obj 213 199 sin;
#X obj 183 167 t f f;
#X obj 120 230 *;
#X obj 150 231 *;
#X obj 85 275 *;
#X obj 125 275 *;
#X obj 174 277 *;
#X obj 66 242 t f f f;
#X obj 91 308 pack 0 0 0;
#X connect 0 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 9 1;
#X connect 4 0 8 1;
#X connect 5 0 3 0;
#X connect 7 0 21 0;
#X connect 7 1 8 0;
#X connect 7 2 9 0;
#X connect 8 0 12 0;
#X connect 9 0 15 0;
#X connect 10 0 16 0;
#X connect 11 0 17 0;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 16 1;
#X connect 13 0 17 1;
#X connect 14 0 20 1;
#X connect 15 0 13 0;
#X connect 15 1 14 0;
#X connect 16 0 18 1;
#X connect 17 0 19 1;
#X connect 18 0 22 0;
#X connect 19 0 22 1;
#X connect 20 0 22 2;
#X connect 21 0 18 0;
#X connect 21 1 19 0;
#X connect 21 2 20 0;
#X connect 22 0 1 0;
#X restore 136 310 pd coordinates;
#X obj 136 249 t b f;
#X obj 136 289 pack 4 0 0;
#X obj 177 46 t f f;
#X obj 177 67 -;
#X obj 136 45 t f f;
#X obj 136 66 -;
#X obj 278 57 s stay_cube;
#X obj 278 35 select 1;
#X obj 201 151 * 0.5;
#X obj 136 153 * 0.5;
#X obj 201 209 clip -90 90;
#X obj 136 388 outlet;
#X connect 0 0 23 0;
#X connect 0 1 21 0;
#X connect 0 2 2 1;
#X connect 0 4 26 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 28 0;
#X connect 3 1 27 0;
#X connect 4 0 12 0;
#X connect 4 1 11 1;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 16 0;
#X connect 10 0 30 0;
#X connect 11 0 4 0;
#X connect 12 0 19 0;
#X connect 13 0 15 0;
#X connect 13 1 14 1;
#X connect 14 0 29 0;
#X connect 15 0 20 2;
#X connect 16 0 11 0;
#X connect 16 1 11 1;
#X connect 16 1 14 0;
#X connect 16 2 14 1;
#X connect 18 0 10 0;
#X connect 19 0 20 0;
#X connect 19 1 20 1;
#X connect 20 0 18 0;
#X connect 21 0 22 1;
#X connect 21 1 22 0;
#X connect 22 0 1 1;
#X connect 23 0 24 1;
#X connect 23 1 24 0;
#X connect 24 0 1 0;
#X connect 26 0 25 0;
#X connect 27 0 14 0;
#X connect 28 0 11 0;
#X connect 29 0 13 0;
#X restore 316 84 pd mousemove;
#X msg 301 42 lighting 1 \, create \, 1;
#X obj 61 104 gemhead;
#X connect 0 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X connect 9 0 0 0;