#
@ i = 1001
@ a = $i - 1000
setenv fr `echo $a | awk '{printf "%5.2f\n", $1/100.0}'`
echo turn y, 0.0625
echo set transparency = $fr
#echo ray 
echo png f$i.png
#
@ i = 1002
@ a = $i - 1000
setenv fr `echo $a | awk '{printf "%5.2f\n", $1/100.0}'`
echo turn y, 0.125
echo set transparency = $fr
#echo ray 
echo png f$i.png
#
@ i = 1003
while ($i < 1099)
@ a = $i - 1000
setenv fr `echo $a | awk '{printf "%5.2f\n", $1/100.0}'`
echo turn y, 0.25
echo set transparency = $fr
#echo ray 
echo png f$i.png
@ i++
end
#
@ i = 1099
@ a = $i - 1000
setenv fr `echo $a | awk '{printf "%5.2f\n", $1/100.0}'`
echo set transparency = $fr
echo turn y, 0.125
#echo ray 
echo png f$i.png
#
@ i = 1100
@ a = $i - 1000
setenv fr `echo $a | awk '{printf "%5.2f\n", $1/100.0}'`
echo turn y, 0.0625
echo set transparency = $fr
#echo ray 
echo png f$i.png
#