tweaking the trident

contexte.inc

@@ -44,8 +44,8 @@ union	{
 	cylinder { 0, y*H_gyro, R_gyro }
 	intersection {
 		sphere { 0, R_gyro scale <1, 1.414, 1> }
-		box { <-1, 0, -1>, <1, 1, 1> }
-		translate y*(H_gyro+H_gylampe+0.02) 
+		box { <-1, 0, -1>, <1, 1.94, 1> }
+		translate y*(H_gyro+H_gylampe+0.04) 
 		}
 	#if (rand(Rng1) < 0.5)
 	  texture { T_Stone25 scale 1+rand(Rng1) }
@@ -61,16 +61,18 @@ union	{
 		cylinder { 0, y*H_gylampe,    R_gyro }
 		cylinder { y*0.01, y*(H_gylampe-0.01), R_gyro*0.97 }
 		#local WB = 0.017;
-		box { <-1, 0.03, -WB>, <1, (H_gylampe-0.03), WB> }
-		box { <-WB, 0.03, -1>, <WB, (H_gylampe-0.03), 1> }
+		union {
+		  box { <-1, 0.03, -WB>, <1, (H_gylampe-0.03), WB> }
+		  box { <-WB, 0.03, -1>, <WB, (H_gylampe-0.03), 1> }
+		  }
 		#undef WB
 		pigment { color Gray90 }
-		#local Ro = 5.89*(0.5-rand(Rng1));
-		#if (abs(Ro) < 0.06)
-		  #local Ro = Ro * 10;
+		#local Ro = 0.5 + (2.0 * rand(Rng1));
+		#if (rand(Rng1) < 0.50)
+		  #local Ro = -Ro;
 		#end
+		rotate y * Ro * clock
 		#undef Ro
-		rotate y*(0.5-rand(Rng1)) * clock
 		}
 	light_source { y*0.10
 			rgb <0.8, 0.9, 0.999999999>
@@ -92,7 +94,7 @@ union	{
 #macro Les_GyroPhares ()
 union	{
 	#local E = SzSol * 0.431;
-	#for (Idx, 0, 360, 60)
+	#for (Idx, 0, 359, 60)
 	  #local Ang = radians(Idx+7.33);
 	  #local Dx  = E * sin(Ang);
 	  #local Dz  = E * cos(Ang);

cutoff.pov

@@ -24,7 +24,7 @@ difference {
 	translate y*1.5 + Pos_RedB_1
 	} 
 
-object { Repere  translate y*1.5 + Pos_RedB_1 }
+// object { Repere  translate y*1.5 + Pos_RedB_1 }
 
 /* this one is for debugging */
 // object { OpenBox translate <0, 1.5, Kbox>  }

groundbase.inc

@@ -74,7 +74,8 @@ union	{
 	#local Dz = 1.0;
 	box { <-Dx, 0, -Dz>, <Dx, H_base, Dz> }
 	#local Ha = y*(H_base*2);
-	cylinder { 0, Ha, 0.08 translate <Dx, 0, -Dz> }
+	cylinder { 0, Ha, 0.08 translate < Dx, 0, -Dz> }
+	cylinder { 0, Ha, 0.08 translate <-Dx, 0, -Dz> }
 	#local Hb = Ha * 1.17;
 	cone { Ha, 0.08, Hb, 0.05 translate < Dx, 0, -Dz> }
 	cone { Ha, 0.08, Hb, 0.05 translate <-Dx, 0, -Dz> }
@@ -83,7 +84,7 @@ union	{
 	#undef Dx
 	#undef Dz
 	}
-texture { T_Grnt7 rotate 49 scale 0.22 }
+texture { T_Grnt7 rotate 49 scale 0.333 }
 }
 
 /* ------------------------------------------------------------ */
@@ -124,7 +125,8 @@ union	{
 	 */
 	#local Dz = <0, 0, -7>;
 	object { GroundBase_a               translate Dz }
-	object { Cabane_Base_2 rotate y*180 translate Dz }
+	object { Cabane_Base_2 rotate y*180
+			translate Dz + y*H_base }
 	#undef Dz
 	}
 translate y*(H_sol+H_base)

trident.inc

@@ -15,7 +15,7 @@ difference {
 	#if (Foo < 0.25)
 	  texture { T_Brass_2C }
 	#elseif (Foo < 0.50)
-	  texture { T_Silver_3A }
+	  texture { T_Planete_B }
 	#elseif (Foo < 0.75)
 	  texture { T_Chrome_3A }
 	#else
@@ -28,7 +28,7 @@ difference {
 #macro Trid_A_head ()
 union {
 	#for (A, 0, 360, 120)
-	  #local E  = 0.21;
+	  #local E  = 0.23;
 	  #local Tx = E * sin(radians(A));
 	  #local Tz = E * cos(radians(A));
 	    object { Trid_A_cone () translate <Tx*2, 0, Tz> }
@@ -44,9 +44,9 @@ merge	{
 	cylinder { <0, -L, 0>, <0, L, 0>, 0.065 }
 	sphere { 0, 0.065 scale <1, 6, 1> translate y*L }
 	#if (rand(Rng1) < 0.50)
-	  texture { T_Silver_2C }
+	  texture { Lightning2 }
 	#else
-	  texture { T_Copper_1E }
+	  texture { New_Penny }
 	#end
 	}
 #undef L
@@ -54,10 +54,10 @@ merge	{
 //	------------------------------------------------------
 #macro Trid_A_ailette ()
 union	{
-	#local E = 0.46;
+	#local E = 0.49;
 	object { Trid_A_cone () scale 0.7 translate x*E }
-	cylinder { 0, x*E, 0.014
-			scale <1, 3, 1> texture { T_Silver_3A } }
+	cylinder { 0, x*E, 0.012
+			scale <1, 4, 1> texture { T_Silver_3A } }
 	#undef E
 	}
 #end