minor tweaks

BloubWorld/bloubspace.f90

@@ -23,7 +23,7 @@ module bloubspace
   subroutine random_pv (blb)
     type(t_bloubs), intent (inout)  :: blb
 
-    blb%px = 2.0 * (rand() - 0.50)
+    blb%px = 1.3 * (rand() - 0.50)
     blb%py = rand() * 0.50
     blb%pz = 2.0 * (rand() - 0.50)
 

BloubWorld/movebloubs.f90

@@ -58,7 +58,7 @@ program movebloubs
     call bound_a_blob  (bloub)
     call green_soylent (bloub)
     if (.NOT. bloub%alive) then
-      write(0, '(A)') "   KILL!"
+      ! write(0, '(A)') "   KILL!"
       killed = killed  + 1
       cycle
     endif
@@ -89,7 +89,10 @@ program movebloubs
 
   close(inu)    ;    close(outu)
 
+  if (killed .GT. 0) then
     write (0, '(I5, A)') killed, " bloubs killed"
+  endif
+
   bx = bx / dble(compteur)
   by = by / dble(compteur)
   bz = bz / dble(compteur)

BloubWorld/runme.sh

@@ -11,7 +11,7 @@ POVOPT="+Q9 +a -v -d -W920 -H600"
 DDIR="frames"
 LOGERR="log.error"
 
-NBIMG=3000
+NBIMG=4000
 
 make all
 err=$?
@@ -26,7 +26,7 @@ printf "\n#declare NbImg = %d;\n" $NBIMG > nbimg.inc
 #    first, we have to make a seminal buch of bloubs
 #    --> this function need to be paraletrizable
 #
-./genbloubs in.blbs  6000 
+./genbloubs in.blbs  9000 
 
 for idx in $(seq 0 $NBIMG)
 do
@@ -51,7 +51,7 @@ do
 	convert		${TMPPNG}			\
 			-font fixed			\
 			-pointsize 20			\
-			-fill Yellow			\
+			-fill Orange			\
 			-gravity south-east		\
 			-annotate +15+10 "$txt"		\
 			$PNG
@@ -66,8 +66,8 @@ done
 
 rm $LOGERR
 
-convert -delay 10 -resize 50% -colors 192	\
-			$DDIR/????[0]*.png foo.gif
+# XXX convert -delay 10 -resize 50% -colors 192	\
+# XXX			$DDIR/????[0]*.png foo.gif
 
 ./encode.sh
 

BloubWorld/scene.pov

@@ -45,7 +45,7 @@ plane	{
 {
 union	{
 	cylinder { <0, 0, 0>, <0, BV,   0>, BR     }
-	cylinder { <0, 0, 0>, <0, 0.02, 0>, BR*8   }
+	cylinder { <0, 0, 0>, <0, 0.02, 0>, BR*7   }
 	}
 }
 
@@ -66,11 +66,11 @@ object { Les_Bornes }
 light_source { <4, 12, -11> color Gray80 }
 light_source { <7, 19,   9> color Gray60 }
 
-#declare HCAM = 5 + (5 * NormClock);
+#declare HCAM = 5 + (7 * NormClock);
 
 camera  {
 	location   <6, HCAM, -16>
 	look_at    <0,    0,   0>
 	right           x*image_width/image_height
-	angle		52
+	angle		48
 	}