From 1d9273a6971356f89c3a16aa1c360d9475eca03a Mon Sep 17 00:00:00 2001
From: tth <tth@konrad.lan>
Date: Wed, 16 Feb 2022 12:15:30 +0100
Subject: [PATCH] pickover in gif89a

---
 Fraktalism/Makefile    |  5 +++++
 Fraktalism/plotpick.sh | 46 ++++++++++++++++++++++++++++++++++++++----
 2 files changed, 47 insertions(+), 4 deletions(-)

diff --git a/Fraktalism/Makefile b/Fraktalism/Makefile
index a5bd74b..e5042eb 100644
--- a/Fraktalism/Makefile
+++ b/Fraktalism/Makefile
@@ -20,3 +20,8 @@ pickover:	pickover.f90 Makefile $(OBJS)
 	gfortran $(GFOPT) $<  $(OBJS)    -o $@
 
 # ---------------------------------------------
+
+foo.pgm:	pickover Makefile
+	./pickover $@ > /dev/null
+
+# ---------------------------------------------
diff --git a/Fraktalism/plotpick.sh b/Fraktalism/plotpick.sh
index 062cdb5..7b9c436 100755
--- a/Fraktalism/plotpick.sh
+++ b/Fraktalism/plotpick.sh
@@ -18,15 +18,53 @@ if [ $? -ne 0 ] ; then
 fi
 
 
+# ----------------------------------------------------
+function plot_this_pic()
+{
+local imgname="$1"
+local angle="$2"
+
+printf "== %s == %3d ==\n" $imgname $angle
+
 gnuplot << __EOC__
-set term png    size 1024,768
-set output      "${IMAGE}"
+	set term png    size 800,480
+	set output      "${imgname}"
 
-set title "3D Pickover"
+	set title "3D Pickover"
+	unset grid
+	unset tics
 
-splot "$ASCFILE" with dots
+	set view 70, $angle, 1.20
+	set xrange [ -2.10 : 2.10 ]
+	set yrange [ -2.10 : 2.10 ]
+	set zrange [ -1.00 : 1.00 ]
 
+	splot "${ASCFILE}" notitle with dots lt rgb "blue"
 __EOC__
+}
+
+# ----------------------------------------------------
+ddir="frames"
+
+rm $ddir/p???.png
+
+idx=0
+for angle in $(seq 0 6 360)
+do
+
+	fname=$(printf "%s/p%03d.png" $ddir $idx)
+
+	plot_this_pic $fname $angle
+
+	idx=$(( idx + 1 ))
+
+done
+
+convert -delay 10 $ddir/p???.png pickover.gif
+
+echo '[done]'
+
+# ------------------------------------------ EOJ -----