diff --git a/essai.pov b/essai.pov
index febf7db..6ba4234 100644
--- a/essai.pov
+++ b/essai.pov
@@ -17,6 +17,34 @@
 //		XXX
 #include  "xperiment.inc"
 //		XXX
+// =======================================================
+/*
+ *	new Thu Dec 18 01:14:19 AM UTC 2025
+ */
+
+#macro Le_ConeStack ()
+union	{
+	#local Hcs = 0.50;
+	#local Rco = R_basecone * 1.95;
+	#for (Foo, 0, 6)
+	  #local Dy = Foo * 0.580;
+	  union {
+		cone { 0, Rco, <0, Hcs, 0>, 0.0001
+		#if (rand(Rng1) < 0.50)   texture { Y_Texture }
+		#else			  texture { M_Texture }
+		#end			// if rand
+		}
+		cylinder { 0, -0.08*y, Rco
+		#if (rand(Rng1) < 0.50)   texture { R_Texture }
+		#else			  texture { G_Texture }
+		#end			// if rand
+		}
+		translate y * Dy
+		}
+	#end		// for Foo
+	}
+#end			// macro
+ 
 // =======================================================
 /* nouveau du 20 octobre 2025
  * 	Un semblant de wagonnet qui va tourner sur le
@@ -29,8 +57,8 @@
 
 union	{
 	object { Wagonnet_0(L)		translate <0, 1, 1.6>		}
-	object { Wagonnet_0(L+1)	translate <0, 1+NormClock, 0>	}
-	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.8>		}
 	}
 }
 
@@ -145,33 +173,28 @@ object { Gyros }
 
 //  ------------------------------------------------------ ##
 
-#declare Selector = mod(int(clock/60)+19, 8);
+#declare Selector = mod(int(clock/60)+20, 8);
 #debug concat("Selector = ", str(Selector, 6, 0), "\n")
 
 #declare AngleCam = 17 - 3*Cos_01(NormClock);
 
 #switch (Selector)
   #case (0)
-	union	{
-		object { OpenBox(1, 0.03) }
-		object { OpenBox(0.55, 0.03)
-		translate
-		   <0.4*rand(Rng1), NormClock*1.2, 2*cos(NormClock*9)> }
-		translate y*2.1
-		}
+	object { Une_Arche (0.333) scale 2 }
   #break
   #case (1)
   	object { Les_Arches (1.57) rotate -y*(clock*0.666) }
 	#declare AngleCam = 22;
 #break
   #case (2)
-	object { HexaPole ()   translate y }
+	object { Le_ConeStack ()   translate y*0.20 }
   #break
   #case (3)
 	object { Des_Choses }
   #break
   #case (4)
-	object { HexaWood scale 2 translate 0.7*y rotate -y*clock }
+	object { Trident rotate <30, 0, 30> translate 0.7*y
+						rotate -y*clock }
   #break
   #case (5)
 	object { Les_Boules translate y*0.8  }
@@ -180,7 +203,7 @@ object { Gyros }
 	object { Les_Wagonnets rotate y*(clock)    }
   #break
   #case (7)
-	#local Pos = <0, 0, 0>;
+	#local Pos = <0.5-NormClock, 0, 0>;
 	object { BasicTextures   rotate -y*clock translate Pos  }
   #break