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
35
36
37
38
39
40
41
42
43
44
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <plio.h>
include <plset.h>
# PL_GLR -- Get a line segment as a range list, applying the given ROP to
# combine the pixels with those of the output list.
procedure pl_glrl (pl, v, rl_dst, rl_depth, npix, rop)
pointer pl #I mask descriptor
long v[PL_MAXDIM] #I vector coords of line segment
long rl_dst[ARB] #O output range list
int rl_depth #I range list depth, bits
int npix #I number of pixels desired
int rop #I rasterop
int mr, nr
pointer sp, rl_out, rl_src, ll_src
pointer pl_access()
int pl_l2rl()
errchk pl_access
begin
ll_src = pl_access (pl,v)
if (!R_NEED_DST(rop))
nr = pl_l2rl (Mems[ll_src], v[1], rl_dst, npix)
else {
call smark (sp)
mr = min (RL_MAXLEN(pl), npix * 3)
call salloc (rl_src, mr, TY_LONG)
call salloc (rl_out, mr, TY_LONG)
nr = pl_l2rl (Mems[ll_src], v[1], Meml[rl_src], npix)
call pl_rangeropl (Meml[rl_src], 1, PL_MAXVAL(pl),
rl_dst, 1, MV(rl_depth),
Meml[rl_out], npix, rop)
# Copy out the edited range list.
call amovl (Meml[rl_out], rl_dst, RLL_LEN(rl_out))
call sfree (sp)
}
end
|
