add a glowing light to the hexapoles

dynamic.inc

@@ -40,7 +40,7 @@ object {
 object { Les_Machins rotate -y*clock translate UnderHoles[2] }
 object { Les_Machins rotate  y*clock translate UnderHoles[5] }
 
-object { Les_HexaBalls rotate  y*(clock*2.9) translate UnderHoles[4] }
+// object { Les_HexaBalls rotate  y*(clock*2.9) translate UnderHoles[4] }
 
 /// =======================================================
 /*

gadgets.inc

@@ -208,17 +208,27 @@ prism {
 #macro HexaPole_abatjour (Quux)
 union	{
 	#local Raj = 0.333;
-	torus { Raj, 0.014 translate -y*Quux }
+	torus { Raj, 0.013 translate -y*Quux }
 	#for (Foo, 0, 359, 18)
 	  #local DX = Raj * sin(radians(Foo));
 	  #local DZ = Raj * cos(radians(Foo));
-	  cylinder { -y*Quux, y*Quux, 0.010 translate <DX, 0, DZ> }
+	  cylinder { -y*Quux, y*Quux, 0.009 translate <DX, 0, DZ> }
 	#end		// for
 	torus { Raj, 0.02 translate  y*Quux }
 	rotate y*(clock*0.90*(rand(Rng1)-0.59))
 	}
 #end		// macro
 
+#macro HexaPole_ampoule (V)
+sphere {
+	0, 0.080
+	texture {
+		pigment { color rgb <1, 1, 1> }
+		finish { emission 0.8 diffuse 0.6 }
+		}
+	}
+#end		// macro
+
 #macro HexaPole_mat_lampe (Height)
 union	{
 	union	{
@@ -229,17 +239,18 @@ union	{
 		texture { LeGris }
 		}
 
-	#local P = y*(Height+0.097);
+	#local Pos = y*(Height+0.097);
 	#if (rand(Rng1) < 0.30)
 	#local Val = 0.25 + 0.5*rand(Rng1);
 	light_source {
-		P rgb <0.80, 0.25+(0.5*rand(Rng1)), 0.99>
+		Pos rgb <0.86, 0.25+(0.5*rand(Rng1)), 0.99>
 		fade_distance	3.30
 		fade_power	1.55
+		looks_like { HexaPole_ampoule (0) }
 		}
 	#else
 	sphere {
-		P,	0.080
+		Pos,	0.080
 		texture { C_Texture }
 		}
 	#end		// if

panoramic.pov

@@ -16,7 +16,7 @@ object { Le_Decor            }
 
 // =======================================================
 
-#declare CK = 1.97 + (2.72 * Cos_01(NormClock));
+#declare CK = 1.97 + (2.42 * Cos_01(NormClock));
 
 #declare CamX = 1.72;
 #declare CamY = 7 + (4*Cos_01(NormClock));