La cabane part en prod' un lundi matin

contexte.inc

@@ -4,6 +4,63 @@
 
 /*   voir aussi le fichier 'globals.inc'   */
 
+/* ======================================================= */
+/*
+ *	Inserer ici le SDL de la cabane
+ */
+// =======================================================
+/*
+ * nouveau debut fevrier 2025 - we love raytracing
+ */
+
+/*
+ *	deux textures
+ */
+#declare T_Beton_1 = texture
+{
+pigment { color <0.9, 0.8, 0.8> }
+normal { dents 0.75 scale 0.3 }
+finish { roughness 1.00 }
+}
+
+#declare T_Beton_2 = texture
+{
+pigment { color <0.7, 0.6, 0.6> }
+normal { dents 0.25 scale 2 }
+finish { roughness 1.00 }
+}
+
+/*
+ *	une seule forme de cabane pour le moment
+ */
+#declare Base_cabane_forme = object
+{
+difference {
+	#local Hc = 0.90;
+	box { <-0.90,  0,  0>, <0.90, Hc, 0.80> 	}
+	box { <-0.89, 0.01, -1>  <0.89, Hc-0.01, 0.79> 	}
+	#local Hc = Hc * 0.75;
+	cylinder { <-1, Hc, -0.23>, <1, Hc, 0.23>, 0.09	}
+	#undef Hc
+	}
+}
+
+/*
+ *	comparaison des deux textures par le rendu
+ *	de la meme forme de cabane.
+ */
+#declare Cabane_Base_1 = object
+{
+object { Base_cabane_forme }
+texture { T_Beton_1 }
+}
+
+#declare Cabane_Base_2 = object
+{
+object { Base_cabane_forme }
+texture { T_Beton_2 }
+}
+
 /* ======================================================= */
 
 #declare GroudBase_coin = object
@@ -14,11 +71,30 @@ merge	{
 	}
 }
 
-#declare GroundBase = object
+#declare GroundBase_a = object
+{
+union	{
+	#local Dx = 1.5;
+	#local Dz = 1.0;
+	box { <-Dx, 0, -Dz>, <Dx, H_base, Dz> }
+	#local Ha = y*(H_base*2);
+	cylinder { 0, Ha, 0.08 translate <Dx, 0, -Dz> }
+	#local Hb = Ha * 1.17;
+	cone { Ha, 0.08, Hb, 0.05 translate < Dx, 0, -Dz> }
+	cone { Ha, 0.08, Hb, 0.05 translate <-Dx, 0, -Dz> }
+	#undef Ha
+	#undef Hb
+	#undef Dx
+	#undef Dz
+	}
+texture { T_Stone2 rotate 49 scale 0.22 }
+}
+
+#declare GroundBase_b = object
 {
 #local Sz = SzBase - 0.02;
 union {	
-	box { <-SzBase, 0, -SzBase>, <SzBase, 0.2, SzBase> }
+	box { <-SzBase, 0, -SzBase>, <SzBase, H_base, SzBase> }
 	object { GroudBase_coin translate <-Sz, 0, -Sz> }
 	object { GroudBase_coin translate < Sz, 0, -Sz> }
 	object { GroudBase_coin translate <-Sz, 0,  Sz> }
@@ -28,6 +104,20 @@ texture { T_Stone6 rotate 9 scale 0.32 }
 #undef Sz
 }
 
+/* ------------------------------------------------------------ */
+
+#declare La_GroundBase = object
+{
+union	{
+	object { GroundBase_b }
+	/*
+	 *	ici, mettre la cabane
+	 */
+	#local Dz = <0, 0, -7>;
+	object { GroundBase_a               translate Dz }
+	object { Cabane_Base_2 rotate y*180 translate Dz }
+	}
+}
 /* ======================================================= */
 
 #macro GyroPhare_mat ()
@@ -294,7 +384,7 @@ sky_sphere {
 union	{
 	object { Le_Sol }
 	object { Underground }
-	object { GroundBase }
+	object { La_GroundBase }
 	object { Les_Bibelots }
 	object { Les_Lumieres }
 	object { Les_GyroPhares () }