work on texture and dynamic and something

contexte.inc

@@ -151,11 +151,11 @@ union	{
 	}
 }
 /* ======================================================= */
-#declare Rhxba = 0.30;
-#declare R2hxba = Rhxba * 0.48;
 
 #declare HexaBalls = object
 {
+#declare Rhxba = 0.30;
+#declare R2hxba = Rhxba * 0.48;
 merge	{
 	sphere { 0, Rhxba }
 	#local E = Rhxba * 1.260;
@@ -175,13 +175,13 @@ union	{
 	object	{ HexaBalls
 		texture { Lightning1 scale 0.44 }
 		rotate <clock/3, clock/4, clock/9>
-		translate <2, 1.51+Cos_010(NormClock), 4>
+		translate <2, 0.51+Cos_010(NormClock), 4>
 		}
 
 	object	{ HexaBalls
 		texture { Lightning2 scale 0.56 }
 		rotate <-clock, clock*0.33333, clock*3>
-		translate <4,  1.31+Cos_010(NormClock), -3>
+		translate <4,  0.31+Cos_010(NormClock), -3>
 		}
 	}
 }

dynamic.inc

@@ -52,11 +52,18 @@ union	{
 }
 object { BiCone rotate -y*(Cos_010(NormClock)*55.38) translate Pos_RedB_1 }
 
-/*	le trident posé sur son estrade			*/
+/*	les tridents posés sur leur estrade			*/
-object { Trident_A()	rotate z * (3.5*NormClock)
+#declare BiTrident = object
-			translate x*0.90
+{
+union	{
+	object { Trident_A ()	rotate -z * 3.5  translate -x*0.90  }
+	object { Trident_A ()	rotate  z * 3.5  translate  x*0.90  }
+	}
+}
+object { BiTrident 	translate x*0.80
 			rotate y*(520*Cos_01(NormClock))
-			translate Pos_RedB_2 + (y*2)	}
+			translate Pos_RedB_2 + (y*2)
+	}
 
 /*
  *	on fait passer un hexatruc dans le ciel
@@ -77,7 +84,7 @@ object { HexaCone () rotate y*((12*NormClock)+80) translate P }
   #declare Ry = ((rand(Rng1)-NormClock)*97);
 //  #write (Trid, Foo, "  ", NormClock, "  ", Dy, "  ",
 //		Ry, "  ", Tr, "\n")
-  object { Trident_A () translate y+( (3*rand(Rng1)) - 1.5)
+  object { Trident_A () translate y+( (5*rand(Rng1)) - 2.5)
 			rotate y*Ry translate Tr }
 #end
 // #fclose Trid

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)		translate <0, 1, 1.9>		}
-	object { Wagonnet_0(L+1)	translate <0, 2+NormClock, 0>	}
+	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 TX = 3.2   * sin(CK);
-		#local TY = 1.4   * cos(sin(CK));
+		#local TY = 0.4   * cos(sin(CK));
-		#local TZ = 2.0   * cos(1-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 }
+	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,7 +282,9 @@ object { Gyros }
 	object { Des_Choses }
   #break
   #case (4)
-	object { Trident rotate <30, 0, 30> translate 0.7*y
+	object { Trident_A()
+		scale 2
+		rotate <20, 0, 10> translate 2.1*y
 		rotate -y*clock }
   #break
   #case (5)
@@ -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

gadgets.inc

@@ -4,7 +4,7 @@
  */
 
 /* ======================================================= */
-#declare R_C = 0.45;
+#declare R_C = 0.42;
 
 /*	ce truc mérite un nom plus parlant !		*/
 #macro Chose_le_pied ()
@@ -37,7 +37,7 @@ union	{
 					cos(CK*(rand(Rng1))));
 	  #local Rt  = 0.015+(0.03*Cos_010(NormClock));
 	  #local B = <0, -0.05, 0>;
-	  #local H  = 1.26;
+	  #local H  = 1.16;
 	  cylinder { B, <C2X, H, C2Z>, Rt }
 	  sphere { <C2X, H, C2Z>, Rt }
 	#end
@@ -54,7 +54,7 @@ union	{
 //  ------------------------------------------------------ ##
 #macro Chose_le_corps ()			//  = object
 difference {
-	#local H = 0.60 + (0.10 * rand(Rng1));
+	#local H = 0.50 + (0.10 * rand(Rng1));
 	cone { 0, R_C*0.52, y*H, R_C }
 	sphere { y*H, R_C*0.75 }
 	#local R  = rand(Rng1);

globals.inc

@@ -178,6 +178,24 @@ finish	{
 	pigment { rgb <0.0, 0.8, 0.8> } finish { ambient 0.33 } }
 
 /* ------------------------------------------------------------ */
+/* nouvelle texture du début du jour de l'hiver 2025		*/
+
+#declare T_WIP_rasta = texture
+{
+pigment {
+	granite
+	color_map {
+		[0.00 color Black	]
+		[0.30 color Red		]
+		[0.50 color Green	]
+		[0.70 color Yellow	]
+		[1.00 color Black	]
+		}
+	}
+finish  { phong 0.23 ambient 0.40 }
+scale <3, 4, 3>
+}
+/* ------------------------------------------------------------ */
 
 #declare GoldDark = texture
 {

groundbase.inc

@@ -76,7 +76,7 @@ intersection {
 				}
 			}
 		}
-	cylinder { -y*5, y*5, SzSol*0.45 }
+	cylinder { -y*5, y*5, SzSol*0.51 }
 	}
 finish  { phong 0.096 }
 translate y*H_sol

trident.inc

@@ -50,7 +50,7 @@ merge	{
 	#local R = rand(Rng1);
 	#if ( R < 0.333)	texture { T_Chrome_1C		}
 	#elseif ( R < 0.666)	texture { T_Silver_1C		}
-	#else			texture { tPlasticGreen		}
+	#else			texture { T_WIP_rasta		}
 	#end
 	}
 #undef L
@@ -62,8 +62,8 @@ union	{
 	object { Trid_A_cone () scale 0.85 translate <E, -0.05, 0> }
 	cylinder { 0, x*E, 0.008 scale <1, 5, 1>		   }
 	#local R = rand(Rng1);
-	#if ( R < 0.8 )		texture { T_Silver_3A	}
+	#if ( R < 0.6 )		texture { T_Silver_3A	}
-	#else			texture { B_Texture	}
+	#else			texture { T_WIP_rasta	}
 	#end
 	#undef E
 	}