subroutine green_soylent in actio

BloubWorld/scene.pov

@@ -5,26 +5,32 @@
 #version 3.7;
 
 global_settings {
-                ambient_light rgb <0.09, 0.02, 0.02>
+                ambient_light rgb <0.12, 0.01, 0.01>
                 assumed_gamma 1.0
                 }
 
 #include  "colors.inc"
 
+#include  "nbimg.inc"
+
+#declare NormClock = clock / NbImg;
+
+//  ----------------------------------------------------------
+
 #include  "bloubs.inc"
 
 object	{
 	Bloubs
 	texture {
-		pigment { color Gray50 } 
-		finish { phong 0.58 metallic 0.45 }
+		pigment { color Gray60 } 
+		finish { phong 0.58 specular 0.45 }
 		}
 	}
 
 plane	{
 	<0, 1, 0>, 0
 	texture {
-		pigment { color Gray10 } 
+		pigment { color Black } 
 		finish { phong 0.18 metallic 0.45 }
 		}
 	}
@@ -39,7 +45,7 @@ plane	{
 {
 union	{
 	cylinder { <0, 0, 0>, <0, BV,   0>, BR     }
-	cylinder { <0, 0, 0>, <0, 0.03, 0>, BR*4   }
+	cylinder { <0, 0, 0>, <0, 0.02, 0>, BR*8   }
 	}
 }
 
@@ -58,11 +64,13 @@ object { Les_Bornes }
 //  ----------------------------------------------------------
 
 light_source { <4, 12, -11> color Gray80 }
-// light_source { <4, 19,    9> color White }
+light_source { <7, 19,   9> color Gray60 }
+
+#declare HCAM = 5 + (5 * NormClock);
 
 camera  {
-	location   <7, 5, -16>
-	look_at    <0, 0, 0>
+	location   <6, HCAM, -16>
+	look_at    <0,    0,   0>
 	right           x*image_width/image_height
-	angle		54
+	angle		52
 	}