#!/bin/csh
# watches the search
# May07 must be started in the correct directory
# Jul28 any extra argument show galbox instead of whole image
# 12/19/93 -magdiff3 printed
# 8/1/94 - wait for diff.cand to appear

set TMP=tmp1

set old=0
set new=0
set fname=diff.cand
if ($#argv > 0) then
	set zoom=$argv[1]
	echo $zoom
	if (`val "$zoom > 3.0" `) then
		stderr zoom to big
		exit 1
	endif
endif
	

echo $#argv

echo "Object     magdiff nmatch  dr   dc  rejmag   ha   dec"
while (1)
	if (-e $fname == 0 ) then
		sleep 10
		continue
	endif
	while ($old == $new)
		set new=`picksym file=$fname object` 
		sleep 5 
	end
    set ps=`ps -e | grep tv | grep -v grep | awk '{print $1}'`
	if ($#ps) kill -9 $ps
	set old=$new
	pformat "object,%-8s" "magdiff3,%8.2f" "nmatch,%3d" "dr,%6.1f,0" \
	 "dc,%6.1f,0" "rejmag,%5.1f,0"  "ha,%8.8s" "dec,%8.8s" $fname 
	if ($#argv < 1) then
		tv target xo=0 zoom=.5 > /dev/null
		sleep 2
		tv ref xo=300 zoom=.5 > /dev/null
		sleep 2
		tv diff xo=600 zoom=.5 > /dev/null
	else
		let box10=`picksym file=diff.cand newbox`
		tv target xo=0 box=10 zoom=$zoom> /dev/null
		sleep 2
		tv ref xo=300 box=10 zoom=$zoom> /dev/null
		sleep 2
		tv diff xo=600  box=10 zoom=$zoom> /dev/null
	endif
	subheader $fname
	sleep 6 
	marks $fname
end