Bourtoulots laboratories in the place

BloubWorld/runme.sh

@@ -7,7 +7,7 @@
 
 INCFILE="WS/bloubs.inc"
 TMPPNG="/dev/shm/bloubs7.png"
-POVOPT="+Q9 +a -v -d -W1024  -H768 -WT2"
+POVOPT="+Q9 +a -v -d -W1920  -H1080 -WT4"
 DDIR="frames/a"
 LOGERR="log.error"
 TXTCOLOR="#db4090"
@@ -34,7 +34,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}  2
+./genbloubs ${BLBS_IN}  2000
 
 for idx in $(seq 0 $((NBIMG-1)) )
 do
@@ -82,7 +82,7 @@ do
 	# mv ${BLBS_OUT} ${BLBS_IN}
 
 	echo "### run done"
-	sleep 35
+	sleep 5
 
 done
 

Fraktalism/encode.sh

@@ -36,7 +36,7 @@ TITLE='---{ experimental }---'
 
 ffmpeg  -nostdin					\
 	-loglevel warning				\
-	-y -r 30 -f image2 -i $SDIR/%05d.pnm 		\
+	-y -r 30 -f image2 -i $SDIR/%05d.png 		\
 	-metadata artist='---{ tTh }---'		\
 	-metadata title="${TITLE}"			\
  	-preset veryslow				\

Fraktalism/voxelize.f90

@@ -9,7 +9,7 @@ program voxelize
 
   implicit none
 
-  integer, parameter                          :: DIMC = 320
+  integer, parameter                          :: DIMC = 451
   integer, dimension(:,:,:), allocatable      :: cube
   type(t_point3d), dimension(:), allocatable  :: points
   integer                                     :: errcode, foo, argc
@@ -19,7 +19,7 @@ program voxelize
   double precision                            :: dmaxcube, delta
   character(200)                              :: filename, string
 
-  write(0, *) "--- start of voxelize"
+  write(0, *) "--------- start of voxelize -------------------"
 
   argc = IARGC()
   if (2 .NE. argc) then
@@ -43,7 +43,7 @@ program voxelize
 
   KA(1) =  -1.3402     ;     KA(2) =   1.5245
   KA(3) =   1.0966     ;     KA(4) =  -2.3423
-  KB(1) =  -1.2100     ;     KB(2) =   1.3685
+  KB(1) =  -1.2333     ;     KB(2) =   1.3685
   KB(3) =   1.3237     ;     KB(4) =  -2.3992
   call interp4dp(KA, KB, KM, delta)
   write(0, "(' --- coefs = ', 4F11.6)") KM
@@ -80,7 +80,7 @@ subroutine fcoor2icoor(in, out)
   integer                            :: outvalue
 
   invalue = (in + 2.0) / 2.0
-  outvalue = int(invalue * real(DIMC/2))
+  outvalue = int(invalue * real(DIMC/2.0))
 
   ! add molly-guard here
   out = outvalue

GrafAnim/noisepic.f90

@@ -35,7 +35,7 @@ program noisepic
     r5 = 29000 + 23000 * cos(fclock*32)
     ranges(5) = nint(r5)    ; ranges(6) = ranges(5)+300
 
-    print *, 'r123', numframe, fclock, r1, r3, r5
+    print *, numframe, fclock, r1, r3, r5
 
     call make_noise_color_range_pic (numframe, ranges, 29000)
   enddo

GravityField/animation.f90

@@ -15,7 +15,7 @@ program animation
   ! some configuration constants
   integer, parameter      :: S_WIDTH  = 2048
   integer, parameter      :: S_HEIGHT = 2048
-  integer, parameter      :: NB_BODY  = 250
+  integer, parameter      :: NB_BODY  = 666
 
   !!! WARNING : global variable !!!
   type(massbody)          :: planets(NB_BODY)
@@ -24,7 +24,7 @@ program animation
   call create_some_planets(planets, 1664e3, S_WIDTH , S_HEIGHT)
   call print_barycentre_bodies(planets, 'begin')
 
-  call la_grande_boucle(0, 2000, planets)
+  call la_grande_boucle(0, 4000, planets)
 
   STOP ': YOLO TIME *NOW*'