Bourtoulots laboratories in the place

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/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

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