#! /bin/csh

set x=$1
while ($x <= $2)
	echo Plotting $x

	/usr/local/bin/scans/plotsynop rot=$x +z -n -m -P -G pfile=$x.p
	psplot $x.p > $x.pho.ps
	rm $x.p

	/usr/local/bin/scans/plotsynop rot=$x +z -S -P -G pfile=$x.p
	psplot $x.p > $x.los.ps
	rm $x.p

	/usr/local/bin/scans/plotsynop rot=$x +z -S -P -G pfile=$x.p \
		in=/data/source/cor/Bsource.325r scale=0.005
	psplot $x.p > $x.rad.ps
	rm $x.p

	@ x = $x + 1
end