diff options
Diffstat (limited to 'sys/plio/tf/plglpi.x')
| -rw-r--r-- | sys/plio/tf/plglpi.x | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/sys/plio/tf/plglpi.x b/sys/plio/tf/plglpi.x new file mode 100644 index 00000000..3724ed6d --- /dev/null +++ b/sys/plio/tf/plglpi.x @@ -0,0 +1,38 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include <plio.h> + +# PL_GLP -- Get a line segment as a pixel array, applying the given ROP to +# combine the pixels with those of the output array. + +procedure pl_glpi (pl, v, px_dst, px_depth, npix, rop) + +pointer pl #I mask descriptor +long v[PL_MAXDIM] #I vector coords of line segment +int 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 np +pointer sp, px_out, ll_src +pointer pl_access() +int pl_l2pi() +errchk pl_access + +begin + ll_src = pl_access (pl,v) + if (!R_NEED_DST(rop)) { + np = pl_l2pi (Mems[ll_src], v[1], px_dst, npix) + return + } + + call smark (sp) + call salloc (px_out, npix, TY_INT) + + np = pl_l2pi (Mems[ll_src], v[1], Memi[px_out], npix) + call pl_pixropi (Memi[px_out], 1, PL_MAXVAL(pl), + px_dst, 1, MV(px_depth), npix, rop) + + call sfree (sp) +end |