blob: 26b427271af0a391a697183608d21fcbb0e85af6 (
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
30
31
32
33
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <imhdr.h>
include "mio.h"
# MIO_SETRANGE -- Set the region of the image to be accessed, and rewind the
# i/o pointer to the beginning of the specified region.
procedure mio_setrange (mp, vs, ve, ndim)
pointer mp #I MIO descriptor
long vs[IM_MAXDIM] #I vector coords of start of region
long ve[IM_MAXDIM] #I vector coords of end of region
int ndim #I dimensionality of region
int i
int btoi()
begin
do i = 1, IM_MAXDIM
if (i <= ndim) {
M_VS(mp,i) = min (vs[i], ve[i])
M_VN(mp,i) = abs (ve[i] - vs[i]) + 1
} else {
M_VS(mp,i) = 1
M_VN(mp,i) = 1
}
M_LINEIO(mp) = btoi (vs[1] == 1 && ve[1] == IM_LEN(M_IM(mp),1))
M_REGCOORDS(mp) = YES
M_ACTIVE(mp) = NO
M_NDIM(mp) = ndim
end
|
