one more, another to come

carto.pov

@@ -20,18 +20,19 @@
 // ---------------------------------------------------------
 //		dessiner une grille
 
-#for (Foo, -150, 150, 10)
-  cylinder { <-150, 0, Foo>, <150, 0, Foo>, 0.11 }
-  cylinder { <Foo, 0, -150>, <Foo, 0, 150>, 0.11 }
+#for (Foo, -140, 140, 10)
+  #local H = 0.17;
+  cylinder { <-150, H, Foo>, <150, H, Foo>, 0.06 }
+  cylinder { <Foo, H, -150>, <Foo, H, 150>, 0.06 }
 #end
 
 // ---------------------------------------------------------
 
-object { Repere scale 10 translate y*7 }
+object { Repere scale 10 translate y*10 }
 object { Le_Decor }
 
 camera	{
-	location	<45, 179+(56*NormClock), 18-(17*NormClock)>
+	location	<45, 179+(61*NormClock), 18-(17*NormClock)>
 	look_at		<0, 1.18, 0.17 + (2.4*NormClock)>
 	right		<image_width/image_height, 0, 0>
 	angle		50

contexte.inc

@@ -21,7 +21,7 @@
 #declare RedB_1_X = -24;
 #declare RedB_1_Z =   8;
 
-#declare RedB_2_X =  41;
+#declare RedB_2_X =  39;
 #declare RedB_2_Z = -14;
 
 #declare Pos_RedB_0 = <RedB_0_X, 0, RedB_0_Z>;

dynamic.inc

@@ -52,7 +52,8 @@ union	{
 }
 object { BiCone rotate -y*(Cos_010(NormClock)*55.38) translate Pos_RedB_1 }
 
-object { Trident_A()	rotate z * (3*NormClock)
+/*	le trident posé sur son estrade			*/
+object { Trident_A()	rotate z * (3.5*NormClock)
 			translate x*0.80
 			rotate y*(520*Cos_01(NormClock))
 			translate Pos_RedB_2 + (y*2)	}
@@ -65,7 +66,7 @@ object { Trident_A()	rotate z * (3*NormClock)
 #declare P = Interpolate(A, B, NormClock);
 object { HexaCone () rotate y*((12*NormClock)+80) translate P }
 
-/*
+/*	-----------------------------------------------
  *	le vaisseau "trident" passe a travers les
  *	trous de l'underground
  */
@@ -73,10 +74,11 @@ object { HexaCone () rotate y*((12*NormClock)+80) translate P }
 #for (Foo, 0, 5)
   #declare Dy = rand(Rng1)-3+(11*NormClock);
   #declare Tr = UnderHoles[Foo] + <0, Dy, 0>;
-  #declare Ry = ((rand(Rng1)-NormClock)*87);
+  #declare Ry = ((rand(Rng1)-NormClock)*97);
 //  #write (Trid, Foo, "  ", NormClock, "  ", Dy, "  ",
 //		Ry, "  ", Tr, "\n")
-  object { Trident_A () translate y*rand(Rng1) rotate y*Ry translate Tr }
+  object { Trident_A () translate y+( (3*rand(Rng1)) - 1.5)
+			rotate y*Ry translate Tr }
 #end
 // #fclose Trid
 

globals.inc

@@ -23,10 +23,10 @@ global_settings	{
  *	Some constants...
  */
 
-#declare SzSol      = 34;
+#declare SzSol      = 36;
 #declare H_sol      = 0.000;	// c'est quoi exactement ?
 
-#declare SzBase     = 2.90;
+#declare SzBase     = 2.97;
 #declare H_base     = 0.23;
 
 #declare R_basecone = 0.117;

tools/mkloop.sh

@@ -34,7 +34,7 @@ do
 	err=$?
 	if [ $err != 0 ] ; then
 		echo "$SEQNAME fail $frame" >> WS/log
-		mogrify -colorspace gray -blur 5x5 -colors 16 $img
+		mogrify -colorspace gray -blur 5x5 -colors 8 $img
 		visual_sleep "render fail" 12
 		continue
 	fi
@@ -43,7 +43,7 @@ do
 	# echo $frame $img $txt
 	convert    ${TMPIMG}			\
 		-font Courier-Bold		\
-		-pointsize 18			\
+		-pointsize 20			\
 		-kerning   3			\
 		-fill ${TEXTCOL}		\
 		-gravity north			\

xperiment.inc

@@ -147,18 +147,18 @@ difference {
 	#local KX = KX * Mult;
 	#local KH = KH * Mult;
 	#local KZ = KZ * Mult;
-	box { <-KX, 0, -KZ>, <KX, KH, KZ> }
+	box { <-KX, 0.0001, -KZ>, <KX, KH, KZ> }
 
-	cylinder { <-10, KH*0.70, 0>, <10, KH*0.72, 0>, KX * 0.666 }
+	cylinder { <-10, KH*0.70, 0>, <10, KH*0.72, 0>, KX * 0.823 }
 
 	#local R = rand(Rng1);
 // #debug concat("Random = ", str(R, 6, 4), "\n")
-	#if ( R < 0.19 )	texture { T_Planete_A }
+	#if ( R < 0.23 )	texture { T_Planete_A }
 	#elseif ( R < 0.56 )	texture { T_Beton_1 }
 	#else			texture { T_Beton_2 }
 	#end		// if
 
-	rotate y * (277 * rand(Rng1))
+	rotate y * (207 * rand(Rng1))
 	}
 
 #end			// macro