include <imhdr.h>

# fblot -- blot out a box
# This task operates on the output from fextract, modifying it in-place.
# The user specifies a star number, and the column of the image containing
# that star is set to zero.
#
# Phil Hodge, 12-Feb-1990  Task created.

procedure fblot()

pointer sp
pointer image		# scr for name of image to be modified in-place
pointer im		# pointer to imhdr struct
pointer v		# pointer to image section
int	star		# number of star to blot out
int	box1		# width of boxes making up image
int	j1, j2, k1, k2	# limits of image section to set to zero
pointer immap(), imps2r()
int	clgeti(), imgeti()

begin
	call smark (sp)
	call salloc (image, SZ_FNAME, TY_CHAR)
	call clgstr ("image", Memc[image], SZ_FNAME)
	star = clgeti ("star")

	im = immap (Memc[image], READ_WRITE, NULL)
	box1 = imgeti (im, "box1")

	j2 = star * box1
	j1 = j2 - box1 + 1
	k2 = IM_LEN(im,2)
	k1 = 1
	v = imps2r (im, j1, j2, k1, k2)
	call amovkr (0., Memr[v], box1 * IM_LEN(im,2))

	call imunmap (im)
	call sfree (sp)
end