From 8e14ec2c8da752c1e16ddb5872d37626797be23f Mon Sep 17 00:00:00 2001
From: tTh <tth@konrad.lan>
Date: Sun, 31 May 2026 23:44:58 +0200
Subject: [PATCH] Bourtoulots laboratories in the place

---
 BloubWorld/runme.sh        | 6 +++---
 Fraktalism/encode.sh       | 2 +-
 Fraktalism/fraktals.f90    | 2 +-
 Fraktalism/voxelize.f90    | 8 ++++----
 GrafAnim/noisepic.f90      | 2 +-
 GravityField/animation.f90 | 4 ++--
 6 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/BloubWorld/runme.sh b/BloubWorld/runme.sh
index 5f146e2..eee4821 100755
--- a/BloubWorld/runme.sh
+++ b/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
 
diff --git a/Fraktalism/encode.sh b/Fraktalism/encode.sh
index 164f246..381871b 100755
--- a/Fraktalism/encode.sh
+++ b/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				\
diff --git a/Fraktalism/fraktals.f90 b/Fraktalism/fraktals.f90
index f3dd9b9..d4b2218 100644
--- a/Fraktalism/fraktals.f90
+++ b/Fraktalism/fraktals.f90
@@ -49,7 +49,7 @@ subroutine compute_pickover(array, coefs)
 
     xa = 1.0  ; ya = 1.0  ; za = 1.0
     do i=1, ubound(array, 1)
-      xb = sin(coefs(1)*ya) - za*cos(coefs(2)*xa)
+      xb = sin(coefs(1)*ya)    - za*cos(coefs(2)*xa)
       yb = za*sin(coefs(3)*xa) - cos(coefs(4)*ya)
       zb = sin(xa)
       array(i)%x   = xb
diff --git a/Fraktalism/voxelize.f90 b/Fraktalism/voxelize.f90
index 47b1e4a..1858e3a 100644
--- a/Fraktalism/voxelize.f90
+++ b/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
diff --git a/GrafAnim/noisepic.f90 b/GrafAnim/noisepic.f90
index c907c58..8ac0fcc 100644
--- a/GrafAnim/noisepic.f90
+++ b/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
diff --git a/GravityField/animation.f90 b/GravityField/animation.f90
index 0df5e70..60a6be6 100644
--- a/GravityField/animation.f90
+++ b/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*'