time to go to bed, pushing non-sense

BloubWorld/README.md

@@ -3,10 +3,12 @@
 C'est quoi ?
 
 Le BloubWorld (que l'on appelle aussi BloubSpace) est un espace borné
-dans lequel se déplcent des **bloubs**, une sorte de particule
+dans lequel se déplacent des **bloubs**, lesquels sont
-munie de certaines propriétés. Lesquelles évoluent en fonction du temps.
+des sortes de particule
+munie de certaines propriétés.
+Lesquelles évoluent en fonction du temps.
 
-## Description d'un bloubs
+## Description d'un bloub
 
 ```
   type t_bloubs
@@ -27,3 +29,8 @@ 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) / 5.000
+    blb%vx = (rand() - 0.5) / 4.000
-    blb%vy = (rand() - 0.5) / 5.000
+    blb%vy = (rand() - 0.5) / 4.000
-    blb%vz = (rand() - 0.5) / 5.000
+    blb%vz = (rand() - 0.5) / 4.000
 
   end subroutine
 
@@ -39,7 +39,9 @@ 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.009999
+    bloub%radius = 0.025
     bloub%seq    = 0
 
     write(idu) bloub              ! no error control ?

BloubWorld/movebloubs.f90

@@ -44,7 +44,7 @@ program movebloubs
       exit
     endif
 
-    call move_bloub (bloub, 0.333)
+    call move_bloub (bloub, 1.10)
 
     bx = bx + bloub%px
     by = by + bloub%py
@@ -55,6 +55,10 @@ 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,8 +7,9 @@
 
 INCFILE="bloubs.inc"
 TMPPNG="/dev/shm/bloubs7.png"
-POVOPT="+Q9 -v -d -W640 -H480"
+POVOPT="+Q9 +a -v -d -W640 -H480"
 DDIR="frames"
+LOGERR="log.error"
 
 make all
 err=$?
@@ -16,43 +17,45 @@ 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 40)
+for idx in $(seq 0 50)
 do
 
 	echo "======== run passe $idx ========="
 
 	./exportbloubs in.blbs | awk -f toinc.awk > $INCFILE
 
-	povray -Iscene.pov -K${idx} -O${TMPPNG} ${POVOPT} 2> toto
+	povray -Iscene.pov -K${idx} -O${TMPPNG} ${POVOPT} 2> $LOGERR
-	grep "Trace Tim" toto
+	grep "Trace Tim" $LOGERR
 
 	txt=$(date +'%F %R:%S')
 	PNG=$(printf "%s/%05d.png" ${DDIR} $idx)
-	echo $PNG $txt
+	echo $txt
 
 	convert		${TMPPNG}			\
 			-font fixed			\
-			-pointsize 12			\
+			-pointsize 16			\
 			-fill orange			\
 			-gravity south-east		\
-			-annotate +10+10 "$txt"		\
+			-annotate +15+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 toto
+rm $LOGERR
 
-convert -delay 10  -colors 32 $DDIR/*.png foo.gif
+convert -delay 10  -colors 192 $DDIR/*.png foo.gif
 
 

BloubWorld/scene.pov

@@ -25,16 +25,35 @@ plane	{
 	<0, 1, 0>, 0
 	texture {
 		pigment { color Gray10 } 
-		finish { phong 0.58 metallic 0.45 }
+		finish { phong 0.18 metallic 0.45 }
 		}
 	}
 
-light_source { <4, 1, -9> color White }
+//  ----------------------------------------------------------
-light_source { <4, 9,  9> color White }
+
+#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 }
 
 camera  {
-	location   <1, 3, -5>
+	location   <7, 5, -16>
 	look_at    <0, 0, 0>
 	right           x*image_width/image_height
-	angle		48
+	angle		54
 	}

RandomStuff/README.md

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

SoundBrotching/README.md

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