diff --git a/xperiment.inc b/xperiment.inc
index 83a24b0..afbcccd 100644
--- a/xperiment.inc
+++ b/xperiment.inc
@@ -4,7 +4,25 @@
  *	A cosy place for experimental things (2025/10/27)
  *
  */
-#macro Wagonnet_0 (Longueur)
+/* =============================================================== */
+#macro Pointe_Wagonnet_0 ()
+merge	{
+	cone 	{	0, 0.06, y*0.33, 0.001	}
+	sphere  { 	0, 0.06			}
+	#local R = rand(Rng1);
+	#if	(R < 0.25)
+	  texture { T_Chrome_1A }
+	#elseif	(R < 0.50)
+	  texture { T_Chrome_2B }
+	#elseif	(R < 0.75)
+	  texture { T_Chrome_3C }
+	#else
+	  texture { T_Chrome_4D }
+	#end	// IF
+	}
+#end		// Macro
+/* --------------------------------------------------------------- */
+#macro Corps_Wagonnet_0 (Longueur)
 object {
 	/* le corps */
 	merge	{
@@ -19,7 +37,7 @@ object {
 
 	/* le kiosque (est-ce un sous-marin ?) */
 	merge	{
-		#local H2 = L2 * 0.60;
+		#local H2 = L2 * 0.50;
 		cylinder { <0, 0, 0>,	<0, H2, 0>, R/4		}
 		sphere   { <0, 0, 0>, R/4
 			   scale <1, 0.5, 1> translate y*H2
@@ -28,17 +46,32 @@ object {
 		}
 	#local R = rand(Rng1);
 	#if (R < 0.333)
-	  texture { Soft_Silver					}
-	#elseif (R < 0.666)
+	  texture { T_Brass_2C					}
+	#elseif (R < 0.25)
 	  texture { GoldDark					}
+	#elseif (R < 0.50)
+	  texture { T_Chrome_5A }
 	#else
-	  texture { Lightning1 rotate z*90 scale 0.11		}
+	  // texture { Lightning1 rotate z*90 scale 0.09		}
+	  texture { T_Gold_3C }
 	#end 
 	}
 }
 #end		// macro
-
-// =======================================================
+/* --------------------------------------------------------------- */
+#macro Wagonnet_0 (Longueur)
+union	{
+	object { Corps_Wagonnet_0 (Longueur) }
+	#for (Foo, 0, 5)
+	  #local DX = (-1.5+Foo*0.35);
+	  #local RP = -30 + (60 * rand(Rng1));
+	  object { Pointe_Wagonnet_0 ()
+		translate <DX, 0.28, 0> rotate x*RP }
+	#end
+	object { Repere scale 0.75 translate <0.6, 0.55, 0.25> }
+	}
+#end		// macro
+/* =============================================================== */
 /*
  *	nouveau du 25 octobre 2025
  */
@@ -157,18 +190,6 @@ scale 0.5
 // rotate -y * (clock*0.33)
 #end
 // =======================================================
-/*
- *	new: 28 octobre 2025
- */
-#declare Ground_Texture = texture
-{
-pigment	{ rgb <0.51, 0.58, 0.23> }
-normal { dents 0.28 scale 1.5}
-finish	{
-	ambient 0 specular 0.5 metallic roughness 0.18
-	reflection { 0.5 metallic }
-	}
-}
 
 
 // ==============================================================