some tweaks...

dynamic.inc

@@ -11,9 +11,9 @@
 #local Zp = RD * cos(CK);
 
 object	{
-	object { Patrouille rotate 90*y }
-	rotate		y*degrees(CK)
-	translate	<Xp, 67+(8*NormClock), Zp>
+	object { Patrouille  }
+	rotate		 y*degrees(CK)
+	translate	<Xp, 79+(11*NormClock), Zp>
 	translate	<-30, 0, 0>
 	}
 
@@ -81,7 +81,7 @@ object { BiTrident
 
 /* l'hexastar est une nouvelle venue du 4 janvier 2026 */
 // elle est ici présentée sur son estrade.
-object { HexaStar 	rotate z*5
+object { HexaStar 	rotate -z*5
 			rotate y*(670*sin(NormClock))
 			translate Pos_RedB_3 + (y*2)
 	}

hexastar.inc

@@ -10,14 +10,12 @@
 
 #declare HS_radius = 0.407;
 
-#macro HS_element_a ()
+#macro HS_element_pointe ()
 union	{
 	#local R_a = HS_radius * 0.33333;
 	#local Small = 0.00001;
 	cone { <-1.34, 0, 0>, Small, <-0.6, 0, 0>, R_a }
 	sphere { 0, R_a scale <0.3, 1, 1> translate <-0.6, 0, 0> }
-	cone { < 1.34, 0, 0>, Small, < 0.6, 0, 0>, R_a }
-	sphere { 0, R_a scale <0.3, 1, 1> translate < 0.6, 0, 0> }
 	#local R = rand(Rng1);
 	#if ( R < 0.45 )	texture { GoldDark  }
 	#elseif ( R < 0.60 )	texture { Aluminum }
@@ -33,12 +31,12 @@ union	{
 {
 union {
 	torus { HS_radius*0.73, 0.0180		}
-	#local L = 0.0035;
+	#local L = 0.0032;
 	cylinder { -y*L, y*L,  0.059		}
 	sphere   { 0, 0.059 translate -y*L	}
 	sphere   { 0, 0.059 translate  y*L	}
 	}
-scale <1, 25.90, 1>
+scale <1, 25.10, 1>
 rotate z*90
 #local R = rand(Rng1);
 #if ( R < 0.33 )		texture { Y_Texture	}
@@ -47,6 +45,26 @@ rotate z*90
 #end
 }
 
+/* ------------------------------------------------------------ */
+/* nouveau 14 janvier 2026 */
+#macro HS_element_queue ()
+union	{
+	#local R_a = HS_radius * 0.2222;
+	#local Small = 0.00001;
+	cone { < 0.44, 0, 0>, Small, < 0.88, 0, 0>, R_a }
+	sphere { 0, R_a scale <0.7, 1, 1> translate <0.88, 0, 0> }
+	#local R = rand(Rng1);
+	#if ( R < 0.45 )	texture { C_Texture  }
+	#elseif ( R < 0.80 )	texture { Aluminum }
+	#else 			texture { T_Gold_3C }
+	#end
+	}
+#end			// macro
+/* ------------------------------------------------------------ */
+/* nouveau XXX janvier 2026 */
+
+		// UNE ANTENNE ?
+
 /* ============================================================ */
 /*			On regroupe les six élements		*/
 #declare HS_les_elements = object
@@ -56,8 +74,9 @@ union	{
 	  #local E = HS_radius;
 	  #local Ty = E * cos(radians(Foo));
 	  #local Tz = E * sin(radians(Foo));
-	  object { 
-		HS_element_a ()
+	  union {
+	  	object { HS_element_pointe ()		}
+	  	object { HS_element_queue  ()		}
 		translate <0, Ty, Tz>
 		}
 	#end		// end for

trident.inc

@@ -5,6 +5,10 @@
 #declare Trid_length = 2;
 
 //	------------------------------------------------------
+/*
+ *	2026/01/15 : this object is malformed,
+ *			please correct it as soon as possible.
+ */
 #declare Trid_cone = object
 {
 merge	{
@@ -16,7 +20,7 @@ merge	{
 #macro Trid_A_cone ()
 difference {
 	object { Trid_cone }
-	object { Trid_cone translate -y*0.001 }
+	object { Trid_cone translate -y*0.04 }
 	#local Foo = rand(Rng1);
 	#if (Foo < 0.25)	texture { T_Brass_2C }
 	#elseif (Foo < 0.50)	texture { tPlasticOrange }

xperiment.inc

@@ -12,7 +12,7 @@
 {
 union	{
 	#local EX = 2.4;
-	#local EZ = 2.3;
+	#local EZ = 2.1 + (0.5*sin(NormClock));
 	object { Trident_A ()  rotate x*87 				}
 	object { HexaBenz  ()  translate <-EX,    0,   -EZ>		}
 	object { HexaCone  ()  translate < EX,   -0.4, -EZ>		}