aboutsummaryrefslogtreecommitdiff
path: root/noao/onedspec/ecidentify/ecgline.x
blob: 7d3f9e163e88177c36e05ed9c15e1f7fa524e1de (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
include	<smw.h>
include	"ecidentify.h"

# EC_GLINE -- Get line of data.

procedure ec_gline (ec, line)

pointer	ec		# EC pointer
int	line		# Image line

begin
	if (IS_INDEFI(line))
	    return

	EC_SH(ec) = SH(ec,line)
	EC_NPTS(ec) = SN(EC_SH(ec))
	EC_IMLINE(ec) = SY(EC_SH(ec))
	EC_PIXLINE(ec) = EC_PIXDATA(ec) + (line - 1) * EC_NCOLS(ec)
	EC_FITLINE(ec) = EC_FITDATA(ec) + (line - 1) * EC_NCOLS(ec)
end