# SKY -- Evaluate sky around objects.

procedure t_sky ()

pointer	catalog			# Catalog
int	skytype			# Skytype (0, 1, 2, 3, 4)
real	sbr			# Sky value for types 2 and 3
int	buffer			# Sky region buffer
int	width			# Sky region width
pointer	filter			# Filter options

pointer	sp
int	clgeti(), stflt()
real	clgetr()


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

	call clgstr ("catalog", Memc[catalog], SZ_LINE)
	skytype = clgeti ("skytype")
	if ((skytype == 2) || (skytype == 3))
	    sbr = clgetr ("skyvalue")
	buffer = clgeti ("buffer")
	width = clgeti ("width")
	call clgstr ("filter", Memc[filter], SZ_LINE)

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

	if (stflt (Memc[filter]) == 0)
	    call sky (Memc[catalog], skytype, sbr, buffer, width)

	call sfree (sp)
end