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