From 751c02321bf6a320dbb537680d7d289fa83d9a71 Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Wed, 29 Apr 2026 09:27:45 +0200
Subject: [PATCH] add a glowing light to the hexapoles

---
 gadgets.inc | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/gadgets.inc b/gadgets.inc
index 2e4aa53..6ed81bb 100644
--- a/gadgets.inc
+++ b/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