blob: 1b9ed84697f5c6f3d4eb508b59e71d3d2c167d90 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <imhdr.h>
# IMGNL -- Get the next line from an image of any dimension or datatype.
# This is a sequential operator. The index vector V should be initialized
# to the first line to be read before the first call. Each call increments
# the leftmost subscript by one, until V equals IM_LEN, at which time EOF
# is returned.
int procedure imgnli (imdes, lineptr, v)
pointer imdes
pointer lineptr # on output, points to the pixels
long v[IM_MAXDIM] # loop counter
int npix, dtype, imgnln()
errchk imgnln
begin
npix = imgnln (imdes, lineptr, v, TY_INT)
if (npix != EOF) {
dtype = IM_PIXTYPE(imdes)
if (dtype != TY_INT)
call imupki (Memi[lineptr], Memi[lineptr], npix, dtype)
}
return (npix)
end
|
