more experiments

BloubWorld/movebloubs.f90

@@ -58,7 +58,7 @@ program movebloubs
     ! moving, morphing and boundingboxing
     call move_bloub    (bloub, 0.185)
     call bound_a_blob  (bloub)
-    if (bloub%radius .GT. 0.0151) then
+    if (bloub%radius .GT. 0.0155) then
       bloub%radius = bloub%radius * 0.9970
     endif
 
@@ -87,11 +87,16 @@ program movebloubs
   ! ok, we have read all the bloubs in the input file
 
   ! insert some fancy conditional here
+  if (compteur .LT.  200) then
+    call add_more_bloubs(outu, 5, 0.1333)
+  endif
+
+  ! insert some very fancy conditional here
   if (compteur .LT. 3000) then
     rnd = rand()
     write (0, '(A,1X,F9.6)') "try to add bloubs, rnd is", rnd
-    if (rnd .LT. 0.0450) then
-      call add_more_bloubs(outu, 24, 0.0990)
+    if (rnd .LT. 0.0455) then
+      call add_more_bloubs(outu, 24, 0.0999)
     endif
   endif
 
@@ -115,7 +120,7 @@ contains
   type(t_bloubs)             :: bloub
   integer                    :: foo, count
 
-  count = nbre+mod(irand(), 7)
+  count = nbre+mod(irand(), 9)
   write(0, '(A,I4,1X,A)') "adding", count, "bloubs"
 
   do foo=1, count

BloubWorld/runme.sh

@@ -10,6 +10,7 @@ TMPPNG="/dev/shm/bloubs7.png"
 POVOPT="+Q9 +a -v -d -W1600 -H1200 -WT2"
 DDIR="frames/a"
 LOGERR="log.error"
+TXTCOLOR="RosyBrown"
 
 # --- put the work file in ramdisk
 BLBS_IN="/dev/shm/in.blbs"
@@ -30,7 +31,7 @@ printf "\n#declare NbImg = %d;\n" $NBIMG > WS/nbimg.inc
 #    first, we have to make a seminal buch of bloubs
 #    --> this function need to be parametrizable
 #
-./genbloubs ${BLBS_IN}   3000
+./genbloubs ${BLBS_IN}   3
 
 for idx in $(seq 0 $((NBIMG-1)) )
 do
@@ -54,12 +55,11 @@ do
 	convert		${TMPPNG}			\
 			-font Courier-Bold		\
 			-pointsize 24			\
-			-fill Yellow			\
+			-fill "$TXTCOLOR"		\
 			-gravity south-east		\
 			-annotate +25+5 "$td"		\
 			-gravity south-west		\
 			-annotate +25+5 "$hi"		\
-			-fill Yellow			\
 			-pointsize 48			\
 			-gravity north-east		\
 			-annotate +25+5 "$count"	\

BloubWorld/scene.pov

@@ -35,8 +35,8 @@ object {
 	union {
 		plane	{ <1, 0, 0>, -32 	}
 		plane	{ <1, 0, 0>,  32	}
-		plane	{ <0, 1, 0>, -23	}
-		plane	{ <0, 1, 0>,  23	}
+		plane	{ <0, 1, 0>, -24	}
+		plane	{ <0, 1, 0>,  24	}
 		plane	{ <0, 0, 1>,  50 	}
 
 		texture {
@@ -50,7 +50,7 @@ object {
 
 #declare BH = 5;		// H = taille en horizontal
 #declare BV = 5;		// V = taille en vertical
-#declare BR = 0.028;
+#declare BR = 0.032;
 
 #declare Une_Borne = object
 {