--- ray/src/px/vlpic.csh	2003/02/22 02:07:28	3.1
+++ ray/src/px/vlpic.csh	2023/06/22 16:40:11	3.5
@@ -1,5 +1,5 @@
 #!/bin/csh -f
-# RCSid: $Id: vlpic.csh,v 3.1 2003/02/22 02:07:28 greg Exp $
+# RCSid: $Id: vlpic.csh,v 3.5 2023/06/22 16:40:11 greg Exp $
 #
 # Compute falsecolor image of visibility level
 # using the wacky formulas of Werner Adrian.
@@ -17,20 +17,21 @@ while ($#argv > 1)
 		set tim="$argv[1]"
 		breaksw
 	default:
-		echo bad option "'$argv[1]'" >/dev/tty
+		echo bad option "'$argv[1]'"
 		exit 1
 	endsw
 	shift argv
 end
-set tc=/usr/tmp/vl$$.cal
-set tp1=/usr/tmp/vl$$r1.pic
-set tp2=/usr/tmp/vl$$r2.pic
-set tp4=/usr/tmp/vl$$r4.pic
-set tp8=/usr/tmp/vl$$r8.pic
+set tc=`mktemp /tmp/vlcal.XXXXXXX`
+set tp1=`mktemp /tmp/vlpic.XXXXXX`
+set tp2=`mktemp /tmp/vlr2pic.XXXXXX`
+set tp4=`mktemp /tmp/vlr4pic.XXXXXX`
+set tp8=`mktemp /tmp/vlr8pic.XXXXXX`
 set tf=($tc $tp1 $tp2 $tp4 $tp8)
 set inpic=$argv[1]
 onintr quit
-set pr=(`getinfo -d < $inpic | sed 's/^-Y \([1-9][0-9]*\) +X \([1-9][0-9]*\)$/\2 \1/'`)
+set pr=`getinfo -d < $inpic`
+set pr=($pr[4] $pr[2])
 # ( vwright V < $inpic ; cat ) > $tc << _EOF_
 cat > $tc << _EOF_
 { A : 3438 * sqrt(Vhn/xmax*Vvn/ymax);	{ pixel size (in minutes) } }