BloubWorld/README.md

@@ -3,12 +3,10 @@
 C'est quoi ?
 
 Le BloubWorld (que l'on appelle aussi BloubSpace) est un espace borné
-dans lequel se déplacent des **bloubs**, lesquels sont
-des sortes de particule
-munie de certaines propriétés.
-Lesquelles évoluent en fonction du temps.
+dans lequel se déplcent des **bloubs**, une sorte de particule
+munie de certaines propriétés. Lesquelles évoluent en fonction du temps.
 
-## Description d'un bloub
+## Description d'un bloubs
 
 ```
   type t_bloubs
@@ -29,8 +27,3 @@ Pas trop mal pour un premier jet. Il suffit de lire
 le script `runme.sh` pour avoir une idée de l'enchainement
 des opérations.
 
-## TODO
-
-- Concevoir un système de _bouding box_ facile à utiliser
-- Réfléchir à une politique de vieillissement des bloubs
-

BloubWorld/bloubspace.f90

@@ -28,9 +28,9 @@ module bloubspace
     blb%py = rand() * 0.25
     blb%pz = rand() - 0.50
 
-    blb%vx = (rand() - 0.5) / 4.000
-    blb%vy = (rand() - 0.5) / 4.000
-    blb%vz = (rand() - 0.5) / 4.000
+    blb%vx = (rand() - 0.5) / 5.000
+    blb%vy = (rand() - 0.5) / 5.000
+    blb%vz = (rand() - 0.5) / 5.000
 
   end subroutine
 
@@ -39,9 +39,7 @@ module bloubspace
   subroutine move_bloub (blb, coef)
     type(t_bloubs), intent (inout)  :: blb
     real,           intent (in)     :: coef
-
-    ! we must check that this bloub is alive ?
-
+    
     blb%px  = blb%px + (blb%vx * coef)
     blb%py  = blb%py + (blb%vy * coef)
     blb%pz  = blb%pz + (blb%vz * coef)

BloubWorld/genbloubs.f90

@@ -31,7 +31,7 @@ program genbloubs
     bloub%nick = 'noname  '
     bloub%alive = .TRUE.
     call random_pv(bloub)
-    bloub%radius = 0.025
+    bloub%radius = 0.009999
     bloub%seq    = 0
 
     write(idu) bloub              ! no error control ?

BloubWorld/movebloubs.f90

@@ -44,7 +44,7 @@ program movebloubs
       exit
     endif
 
-    call move_bloub (bloub, 1.10)
+    call move_bloub (bloub, 0.333)
 
     bx = bx + bloub%px
     by = by + bloub%py
@@ -55,10 +55,6 @@ program movebloubs
       bloub%vy = -1.0 * bloub%vy
       bloub%py = 0.0
     endif
-    if (3.0 .lt. bloub%py) then
-      bloub%vy = -1.0 * bloub%vy
-      bloub%py = 3.0
-    endif
 
     write(outu) bloub     ! no error control ?
 

BloubWorld/runme.sh

@@ -7,9 +7,8 @@
 
 INCFILE="bloubs.inc"
 TMPPNG="/dev/shm/bloubs7.png"
-POVOPT="+Q9 +a -v -d -W640 -H480"
+POVOPT="+Q9 -v -d -W640 -H480"
 DDIR="frames"
-LOGERR="log.error"
 
 make all
 err=$?
@@ -17,45 +16,43 @@ if [ $err -ne 0 ] ; then
 	echo 'make error = ' $err
 	exit 1
 fi
-
 #
 #    first, we have to make a seminal buch of bloubs
 #    --> this function need to be paraletrizable
 #
 ./genbloubs in.blbs  10000
 
-for idx in $(seq 0 50)
+for idx in $(seq 0 40)
 do
 
 	echo "======== run passe $idx ========="
 
 	./exportbloubs in.blbs | awk -f toinc.awk > $INCFILE
 
-	povray -Iscene.pov -K${idx} -O${TMPPNG} ${POVOPT} 2> $LOGERR
-	grep "Trace Tim" $LOGERR
+	povray -Iscene.pov -K${idx} -O${TMPPNG} ${POVOPT} 2> toto
+	grep "Trace Tim" toto
 
 	txt=$(date +'%F %R:%S')
 	PNG=$(printf "%s/%05d.png" ${DDIR} $idx)
-	echo $txt
+	echo $PNG $txt
 
 	convert		${TMPPNG}			\
 			-font fixed			\
-			-pointsize 16			\
+			-pointsize 12			\
 			-fill orange			\
 			-gravity south-east		\
-			-annotate +15+10 "$txt"		\
+			-annotate +10+10 "$txt"		\
 			$PNG
 
-	echo $PNG '[done]'
-
 	./movebloubs in.blbs out.blbs
-	mv out.blbs in.blbs
-	echo
 
+	cp out.blbs in.blbs
+
+	sleep 2 ; echo 
 done
 
-rm $LOGERR
+rm toto
 
-convert -delay 10  -colors 192 $DDIR/*.png foo.gif
+convert -delay 10  -colors 32 $DDIR/*.png foo.gif
 
 

BloubWorld/scene.pov

@@ -25,35 +25,16 @@ plane	{
 	<0, 1, 0>, 0
 	texture {
 		pigment { color Gray10 } 
-		finish { phong 0.18 metallic 0.45 }
+		finish { phong 0.58 metallic 0.45 }
 		}
 	}
 
-//  ----------------------------------------------------------
-
-#declare Les_Bornes = object
-{
-#declare BH = 5;
-#declare BV = 3;
-#declare BR = 0.02;
-union	{
-	cylinder { <-BH, 0, -BH>, <-BH, BV, -BH>, BR pigment { color Blue } }
-	cylinder { < BH, 0, -BH>, < BH, BV, -BH>, BR pigment { color Green } }
-	cylinder { <-BH, 0,  BH>, <-BH, BV,  BH>, BR pigment { color Green } }
-	cylinder { < BH, 0,  BH>, < BH, BV,  BH>, BR pigment { color Red } }
-	}
-}
-
-object { Les_Bornes }
-
-//  ----------------------------------------------------------
-
-light_source { <4, 12, -11> color Gray80 }
-light_source { <4, 9,    9> color White }
+light_source { <4, 1, -9> color White }
+light_source { <4, 9,  9> color White }
 
 camera  {
-	location   <7, 5, -16>
+	location   <1, 3, -5>
 	look_at    <0, 0, 0>
 	right           x*image_width/image_height
-	angle		54
+	angle		48
 	}

RandomStuff/README.md

@@ -1,4 +0,0 @@
-# Random Stuff
-
-Warning, non-sense inside !
-

SoundBrotching/README.md

@@ -1,4 +0,0 @@
-# SoundBrotching
-
-Stay tuned, film at 11.
-