last commits of this night

hexastar.inc

@@ -8,7 +8,7 @@
 /* ============================================================ */
 /*			Un des six éléments de base		*/
 
-#declare HS_radius = 0.407;
+#declare HS_radius = 0.409;
 
 #macro HS_element_pointe ()
 union	{
@@ -29,13 +29,23 @@ union	{
  */
 #macro HS_element_central ()
 union {
-	torus { HS_radius*0.73, 0.0180		}
+	#local HSCR = HS_radius*0.70;
+	torus { HSCR, 0.0180		}
+
+	// le noyau central
 	#local L = 0.0028;
-	#local R = 0.0597;
+	#local R = 0.0577;
 	cylinder { -y*L, y*L,  R		}
 	sphere   { 0, R translate -y*L	}
 	sphere   { 0, R translate  y*L	}
-	scale <1, 24.10, 1>
+
+	// les ailettes intérieures
+	#for (foo, 0, 5)
+	  cylinder { 0, x*HSCR, R*0.15	rotate y*foo*60 }
+	#end
+
+	// traitement final
+	scale <1, 23.10, 1>
 	rotate z*90
 
 	#local R = rand(Rng1);
@@ -50,11 +60,11 @@ union {
 #macro HS_element_queue ()
 union	{
 	#local R_a = HS_radius * 0.2222;
-	#local Small = 0.00001;
+	#local Small = 0.001;
 	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.35 )	texture { Rust		}
+	#if ( R < 0.35 )	texture { Rust	rotate y*(rand(Rng1)*133)}
 	#elseif ( R < 0.50 )	texture { T_Gold_5A	}
 	#elseif ( R < 0.80 )	texture { Aluminum	}
 	#else 			texture { T_Gold_3C	}
@@ -76,12 +86,15 @@ union	{
 	  #local Ty = E * cos(radians(Foo));
 	  #local Tz = E * sin(radians(Foo));
 	  union {
-	  	object { HS_element_pointe ()		}
-	  	object { HS_element_queue  ()		}
-		translate <0, Ty, Tz>
+	  	object { HS_element_pointe ()	
+			translate <0, Ty*1.16, Tz*1.16>	}
+	  	object { HS_element_queue  ()
+			translate <0, Ty, Tz>		}
 		}
 	#end		// end for
 	object { HS_element_central () }
+
+	// object { Repere }
 	}
 }
 /* ============================================================ */