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
34
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "qpio.h"
# QPIO_SETRANGE -- Set the range in X and Y within which events will be
# extracted by qpio_getevents. This defines the "bounding box" for i/o
# and "rewinds" the getevent i/o pointer.
procedure qpio_setrange (io, vs, ve, ndim)
pointer io #I QPIO descriptor
int vs[ARB] #I start vector (lower left corner)
int ve[ARB] #I end vector (upper right corner)
int ndim #I vector length (ndim=2 at present)
int i
int vlim[NDIM]
begin
vlim[1] = IO_NCOLS(io)
vlim[2] = IO_NLINES(io)
if (ndim <= 0) {
call amovi (IO_VSDEF(io,1), IO_VS(io,1), NDIM)
call amovi (IO_VEDEF(io,1), IO_VE(io,1), NDIM)
} else {
do i = 1, ndim {
IO_VS(io,i) = max(1, min(vlim[i], vs[i]))
IO_VE(io,i) = max(1, min(vlim[i], ve[i]))
}
}
IO_ACTIVE(io) = NO
end
|
