From 30ad204b5efecbadf4cdf71afc780f67a2a00b7c Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Thu, 1 Jan 2026 08:46:21 +0100
Subject: [PATCH] more work on hexabenz

---
 hexabenz.inc | 37 ++++++++++++++++++++-----------------
 1 file changed, 20 insertions(+), 17 deletions(-)

diff --git a/hexabenz.inc b/hexabenz.inc
index f9e991f..ebcbc30 100644
--- a/hexabenz.inc
+++ b/hexabenz.inc
@@ -31,7 +31,7 @@ torus { Ec, Ec*0.06
 	  texture { T_Brass_1C }
 	#end
 	}
-#end		
+#end		// macro
 
 // ------------------------------------------------------
 
@@ -159,20 +159,24 @@ texture { Soft_Silver scale 6.0 }
 }
 
 // ------------------------------------------------------
-
-#declare Benz_Antenne = object
-{
-#local RBA = 0.026;
+//     1er janvier 2026, il est temps de s'y remettre	*/
+#macro Benz_Antenne ()
 union	{
-	sphere { 0, RBA }
-	cylinder { 0, <0, 0.23, 0>, RBA*0.233 }
-	}
-scale <1, 1, 10>
-#if ( mod(clock, 20) < (30*rand(Rng1)) )   texture { T_WIP_color }
+	#local RBA = 0.020;
+	sphere { 0, RBA scale <1, 1, 10> }
+	union {
+		#local RBA2 = RBA*0.149;
+		#local E = 0.018;
+		cylinder {  E*z, <0, 0.20, E>, RBA2 }
+		cylinder { -E*z, <0, 0.20, E>, RBA2 }
+		scale <1, 1, 5>
+		}
+	
+#if ( mod(clock, 20) < (20*rand(Rng1)) )   texture { T_WIP_color }
 #else					   texture { T_WIP_alert }
 #end
-}
-
+	}
+#end
 // ------------------------------------------------------
 
 #macro Benz_Tube ()
@@ -180,14 +184,13 @@ scale <1, 1, 10>
 // {
 union	{
 	object { Benz_Tubules () }
-	object { Benz_Fuseau_Flash translate z*0.40	}
+	object { Benz_Fuseau_Flash translate z*0.35	}
 	object { Benz_Cylindre }
 
 	/* XXX */
-	object { Repere  }
-	object { Benz_Antenne
-			translate <0, -0.41, 0.70>
-			rotate z*30			}
+	object { Benz_Antenne ()
+			translate <0, -0.37, 0.76>
+			rotate z*45			}
 	}
 // }
 #end