From dd94a4a2a85b16d3cbcfe017397a6db3d467e08e Mon Sep 17 00:00:00 2001
From: tth <tth@konrad.lan>
Date: Wed, 16 Mar 2022 13:44:29 +0100
Subject: [PATCH] artistic changes

---
 BloubWorld/scene.pov | 69 ++++++++++++++++++++++++--------------------
 1 file changed, 37 insertions(+), 32 deletions(-)

diff --git a/BloubWorld/scene.pov b/BloubWorld/scene.pov
index b3a744c..47a4e91 100644
--- a/BloubWorld/scene.pov
+++ b/BloubWorld/scene.pov
@@ -5,7 +5,7 @@
 #version 3.7;
 
 global_settings {
-                ambient_light rgb <0.12, 0.07, 0.07>
+                ambient_light rgb <0.14, 0.08, 0.08>
                 assumed_gamma 1.0
                 }
 
@@ -19,8 +19,8 @@ global_settings {
 
 #include  "WS/bloubs.inc"
 
-#fopen LC "WS/log.nb_bloubs" write
-#write (LC, Nb_Bloubs, "\n")
+#fopen LC "WS/log.nb_bloubs" append
+#write (LC, " ", Nb_Bloubs, "\n")
 #fclose LC
 
 
@@ -29,11 +29,18 @@ object	{
 	finish { phong 0.55 specular 0.55 }
 	}
 
-plane	{
-	<0, 1, 0>, 0
-	texture {
-		pigment { color srgb <0.155, 0.144, 0.111> } 
-		finish { phong 0.18 metallic 0.55 }
+object {
+	union {
+		plane	{ <1, 0, 0>, -23 	}
+		plane	{ <1, 0, 0>,  23	}
+		plane	{ <0, 1, 0>, -23	}
+		plane	{ <0, 1, 0>,  23	}
+		plane	{ <0, 0, 1>,  50 	}
+
+		texture {
+			pigment { color srgb <0.195, 0.144, 0.111> } 
+			finish { phong 0.18 metallic 0.35 reflection 0.35 }
+			}
 		}
 	}
 
@@ -41,24 +48,24 @@ plane	{
 
 #declare BH = 5;		// H = taille en horizontal
 #declare BV = 5;		// V = taille en vertical
-#declare BR = 0.035;
+#declare BR = 0.028;
 
 #declare Une_Borne = object
 {
 merge	{
-	cylinder { <0, 0, 0>, <0, BV,   0>, BR     }
-	cylinder { <0, 0, 0>, <0, 0.04, 0>, BR*6   }
+	cylinder { <0, BV, 0>,   <0, -BV,   0>,   BR     }
+	cylinder { <0, 0.012, 0>, <0, -0.012, 0>,   BR*3   }
 	}
 }
 
 #declare Un_Cadre = object
 {
 merge {
-	#local Ruc = BR * 0.666;
-	cylinder { <-BH, 0, -BH>, <-BH, 0,  BH>, Ruc    }
-	cylinder { < BH, 0, -BH>, < BH, 0,  BH>, BR    }
-	cylinder { < BH, 0, -BH>, <-BH, 0, -BH>, BR    }
-	cylinder { < BH, 0,  BH>, <-BH, 0,  BH>, Ruc    }
+	#local Ruc = BR * 0.90;
+	cylinder { <-BH, 0, -BH>, <-BH, 0,  BH>,   Ruc    }
+	cylinder { < BH, 0, -BH>, < BH, 0,  BH>,   Ruc    }
+	cylinder { < BH, 0, -BH>, <-BH, 0, -BH>,   Ruc    }
+	cylinder { < BH, 0,  BH>, <-BH, 0,  BH>,   Ruc    }
 	}
 pigment { color Gray40 }
 }
@@ -66,9 +73,9 @@ pigment { color Gray40 }
 #declare Les_Bornes = object
 {
 union	{
-	#local E = 0.02;
-	object { Un_Cadre translate y*(BV-E)    }
-	object { Un_Cadre translate y*E         }
+	#local E = 0.002;
+	object { Un_Cadre translate  y*(BV-E)        }
+	object { Un_Cadre translate -y*(BV-E)         }
 
 	object { Une_Borne translate <-BH, 0, -BH> pigment { color Blue }  }
 	object { Une_Borne translate < BH, 0, -BH> pigment { color Green } }
@@ -100,24 +107,22 @@ union {
 }
 //  ----------------------------------------------------------
 
-// object { Repere scale 2+(1.9*NormClock) translate y*2.5 }
+light_source { <19, -12, -17> color Gray80 }
+light_source { <11,  14,   9> color Gray60 }
 
-light_source { <9, 22, -17> color Gray80 }
-light_source { <11, 19,   9> color Gray60 }
+#declare XCAM = 8 - ( 15 * NormClock);
+#declare YCAM = 1 + (0.75 * NormClock);
+#declare ZCAM = -17.5;
 
-#declare XCAM = 8 - ( 8 * NormClock);
-#declare YCAM = 5 + ( 3 * NormClock);
-#declare ZCAM = -15;
+#declare XLAT = Bary_X;
+#declare YLAT = Bary_Y;
+#declare ZLAT = Bary_Z;
 
-/*
-#fopen LC "WS/log.camera" append
-#write (LC, clock, "  ", NormClock, "  ", YCAM, "\n")
-#fclose LC
-*/
+// object { Repere scale 2.5 translate <XLAT, YLAT, ZLAT> }
 
 camera  {
 	location   <XCAM, YCAM, ZCAM>
-	look_at    <0,    1.5,   0>
+	look_at    <XLAT, YLAT, ZLAT>
 	right           x*image_width/image_height
-	angle		51
+	angle		66
 	}