add comment & fix a bug ?

dynamic.inc

@@ -104,8 +104,10 @@ object { HexaStar 	rotate z*5
 object { HexaCone () rotate y*((12*NormClock)+80) translate P }
 
 /*	-----------------------------------------------
- *	le vaisseau "trident" passe a travers les
- *	trous de l'underground
+ *	* le vaisseau "trident" passe a travers les
+ *	  trous de l'underground.
+ *	* les coordonnées de ces trous sont définies
+ *	  dans le fichier 'contexte.inc'.
  */
 // #fopen Trid "WS/tridents.log" write
 #for (Foo, 0, 5)
@@ -114,8 +116,9 @@ object { HexaCone () rotate y*((12*NormClock)+80) translate P }
   #declare Ry = (( 0.5+rand(Rng1)-NormClock ) * 97);
 //  #write (Trid, Foo, "  ", NormClock, "  ", Dy, "  ",
 //		Ry, "  ", Tr, "\n")
-  object { Trident_A () translate y+( (5*rand(Rng1)) - 2.5)
-			rotate y*Ry translate Tr }
+  object { Trident_A () rotate y*Ry
+			translate y+( (5*rand(Rng1)) - 2.5)
+			translate Tr }
 #end
 // #fclose Trid
 

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
 }
 
 /* ============================================================ */

orbite.pov

@@ -67,10 +67,10 @@ object { HexaCone ()
 	rotate  y*CK*99.22 translate <PosX, PosY, PosZ>
 	}
 
-#declare PosX = RO * sin(CK+3.12);
+#declare PosX = RO * sin(CK+3.14);
 #declare PosY = 0;
 #declare PosZ = RO * cos(CK+3.23);
-object { HexaStar ()
+object { HexaStar
 	rotate  y*CK*99.22 translate <PosX, PosY, PosZ>
 	}