a lot of little changes

essai.pov

@@ -27,10 +27,10 @@
 
 #declare Un_Wagonnet = object
 {
-#local R = 2;
+#local R = 3.2;
 
-object { Wagonnet_0 (3) 
-	rotate y*clock
+object { Wagonnet_0 (R) 
+	rotate y*clock*2
 	}
 
 }
@@ -39,15 +39,13 @@ object { Wagonnet_0 (3)
 /* nouveau du 7 octobre 2025 */
 #macro Une_Boule ()
 sphere {
-	0, 0.1111 + (rand(Rng1) * 0.20)
+	0, 0.15 + (rand(Rng1) * 0.07)
 	#local R = rand(Rng1);
-	#if (R < 0.333)
-	  texture { C_Texture }
-	#elseif (R < 0.666)
-	  texture { M_Texture }
-	#else
-	  texture { Y_Texture }
-	#end 
+	#if (R < 0.333)		texture { C_Texture }
+	#elseif (R < 0.666)	texture { M_Texture }
+	#else			texture { Y_Texture }
+	#end
+	finish { specular 0.6 }
 	}
 #end		// macro
 
@@ -57,8 +55,8 @@ sphere {
 #declare Les_Boules = object
 {
 union	{
-	#for (A, 0, 24, 1)
-	#local CK = (NormClock*60.00) + (A*0.07);
+	#for (A, 0, 32, 1)
+	#local CK = (NormClock*55.00) + (A*0.08);
 	object { Une_Boule ()
 		#local TX = 1.6   * sin(CK);
 		#local TY = 1.4   * cos(sin(CK));
@@ -76,10 +74,12 @@ union	{
  */
 #declare Obj_BasicTexture = object
 {
-#local R = 0.333;
+#local R = 0.369;
+#local H = 1.2;
 merge	{
-	cylinder { 0, y, R }
-	sphere   { 0, R scale <1, 0.20, 1> translate y }
+	cylinder { 0, y*H, R }
+	sphere   { 0, R scale <1, 0.50, 1> translate y*H }
+	box { <-0.19, 0, -0.17>, <R+0.4, H*0.39, R+0.6> }
 	}
 }
 
@@ -88,11 +88,11 @@ merge	{
 #local TR = 2.20;
 union	{
 	object { Obj_BasicTexture texture { R_Texture }
-		translate <TR, 0,  0>				}
+		translate <TR*1.4, 0,  0>				}
 	object { Obj_BasicTexture texture { G_Texture }
-		translate <0, 0, 0>				}
+		translate <0, 0, -1>				}
 	object { Obj_BasicTexture texture { B_Texture }
-		translate <0, 0,  TR>				}
+		translate <0, 0, TR/2>				}
 
 	object { Obj_BasicTexture texture { Y_Texture }
 		translate < TR, 0,  TR>				}
@@ -100,6 +100,7 @@ union	{
 		translate <-TR, 0,  TR>				}
 	object { Obj_BasicTexture texture { C_Texture }
 		translate <-TR, 0, -TR>			}
+	object { Repere scale 1.5 translate y*2.5 }
 	}
 }
 // =======================================================
@@ -107,8 +108,9 @@ union	{
 #declare Des_Choses = object
 {
 union	{
-	object { Chose () translate -<-1.7, 0, 0.8>  }
-	object { Chose () translate -< 1.5, 0, 1.2> rotate -y*clock }
+	object { Chose () translate -<-1.7, 0,  0.8>  }
+	object { Chose () translate -< 1.5, 0,  1.2> rotate -y*clock }
+	object { Chose () translate -< 1.1, 0, -1.2> rotate  y*clock }
 	}
 }
 // =======================================================
@@ -137,27 +139,37 @@ object { Gyros }
 #declare Selector = mod(int(clock/60)+19, 8);
 #debug concat("Selector = ", str(Selector, 6, 0), "\n")
 
+#declare AngleCam = 17 - 3*Cos_01(NormClock);
+
 #switch (Selector)
   #case (0)
-	object { OpenBox translate y*2.1 }
+	union	{
+		object { OpenBox(1, 0.03) }
+		object { OpenBox(0.55, 0.03)
+		translate <0.4*rand(Rnd2), NormClock*0.74,cos(NormClock)> }
+		translate y*2.1
+		}
   #break
   #case (1)
-  	object { Les_Arches rotate -y*(clock*0.666) }
+  	object { Les_Arches (1.57) rotate -y*(clock*0.666) }
+	#declare AngleCam = 22;
 #break
   #case (2)
-	object { HexaWood rotate -y*(clock*0.38) translate y }
+	object { HexaPole    translate y }
   #break
   #case (3)
 	object { Des_Choses }
   #break
   #case (4)
-	object { HexaBenz () scale 2 translate 2.7*y rotate -y*clock }
+	object { HexaCone () scale 2 translate 2.7*y rotate -y*clock }
   #break
   #case (5)
 	object { Les_Boules translate y*0.8  }
   #break
   #case (6)
-	object { Un_Wagonnet  translate y  }
+	object { Un_Wagonnet  translate < 1, 1, 0>    }
+	object { Un_Wagonnet  translate  y+NormClock  }
+	object { Un_Wagonnet  translate <-1, 1, 0>    }
   #break
   #case (7)
 	#local Pos = <0, 0, 0>;
@@ -191,5 +203,5 @@ camera	{
 	#end
 	location	<CamX, CamY, CamZ>
 	look_at		<0, 1.6, 0>
-	angle		17 - 3*Cos_01(NormClock)
+	angle		AngleCam
 	}