1 #!/bin/csh

     2 

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

     4 set destfile=~/ray/spool/anim/model

     5 set sunrise=6

     6 set sunset=18

     7 set nframes=12

     8 set i=0

     9 while ($i < $nframes)

    10 	oconv -i model.dark.oct "\!gensky 6 17 `ev $sunrise+\($sunset-$sunrise\)\*$i/$nframes` | xform -rz -90 -rx -90" skywindow \

    11 	| rpict -vp 8 36 -27 -vd -.56 -.23 .79 -vu 0 1 0 -vh 39.9 -vv 27.5 \

    12 		-x 300 -y 203 -ps 1 -ab 1 -ad 32 -ar 64 -ds .5 \

    13 		-t 3600 -e model.day.err \

    14 	| pfilt -1 -x 300 -y 203 -e 1.5 > $tempfile

    15 	ra_pr $tempfile $destfile.$i

    16 	rm $tempfile

    17 	@ i++

    18 end