dynamic.inc

@@ -104,10 +104,8 @@ 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.
- *	* les coordonnées de ces trous sont définies
- *	  dans le fichier 'contexte.inc'.
+ *	le vaisseau "trident" passe a travers les
+ *	trous de l'underground
  */
 // #fopen Trid "WS/tridents.log" write
 #for (Foo, 0, 5)
@@ -116,9 +114,8 @@ 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 () rotate y*Ry
-			translate y+( (5*rand(Rng1)) - 2.5)
-			translate Tr }
+  object { Trident_A () translate y+( (5*rand(Rng1)) - 2.5)
+			rotate y*Ry translate Tr }
 #end
 // #fclose Trid
 

hexastar.inc

@@ -8,15 +8,15 @@
 /* ============================================================ */
 /*			Un des six éléments de base		*/
 
-#declare HS_radius = 0.407;
+#declare HS_radius = 0.418;
 
 #macro HS_element_a ()
 union	{
 	#local R_a = HS_radius * 0.33333;
 	#local Small = 0.00001;
-	cone { <-1.34, 0, 0>, Small, <-0.6, 0, 0>, R_a }
+	cone { <-1.4, 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 }
+	cone { < 1.4, 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,24 +26,12 @@ union	{
 #end			// macro
 /* ------------------------------------------------------------ */
 /*
- *	element central   ---   À REFAIRE EN MACRO !
+ *	element central
  */
 #declare HS_element_central = object
 {
-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
+torus { HS_radius, 0.0182 scale <1, 25.90, 1> rotate z*90 }
+texture { Gold_Nugget }
 }
 
 /* ============================================================ */

orbite.pov

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