include	<mach.h>

# DETECT -- FOCAS detection

procedure t_detect ()

pointer	catalog			# Catalog
int	first			# First line (1 indexed)
int	last			# Last line (1 indexed)
real	minsky			# Minimum sky
real	maxsky			# Maximum sky
pointer	skyimage		# Sky image

pointer	sp
int	clgeti(), nowhite(), imaccess()
real	clgetr()

begin
	call smark (sp)
	call salloc (catalog, SZ_FNAME, TY_CHAR)
	call salloc (skyimage, SZ_FNAME, TY_CHAR)

	call clgstr ("catalog", Memc[catalog], SZ_FNAME)
	call strpak (Memc[catalog], Memc[catalog], SZ_FNAME)
	first = clgeti ("first")
	last = clgeti ("last")
	minsky = clgetr ("minsky")
	maxsky = clgetr ("maxsky")
	call clgstr ("skyimage", Memc[skyimage], SZ_FNAME)
	if (nowhite (Memc[skyimage], Memc[skyimage], SZ_FNAME) > 0) {
	    if (imaccess (Memc[skyimage], 0) == YES)
		call imdelete (Memc[skyimage])
	}
	call strpak (Memc[skyimage], Memc[skyimage], SZ_FNAME)

	if (IS_INDEFI(first))
	    first = 0
	else
	    first = first - 1
	if (IS_INDEFI(last))
	    last = 0
	else
	    last = last - 1
	if (IS_INDEF(minsky))
	    minsky = -MAX_REAL
	if (IS_INDEF(maxsky))
	    maxsky = MAX_REAL

	call dodetect (Memc[catalog], first, last, minsky, maxsky,
	    Memc[skyimage])
end