[PD] Gem: Place point light inside Geo?

[Peter P.]

Hi list,

I am trying to make a small solar system in Gem (attached draft). I am
wondering how I can put a point light source inside a Geo (eg. sun) and
make it shine through that geo.
For now I am placing the light source between sun and earth, which looks
ok unless I change the camera position.
Placing the light inside the sun geo and reducing alpha values of the
sun geo does work for alpha values of 0.5 (values above _and_ below 0.5
will damp the light) but will also make the sun transparent.

How can I make the sun shine?

Thanks!
Peter
-------------- next part --------------
#N canvas 1 50 670 618 10;
#X declare -lib Gem;
#X obj 19 29 declare -lib Gem;
#X obj 9 134 gemwin;
#X obj 255 10 gemhead;
#X obj 444 161 line;
#X obj 255 181 rotateXYZ 0 0 0;
#X obj 255 231 translateXYZ 2.5 0 0;
#X obj 255 131 rotateXYZ 0 0 -10;
#X obj 444 116 metro 8000;
#X msg 444 139 0 \, 360 8000;
#X obj 443 386 line;
#X obj 255 409 rotateXYZ;
#X msg 443 359 0 \, 360 3000;
#X obj 443 330 metro 3000;
#X obj 9 60 loadbang;
#X obj 444 94 loadbang;
#X obj 443 307 loadbang;
#X obj 12 277 gemhead;
#X obj 255 360 rotateXYZ 0 0 35;
#X obj 12 467 light;
#X msg 24 439 debug \$1;
#X obj 25 419 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 9 83 lighting 1 \, create \, 1;
#X msg 15 107 0 \, destroy \, reset;
#X obj 12 331 translateXYZ 0 0 2;
#X text 347 83 SUN;
#X text 367 131 tilt axis;
#X text 353 181 rotate around sun;
#X text 385 231 distance center of sun - center of earth;
#X text 358 316 EARTH;
#X text 355 361 tilt axis;
#X text 317 410 rotation around earth;
#X text 384 468 distance center of earth - center of moon;
#X text 347 549 MOON;
#X text 19 371 How to put in center of sun?;
#X obj 255 84 sphere 0.7 50;
#X obj 255 315 sphere 0.15 20;
#X obj 255 467 translateXYZ 0.3 0 0;
#X obj 255 548 sphere 0.03 20;
#X floatatom 117 308 5 0 0 1 light_z-axis - -, f 5;
#X text 20 354 Point light between sun and earth;
#X text 17 583 Possible improvements: Actual dimensions and movement
ratios \, elliptic paths;
#X obj 255 35 alpha;
#X floatatom 360 40 5 0 0 1 sun_alpha - -, f 5;
#X obj 255 294 colorRGB 0.5 0.7 0.9 1;
#X obj 255 527 colorRGB 0.9 1 1 1;
#X obj 12 304 alpha;
#X obj 255 62 colorRGB 1 0.7 0 1;
#X connect 2 0 41 0;
#X connect 3 0 4 2;
#X connect 4 0 5 0;
#X connect 5 0 43 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 10 2;
#X connect 10 0 36 0;
#X connect 11 0 9 0;
#X connect 12 0 11 0;
#X connect 13 0 21 0;
#X connect 14 0 7 0;
#X connect 15 0 12 0;
#X connect 16 0 45 0;
#X connect 17 0 10 0;
#X connect 19 0 18 0;
#X connect 20 0 19 0;
#X connect 21 0 1 0;
#X connect 22 0 1 0;
#X connect 23 0 18 0;
#X connect 34 0 6 0;
#X connect 35 0 17 0;
#X connect 36 0 44 0;
#X connect 38 0 23 3;
#X connect 41 0 46 0;
#X connect 42 0 46 4;
#X connect 43 0 35 0;
#X connect 44 0 37 0;
#X connect 45 0 23 0;
#X connect 46 0 34 0;