# MASK -- Create a mask image from a FOCAS catalog.

procedure t_mask ()

pointer	catalog			# Catalog
pointer	image			# Image
real	objval			# Object value
real	skyval			# Sky value
real	grow			# Grow factor
pointer	filter			# Filter options

pointer	sp
real	clgetr()
int	stflt()

begin
	call smark (sp)
	call salloc (catalog, SZ_FNAME, TY_CHAR)
	call salloc (image, SZ_FNAME, TY_CHAR)
	call salloc (filter, SZ_LINE, TY_CHAR)

	call clgstr ("catalog", Memc[catalog], SZ_LINE)
	call clgstr ("image", Memc[image], SZ_LINE)
	objval = clgetr ("objval")
	skyval = clgetr ("skyval")
	grow = clgetr ("grow")
	call clgstr ("filter", Memc[filter], SZ_LINE)

	call strpak (Memc[catalog], Memc[catalog], SZ_FNAME)
	call strpak (Memc[image], Memc[image], SZ_FNAME)
	call strpak (Memc[filter], Memc[filter], SZ_LINE)

	if (stflt (Memc[filter]) == 0)
	    call mask (Memc[catalog], Memc[image], objval, skyval, grow)

	call sfree (sp)
end