From aace571169b857e82f943f3a36c51cad803e03d2 Mon Sep 17 00:00:00 2001
From: tTh <tth@konrad.lan>
Date: Sun, 7 May 2023 10:35:48 +0200
Subject: [PATCH] minor tweaks

---
 Fraktalism/julias.f90    |  4 ++--
 Fraktalism/mkjulia.f90   |  2 +-
 Fraktalism/mkjuliagif.sh |  2 ++
 Fraktalism/tagpicz.sh    | 12 ++++++------
 4 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/Fraktalism/julias.f90 b/Fraktalism/julias.f90
index bee2731..b32c407 100644
--- a/Fraktalism/julias.f90
+++ b/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*29, 255)
-            pic(ix, iy)%b = mod(iter*21, 255)
+            pic(ix, iy)%g = mod(iter*59, 255)
+            pic(ix, iy)%b = mod(iter*41, 255)
           endif
       enddo      ! iy
     enddo        ! ix
diff --git a/Fraktalism/mkjulia.f90 b/Fraktalism/mkjulia.f90
index 78478e2..bdd694c 100644
--- a/Fraktalism/mkjulia.f90
+++ b/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(640, 480))
+    allocate(picz(512, 342))
 
     call julia_colormapped(picz, cx, cy, 500)
     call rgbpix_spit_as_pnm_8(picz, trim(filename))
diff --git a/Fraktalism/mkjuliagif.sh b/Fraktalism/mkjuliagif.sh
index 3129125..4805e45 100755
--- a/Fraktalism/mkjuliagif.sh
+++ b/Fraktalism/mkjuliagif.sh
@@ -25,6 +25,8 @@ do
 
 	./mkjulia $img $cx $cy
 
+	sleep 145
+
 done
 
 ./tagpicz.sh $workdir
diff --git a/Fraktalism/tagpicz.sh b/Fraktalism/tagpicz.sh
index fb38644..6646e26 100755
--- a/Fraktalism/tagpicz.sh
+++ b/Fraktalism/tagpicz.sh
@@ -15,12 +15,12 @@ fi
 for img in $SDIR/*.pnm
 do
 
-	mogrify					\
-		-gravity South-East		\
-		-font Courier			\
-		-pointsize 12			\
-		-fill Yellow			\
-		-annotate +10+10 "tTh 2023"	\
+	mogrify						\
+		-gravity South-East			\
+		-font Courier				\
+		-pointsize 12				\
+		-fill firebrick				\
+		-annotate +10+10 "Konrad+tTh 2023"	\
 		$img
 	echo "tagging " $img