affiner le contexte...

contexte.inc

@@ -26,10 +26,18 @@ union	{
 		box { <-1, 0.03, -WB>, <1, 0.18, WB> }
 		box { <-WB, 0.03, -1>, <WB, 0.18, 1> }
 		#undef WB
-		pigment { color White }
-		rotate y*(0.5-rand(Rng1))*clock
+		pigment { color Gray90 }
+		#local Ro = 0.5-rand(Rng1);
+		#if (abs(Ro) < 0.01)
+		  #local Ro = Ro * 10;
+		#end
+		rotate y*(0.5-rand(Rng1)) * clock
+		}
+	light_source { y*0.10
+			rgb <0.8, 0.9, 0.999999999>
+			fade_distance	3.96
+			fade_power	1.55
 			}
-	light_source { y*0.10 rgb <0.8, 0.9, 0.999999999> }
 	}
 #end // macro
 
@@ -42,6 +50,20 @@ union	{
 	}
 #end // macro
 
+#macro Les_GyroPhares ()
+union	{
+	#local E = SzSol * 0.485;
+	object { GyroPhare ()	translate <-E, 0, -E> }
+	object { GyroPhare ()	translate < E, 0, -E> }
+	object { GyroPhare ()	translate <-E, 0,  E> }
+	object { GyroPhare ()	translate < E, 0,  E> }
+	object { GyroPhare ()	translate <-E, 0,  0> }
+	object { GyroPhare ()	translate < E, 0,  0> }
+	object { GyroPhare ()	translate < 0, 0, -E> }
+	object { GyroPhare ()	translate < 0, 0,  E> }
+	#undef E
+	}
+#end
 /* ------------------------------------------------------------ */
 
 #declare Rhxba = 0.30;
@@ -58,6 +80,7 @@ merge	{
 	sphere { 0, R2hxba	translate < 0,  E,  0>	}
 	sphere { 0, R2hxba	translate < 0,  0, -E>	}
 	sphere { 0, R2hxba	translate < 0,  0,  E>	}
+	#undef E
 	}
 }
 
@@ -67,13 +90,13 @@ union	{
 	object	{ HexaBalls
 		texture { Lightning1 scale 0.33 }
 		rotate <clock/3, clock/6, clock/9>
-		translate <5, -1.2+1.01*Cos_010(NormClock), 7>
+		translate <5, -1.1+1.01*Cos_010(NormClock), 7>
 		}
 
 	object	{ HexaBalls
 		texture { Lightning2 scale 0.56 }
 		// rotate <-clock, clock*0.33333, clock>
-		translate <7, -1+0.89*Cos_010(NormClock), -6>
+		translate <7, -1+0.92*Cos_010(NormClock), -6>
 		}
 	}
 }
@@ -111,7 +134,7 @@ height_field {
 		pigment {
 			// color DarkGreen
 			image_map { png "datas/cmap.png" }
-			translate <-.5, 0, -.5>
+			// translate <-.5, 0, -.5>
 			scale <SzSol, 0.98, SzSol>
 			}
 		// normal { bumps 0.035 scale 0.186 }
@@ -120,6 +143,16 @@ height_field {
 	}
 }
 
+#declare Underground = object
+{
+plane { y, -0.80 }
+texture {
+	pigment { color Gray20 }
+	normal { bumps 0.25 scale 6 }
+	}
+}
+// =======================================================
+
 #declare Repere = object
 {
 union	{
@@ -127,6 +160,7 @@ union	{
 	cylinder { 0, <0, 0, 1>, 0.008 pigment { color Blue } }
 	}
 }
+// =======================================================
 
 #declare Les_Lumieres = object
 {
@@ -163,6 +197,14 @@ union {
 		point_at <0, 0.95, -0.22>
 		}
 	#end
+
+	light_source {
+		<-4, 54, -7>
+		colour Yellow*0.76
+		parallel
+		point_at	0
+		}
+
 	}
 }
 
@@ -178,7 +220,7 @@ sky_sphere {
 			[ 0.8  color White	]
 			[ 1.0  color Gray10	]
 			}
-		turbulence 3.14159 + 0.91 * Cos_010(NormClock)
+		turbulence 3.14159 + 0.78 * Cos_010(NormClock)
 		scale 1.804
 		// translate -1
 		}
@@ -195,8 +237,10 @@ sky_sphere {
 {
 union	{
 	object { Le_Sol }
+	object { Underground }
 	object { Les_Bibelots }
 	object { Les_Lumieres }
+	object { Les_GyroPhares () }
 	}
 }
 /* ------------------------------------------------------------ */