#! /bin/ksh
integer i=1
while test i -lt 800
do
  if test i -lt 10
  then
    print "set terminal pbm small color 
    set output 'slit.ppm'
    set noparametric
    set noxtics
    set noytics
    set zrange [0:1]
    set noztics
    set view 60,40
    splot 'slit00$i' w l">'slit.gnu'
    gnuplot slit.gnu
    ppmquant -map samp slit.ppm> slits.ppm
    ppmtogif -map samp slits.ppm>slit00$i.gif
    i=i+19
  fi
if test i -gt 9 -a i -lt 100
  then
    print "set terminal pbm small color 
    set output 'slit.ppm'
    set noparametric
    set noxtics
    set noytics
    set zrange [0:1]
    set noztics
    set view 60, 40+$i*0.3
    splot 'slit0$i' w l">'slit.gnu'
    gnuplot slit.gnu
    ppmquant -map samp slit.ppm> slits.ppm
    ppmtogif -map samp slits.ppm>slit0$i.gif
    i=i+20
  fi  
if test i -gt 99 -a i -lt 801
  then
    print "set terminal pbm small color 
    set output 'slit.ppm'
    set noparametric
    set noxtics
    set noytics
    set zrange [0:1]
    set noztics
    set view 60,64+$i*0.1
    splot 'slit$i' w l">'slit.gnu'
    gnuplot slit.gnu
    ppmquant -map samp slit.ppm> slits.ppm
    ppmtogif -map samp slits.ppm>slit$i.gif
    i=i+20
   fi 
done