From eda56a4ac1bacf819f2585aa07bfe280767969a3 Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Thu, 8 Jan 2026 11:43:50 +0100
Subject: [PATCH] downsizing hexastar

---
 hexastar.inc | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

diff --git a/hexastar.inc b/hexastar.inc
index 13a9a9f..f770329 100644
--- a/hexastar.inc
+++ b/hexastar.inc
@@ -8,15 +8,15 @@
 /* ============================================================ */
 /*			Un des six éléments de base		*/
 
-#declare HS_radius = 0.418;
+#declare HS_radius = 0.407;
 
 #macro HS_element_a ()
 union	{
 	#local R_a = HS_radius * 0.33333;
 	#local Small = 0.00001;
-	cone { <-1.4, 0, 0>, Small, <-0.6, 0, 0>, R_a }
+	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.4, 0, 0>, Small, < 0.6, 0, 0>, R_a }
+	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.50 )	texture { GoldDark  }
@@ -26,12 +26,24 @@ union	{
 #end			// macro
 /* ------------------------------------------------------------ */
 /*
- *	element central
+ *	element central   ---   À REFAIRE EN MACRO !
  */
 #declare HS_element_central = object
 {
-torus { HS_radius, 0.0182 scale <1, 25.90, 1> rotate z*90 }
-texture { Gold_Nugget }
+union {
+	torus { HS_radius*0.93, 0.0180		}
+	#local L = 0.0035;
+	cylinder { -y*L, y*L,  0.057		}
+	sphere   { 0, 0.057 translate -y*L	}
+	sphere   { 0, 0.057 translate  y*L	}
+	}
+scale <1, 25.90, 1>
+rotate z*90
+#local R = rand(Rng1);
+#if ( R < 0.33 )		texture { Y_Texture	}
+#elseif ( R < 0.66 )		texture { T_Gold_1A	}
+#else				texture { Aluminum	}
+#end
 }
 
 /* ============================================================ */