pickover in gif89a

Fraktalism/Makefile

@@ -20,3 +20,8 @@ pickover:	pickover.f90 Makefile $(OBJS)
 	gfortran $(GFOPT) $<  $(OBJS)    -o $@
 
 # ---------------------------------------------
+
+foo.pgm:	pickover Makefile
+	./pickover $@ > /dev/null
+
+# ---------------------------------------------

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 term png    size 800,480
-set output      "${IMAGE}"
+	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 -----