cramicule is comming !

BloubWorld/README.md

@@ -82,5 +82,7 @@ par exemple le barycentre des bloubs. Et c'est très facile
 - Réfléchir à une politique de vieillissement des bloubs
 - le `merge` de deux bloubs est-il un acte politique ?
 
+.
+
 
 

BloubWorld/bloubspace.f90

@@ -84,7 +84,7 @@ module bloubspace
     blb%py = coefxyz * (rand() - 0.50)
     blb%pz = coefxyz * (rand() - 0.50)
 
-    blb%vx = (rand() / 9.000)
+    blb%vx = (rand() / 6.000)
     if (blb%px .LT. 0.0) blb%vx = -blb%vx
 
     blb%vy = -0.10 + (rand() / 11.000)

BloubWorld/genbloubs.f90

@@ -42,4 +42,4 @@ program genbloubs
 
   close(unit=idu)
 
-end program
+end program

BloubWorld/movebloubs.f90

@@ -54,7 +54,7 @@ program movebloubs
   do
     read (unit=inu, iostat=errcode) bloub
     if (0 .ne. errcode) then
-      ! may be we got an EOF ?
+      ! may be we got an EOF ?           XXX
       exit
     endif
 
@@ -97,16 +97,18 @@ program movebloubs
 
   ! ok, we have read all the bloubs from the input file
 
-  ! insert some fancy conditional here
-  if (compteur .LT. 50) then
-    call add_more_bloubs(outu, 5, 0.046)
+  ! insert some fancy conditional here for adding new
+  ! bloubs to the bloubiverse
+  if (compteur .LT. 180) then
+    write (0, *) '... rearmement demographique ...'
+    call add_more_bloubs(outu, 19, 0.046)
   endif
 
   rnd = rand()
   ! write(0, *) 'rnd= ', rnd
   if (rnd .LT. 0.18) then
-    write (0, *) '... random of life ...'
-    call add_more_bloubs(outu, 5, 0.056)
+    write (0, *) '... the random of life ...'
+    call add_more_bloubs(outu, 15, 0.056)
   endif
 
   close(inu)    ;    close(outu)

BloubWorld/runme.sh

@@ -32,7 +32,7 @@ fi
 #    first, we have to make a seminal buch of bloubs
 #    --> this function need to be parametrizable
 #
-./genbloubs ${BLBS_IN}  3333
+./genbloubs ${BLBS_IN}  333
 
 for idx in $(seq 0 $((NBIMG-1)) )
 do
@@ -54,7 +54,7 @@ do
 	fi
 
 	td=$(date -u +'%F %R' | tr '01' 'ol')
-	hi=$(printf "#%04d" $idx | tr '01' 'ol')
+	hi=$(printf "\$%03x" $idx | tr '01' 'ol')
 	count=$(tail -1 "WS/log.nb_bloubs" | tr '01' 'ol')
 
 	PNG=$(printf "%s/%05d.png" ${DDIR} $idx)
@@ -64,7 +64,7 @@ do
 			-pointsize 28			\
 			-fill "$TXTCOLOR"		\
 			-gravity south-east		\
-			-annotate +25+5 "$td"		\
+			-annotate +25+5 "$hi"		\
 			-gravity south-west		\
 			-annotate +25+5 "$count"	\
 			$PNG
@@ -76,7 +76,7 @@ do
 	# mv ${BLBS_OUT} ${BLBS_IN}
 
 	echo "### run done"
-	sleep 5
+	sleep 15
 
 done
 

BloubWorld/scene.pov

@@ -13,6 +13,10 @@ global_settings {
 
 #declare NormClock = clock / NbFrames;
 
+#macro Cos_010( X )
+  (0.5-0.5*cos(2*3.141592654*X))
+#end
+
 //  ----------------------------------------------------------
 
 #include  "WS/bloubs.inc"
@@ -35,7 +39,7 @@ union {
 	plane	{ <0, 1, 0>,  27	}
 	plane	{ <0, 0, 1>,  69 	}
 	texture {
-		pigment { color srgb <0.35, 0.44, 0.43> } 
+		pigment { color srgb <0.48, 0.54, 0.52> } 
 		finish { phong 0.18 ambient 0.25 reflection 0.35 }
 		}
 	}
@@ -162,9 +166,10 @@ union {
 light_source { < 19,  12+NormClock, -17> color Gray80 }
 light_source { <-14,  10-NormClock, -29> color Gray80 }
 
-#declare XCAM = 10 - ( 20 * NormClock);
+#declare XCAM = 20 - ( 40 * NormClock);
 #declare YCAM = -1.1 + (2.26 * NormClock);
 #declare ZCAM = -23.00;
+#declare  ACAM = 55 - (12*Cos_010(NormClock));
 
 #declare XLAT = 0;
 #declare YLAT = 0;

BloubWorld/toinc.awk

@@ -8,6 +8,7 @@
 BEGIN	{
 	count = 0
 	bx = by = bz = 0.0
+	print "// --------------------------------"
 	print "// GENERATED FILE, DON'T TOUCH IT !"
 	print "// --------------------------------"
 	print
@@ -21,19 +22,21 @@ BEGIN	{
 
 	color = "Cyan"
 	if (merged) {
-		if (age > 150)	color = "Orange"
-		else		color = "Yellow"
+		if (age > 150)	color = "OrangeRed"
+		else		color = "GreenYellow"
 		}
 	else	{
 		if (age > 150)	color = "DarkGreen"
 		else		color = "Aquamarine"
 		}
 	if (age < 18)		color = "Gray40"
-	if (age <  9)		color = "Blue"
+	if (age <  9)		color = "LimeGreen"
 
+	# calcul barycentre
 	bx += $1
 	by += $2
 	bz += $3
+
 	pigment = "pigment { color " color " }"
 	printf "\tsphere { <%f, %f, %f>, %f \n\t\t%s }\n",	\
 			  $1, $2, $3,  $4, pigment