Fraktalism/julias.f90

@@ -86,8 +86,8 @@ subroutine julia_colormapped(pic, cx, cy, maxiter)
             pic(ix, iy)%b = mod(abs(int(aimag(Z)*140)), 255)
           else
             pic(ix, iy)%r = mod(iter*33, 255)
-            pic(ix, iy)%g = mod(iter*59, 255)
+            pic(ix, iy)%g = mod(iter*29, 255)
-            pic(ix, iy)%b = mod(iter*41, 255)
+            pic(ix, iy)%b = mod(iter*21, 255)
           endif
       enddo      ! iy
     enddo        ! ix

Fraktalism/mkjulia.f90

@@ -26,7 +26,7 @@ program julia
     call getarg(2, string)       ;   read (string, *) cx
     call getarg(3, string)       ;   read (string, *) cy
 
-    allocate(picz(512, 342))
+    allocate(picz(640, 480))
 
     call julia_colormapped(picz, cx, cy, 500)
     call rgbpix_spit_as_pnm_8(picz, trim(filename))

Fraktalism/mkjuliagif.sh

@@ -25,8 +25,6 @@ do
 
 	./mkjulia $img $cx $cy
 
-	sleep 145
-
 done
 
 ./tagpicz.sh $workdir

Fraktalism/tagpicz.sh

@@ -19,8 +19,8 @@ do
 		-gravity South-East		\
 		-font Courier			\
 		-pointsize 12			\
-		-fill firebrick				\
+		-fill Yellow			\
-		-annotate +10+10 "Konrad+tTh 2023"	\
+		-annotate +10+10 "tTh 2023"	\
 		$img
 	echo "tagging " $img
 

GrafAnim/.gitignore

@@ -3,7 +3,6 @@ essai
 doubledice
 doublegauss
 trigofest
-noisepic
 
 *.scratch
 *.genplot

GrafAnim/Makefile

@@ -20,9 +20,6 @@ trigofest:	trigofest.f90 Makefile vue3axes.o utils_ga.o
 	gfortran $(GFOPT) $<  ../Modules/pixrgb.o  ../Modules/spitpgm.o \
 			utils_ga.o -o $@
 
-noisepic:	noisepic.f90  Makefile
-	gfortran $(GFOPT) $< ../Modules/spitpgm.o -o $@
-
 # ---- modules locaux
 
 usegenplot.o:	usegenplot.f90 Makefile

GrafAnim/doublegauss.f90

@@ -4,7 +4,7 @@ program doublegauss
   implicit none
 
   type(t_pixrgb), allocatable     ::    pic(:,:)
-  character (len=280)             ::    filename
+  character (len=80)              ::    filename
   integer                         ::    pass, iter
   integer                         ::    xrnd, yrnd
 

GrafAnim/noisepic.f90

@@ -1,73 +0,0 @@
-program noisepic
-
-  use spitpgm
-  implicit none
-
-  integer                   :: numframe = 0
-
-  integer                   :: nbarg
-  character(len=256)        :: arg
-
-
-  nbarg = IARGC()
-  if (nbarg .GT. 0) then
-       call GETARG(1, arg)
-       ! write (0, '(A40, A5)') "argument = ",  arg
-       read (arg, *) numframe
-  endif
-
-  call make_noise_pic(numframe)
-
-contains
-!-- ------------------------------------------------------------------
-subroutine make_noise_pic (value)
-
-  integer, intent(in)        :: value
-
-  integer                               :: foo
-  integer, dimension(:,:), allocatable  ::  pic
-  character (len=280)                   ::    filename
-
-  allocate(pic(320, 240))
-
-  pic = 0
-
-  call srand(value+34)
-  foo = irand()
-  print *, 'val=', value, '       rnd=', foo
-
-  call plot_noise_pic(pic, 15000)
-
-  write (filename, "(a, i5.5, a)") "", value, ".pgm"
-  call spit_as_pgm_8(pic, trim(filename))
-
-end subroutine
-!-- ------------------------------------------------------------------
-subroutine plot_noise_pic(picz, nbre)
-
-  integer, dimension(:,:), intent(inout) :: picz
-  integer, intent(in)                    :: nbre
-
-  integer                                :: width, height
-  integer                                :: quux, ix, iy, iv
-
-
-  width = ubound(picz, 1)  ;  height = ubound(picz, 2)
-  ! print *, 'sz picz', width, height
-
-  do quux=1, nbre
-
-    ix = 1 + mod ( irand(), width )
-    iy = 1 + mod ( irand(), height )
-    iv = mod ( irand(), 256 )
-
-    ! print *, ix, iy
-    picz(ix, iy) = iv
-
-  enddo
-
-end subroutine
-
-!-- ------------------------------------------------------------------
-
-end program

GrafAnim/trigofest.f90

@@ -83,8 +83,8 @@ subroutine plot_a_dot(pic, ix, iy, val)
 end subroutine
 
 !-------------------------------------------------------------
-!            La premiere spirale
+!            La premirere spirale
-!            -------------------
+!            --------------------
 
 subroutine spirale(pic, inirad, param)
   implicit none