1 #!/bin/csh

     2 

     3 set tempfile=/usr/tmp/pict.$$

     4 set destdir=/usr2/greg/ras/anim/model2

     5 set nframes=$1

     6 mkdir $destdir

     7 set i=0

     8 while ($i < $nframes)

     9 	set view=(`ev $i/$nframes\*6.28 | rcalc -f anim2.cal`)

    10 	rpict -vp $view[1-3] -vd $view[4-6] -vu 0 1 0 -vh 38 -vv 30 \

    11 		-x 512 -y 400 -t 3600 -e anim2.err model.oct \

    12 	| pfilt -1 -x 512 -y 400 -e -2 > $tempfile

    13 	ra_pr $tempfile $destdir/$i

    14 	rm $tempfile

    15 	@ i++

    16 end