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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <pmset.h>
include <plio.h>
# PM_GLP -- Get a line segment as a pixel array, applying the given ROP to
# combine the pixels with those of the output array.
procedure pm_glpl (pl, v, px_dst, px_depth, npix, rop)
pointer pl #I mask descriptor
long v[PL_MAXDIM] #I vector coords of line segment
long px_dst[ARB] #O output pixel array
int px_depth #I pixel depth, bits
int npix #I number of pixels desired
int rop #I rasterop
int temp, np, step, xstep
pointer sp, px_src, px_out, im
include "../pmio.com"
begin
im = PM_REFIM(pl)
if (PM_MAPXY(pl) == NO) {
call pl_glpl (pl, v, px_dst, px_depth, npix, rop)
return
}
call smark (sp)
# Determine physical coords of line segment.
call amovl (v, v3, PM_MAXDIM)
call imaplv (im, v3, v1, PM_MAXDIM)
v3[1] = v3[1] + npix - 1
call imaplv (im, v3, v2, PM_MAXDIM)
# Get line scaling parameters.
if (npix <= 1)
xstep = 1
else
xstep = (v2[1] - v1[1]) / (npix - 1)
step = xstep
if (xstep < 0) {
temp = v1[1]; v1[1] = v2[1]; v2[1] = temp
step = -step
}
# Extract the pixels.
np = (npix - 1) * step + 1
call salloc (px_src, np, TY_LONG)
call pl_glpl (pl, v1, Meml[px_src], 0, np, PIX_SRC)
# Subsample and flip if necessary.
if (step > 1)
call imsamp (Meml[px_src], Meml[px_src], npix, SZ_LONG, step)
if (xstep < 0)
call imaflp (Meml[px_src], npix, SZ_LONG)
if (!R_NEED_DST(rop))
call amovl (Meml[px_src], px_dst, npix)
else {
call salloc (px_out, npix, TY_LONG)
call pl_pixropl (Meml[px_src], 1, PL_MAXVAL(pl), px_dst, 1,
MV(px_depth), npix, rop)
call amovl (Meml[px_out], px_dst, npix)
}
call sfree (sp)
end
|
