premier commit du printemps

hexabenz.inc

@@ -24,10 +24,13 @@ union	{
 	#local Ty = E * cos(radians(foo));
 	object {
 		Benz_Cone_Base ()
-		#if ( rand(Rng1) < 0.5 )
+		#local R = rand(Rng1);
+		#if ( R < 0.3333 )
 		  texture { T_Silver_2C scale 11.50 }
-		#else
+		#elseif ( R < 0.6666 )
 		  texture { T_Brass_2C   scale 13.50 }
+		#else
+		  texture { T_Brass_4A   scale 13.50 }
 		#end
 		rotate -z*foo
 		translate <Tx, Ty, 0>
@@ -47,7 +50,7 @@ union	{
 
 // ------------------------------------------------------
 
-#declare R_Tube = 0.18;
+#declare R_Tube = 0.17;
 #local L_Tube = 0.54;
 
 #macro Benz_Tubules ()
@@ -63,7 +66,7 @@ merge	{
 	  sphere { -Dza, R*1.8     translate <Tx, Ty, 0> }
 	  sphere {  Dzb, R*1.8     translate <Tx, Ty, 0> }
 	#end
-	#if ( rand(Rng1) < 0.360)
+	#if ( rand(Rng1) < 0.520)
 	  texture { Orange_Glass }
 	#else
 	  texture { Yellow_Glass }
@@ -84,7 +87,7 @@ scale <1, 1, 4.4>
 #if ( rand(Rng1) < 0.360)
   texture { Shadow_Clouds scale 0.56 }
 #else
-  texture { WIP_color }
+  texture { Flashy }
 #end
 
 #end     // end macro
@@ -98,12 +101,28 @@ union	{
 		rgb <rand(Rng2), rand(Rng2), rand(Rng2)>
 		fade_distance	0.96
 		fade_power	1.95
-
 		}
 	}
 rotate -z*clock*8
 }
 
+//	-------------------------------------------
+
+#local Forme_Cockpit = object
+{
+difference {
+	sphere { 0, R_Tube*0.72 }
+	sphere { 0, R_Tube*0.72 scale 0.99 }
+	#for (Foo, 0, 359, 36)
+	  cylinder { x, 0, R_Tube*0.15
+				translate y*(R_Tube*0.32)
+				rotate y*Foo }
+	#end
+	}
+scale <1, 0.87, 1>
+translate z*L_Tube*1.18
+}
+
 #declare Benz_Cylindre = object
 {
 difference	{
@@ -117,9 +136,8 @@ difference	{
 
 		/* cette sphere devrait devenir
 		     un vrai cockpit ? */
-		sphere { z*L_Tube*1.18, R_Tube*0.72
-				scale <1, 0.73, 1>
-				translate y*R_Tube*0.87}
+		object { Forme_Cockpit
+			translate y*R_Tube*0.97}
 		}
 	cylinder { z*4,      -z*4,   R_Tube*0.95 }
 	}