work on texture and dynamic and something

essai.pov

@@ -56,8 +56,8 @@ union	{
 #local L = 2.4;
 
 union	{
-	object { Wagonnet_0(L)		translate <0, 1, 1.6>		}
-	object { Wagonnet_0(L+1)	translate <0, 2+NormClock, 0>	}
+	object { Wagonnet_0(L)		translate <0, 1, 1.9>		}
+	object { Wagonnet_0(L+1)	translate <0, 3+NormClock, 0>	}
 	object { Wagonnet_0(L)		translate <0, 1, -1.8>		}
 	}
 }
@@ -66,7 +66,7 @@ union	{
 /* nouveau du 7 octobre 2025 */
 #macro Une_Boule ()
 sphere {
-	0, 0.15 + (rand(Rng1) * 0.07)
+	0, 0.15 + (rand(Rng1) * 0.06)
 	#local R = rand(Rng1);
 	#if (R < 0.333)		texture { C_Texture }
 	#elseif (R < 0.666)	texture { M_Texture }
@@ -82,15 +82,15 @@ sphere {
 #declare Les_Boules = object
 {
 union	{
-	#for (A, 0, 32, 1)
+	#for (A, 0, 64, 1)
 	#local CK = (NormClock*55.00) + (A*0.28);
 	object { Une_Boule ()
-		#local TX = 1.9   * sin(CK);
-		#local TY = 1.4   * cos(sin(CK));
-		#local TZ = 2.0   * cos(1-CK);
+		#local TX = 3.2   * sin(CK);
+		#local TY = 0.4   * cos(sin(CK));
+		#local TZ = 3.0   * cos(1-CK);
 		translate <TX, TY, TZ> 
 		}
-	// object { Repere scale 2 }
+	object { Repere scale 2 }
 	#end		// for
 	}
 }
@@ -101,15 +101,22 @@ union	{
  */
 #declare Obj_BasicTexture = object
 {
-#local R = 0.369;
+#local R = 0.385;
 #local H = 1.2;
 merge	{
 	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> }
+	difference {
+		#local R1 = R+0.46;
+		#local R2 = R+0.63;
+		box { <-0.19, 0, -0.17>, <R+0.4, H*0.39, R+0.6> }
+		cylinder { <R1, -1, R2>, <R1, 1, R2>, 0.27 }
+		}
 	}
 }
 
+// -------------------------------------------------------
+
 #declare BasicTextures = object
 {
 #local TR = 2.20;
@@ -130,6 +137,88 @@ union	{
 	object { Repere scale 1.5 translate y*2.5 }
 	}
 }
+
+// -------------------------------------------------------
+/*
+ *	Après lecture de la doc (et une bonne 8.6), j'ai
+ *	décidé de me lancer dans la création de textures
+ */
+
+#declare T_WIP_R = texture
+{
+pigment { color Red }
+finish  { phong 0.23 ambient 0.50 }
+}
+
+#declare T_WIP_G = texture
+{
+pigment { color Green }
+finish  { phong 0.23 ambient 0.50 }
+}
+
+#declare T_WIP_B = texture
+{
+pigment { color Blue }
+finish  { phong 0.23 ambient 0.50 }
+}
+
+//		deuxieme lot	----------------------
+#declare T_WIP_1 = texture
+{
+pigment { color <0.36, 0.6, 0.79> }
+normal  { dents 0.94 scale 0.5}
+finish  { specular 0.40  ambient 0.69 }
+}
+
+#declare T_WIP_bluewave = texture
+{
+      pigment {
+        wood
+        color_map {
+          [0.0   color Gray70	]
+          [0.5   color Gray80	]
+          [0.5   color Blue	]
+          [1.0   color Blue	]
+        }
+	rotate y*49
+	translate <NormClock*0.1, sqrt(NormClock*0.4),
+				Cos_010(NormClock)*0.333>
+        scale <0.2, 0.3, 1>
+      }
+      finish { phong 1 }
+}
+// -------------------------------------------------------
+
+#declare ProtoTextures = object
+{
+#local TX  = 2.35;
+#local TZ  = 2.95;
+#local Kro = 32 + (NormClock * 17);
+union	{
+	object { Obj_BasicTexture texture { T_WIP_R }
+		rotate y * (rand(Rng1)*Kro)
+		translate <TX, 0,  -TZ>				}
+	object { Obj_BasicTexture texture { T_WIP_G }
+		rotate y * (rand(Rng1)*Kro)
+		translate <TX, 0,    0>				}
+	object { Obj_BasicTexture texture { T_WIP_B }
+		rotate y * (rand(Rng1)*Kro)
+		translate <TX, 0,   TZ>				}
+
+	object { Obj_BasicTexture texture { T_WIP_1 }
+		rotate y * (rand(Rng1)*Kro)
+		translate <-TX, 0,  TZ>				}
+	object { Obj_BasicTexture texture { T_WIP_rasta }
+		rotate y * (rand(Rng1)*Kro)
+		translate <-TX, 0,  0>				}
+	object { Obj_BasicTexture texture { T_WIP_bluewave }
+		rotate y * (rand(Rng1)*Kro)
+		translate <-TX, 0, -TZ>				}
+
+	object { Repere scale 1.5 translate y*0.5 }
+	}
+}
+
 // =======================================================
 /* Les choses, c'est l'espèce de vase avec des tiges 
    qui bougent, je devrais trouver un nom plus parlant */
@@ -180,12 +269,12 @@ object { Gyros }
 
 #switch (Selector)
   #case (0)
-	object { Une_Arche (0.333) scale 2 }
+	object { BasicTextures rotate -y*clock }
   #break
   #case (1)
   	object { Les_Arches (1.57) rotate -y*(clock*0.666) }
 	#declare AngleCam = 22;
-#break
+  #break
   #case (2)
 	object { Le_ConeStack ()   translate y*0.20 }
   #break
@@ -193,8 +282,10 @@ object { Gyros }
 	object { Des_Choses }
   #break
   #case (4)
-	object { Trident rotate <30, 0, 30> translate 0.7*y
-						rotate -y*clock }
+	object { Trident_A()
+		scale 2
+		rotate <20, 0, 10> translate 2.1*y
+		rotate -y*clock }
   #break
   #case (5)
 	object { Les_Boules translate y*0.8  }
@@ -204,7 +295,7 @@ object { Gyros }
   #break
   #case (7)
 	#local Pos = <0.5-NormClock, 0, 0>;
-	object { BasicTextures   rotate -y*clock translate Pos  }
+	object { ProtoTextures   rotate -y*clock translate 0  }
   #break
 
 #end     	// switch selector