diff --git a/xperiment.inc b/xperiment.inc
index 3b45c74..3286af7 100644
--- a/xperiment.inc
+++ b/xperiment.inc
@@ -134,7 +134,7 @@ union	{
 
 #macro Cahute_0 ()
 difference {
-	#local KX = 0.60;
+	#local KX = 0.55;
 	#local KH = 1.80 + rand(Rng1) ;
 	// #debug concat("    Cahute_0, KH = ", str(KH, 6, 4), "\n")
 	#local KZ = KX + (0.24*rand(Rng1));
@@ -150,7 +150,7 @@ difference {
 
 	#local R = rand(Rng1);
 // #debug concat("Random = ", str(R, 6, 4), "\n")
-	#if ( R < 0.13 )
+	#if ( R < 0.19 )
 	  texture { T_Planete_A }
 	#elseif ( R < 0.56 )
 	  texture { T_Beton_1 }
@@ -167,16 +167,17 @@ difference {
 
 #macro Les_Cahutes ()
 union	{
+	#local H = 0.80;
 	#local K = 2.75;
 	union {
 		object { Cahute_0 ()  translate -x * K }
 		object { Cahute_0 ()  translate  x * K }
 		object { Cahute_0 ()  translate -z * K }
 		object { Cahute_0 ()  translate  z * K }
-		translate y
+		translate y*H
 		}
 	#local K2 = K + 1.35;
-	box { <-K2, 0, -K2>, <K2, 1, K2> pigment { Gray30 } }
+	box { <-K2, 0, -K2>, <K2, H, K2> pigment { Gray30 } }
 	}
 scale 0.5
 // rotate -y * (clock*0.33)