From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/gio/gpl.com | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 sys/gio/gpl.com (limited to 'sys/gio/gpl.com') diff --git a/sys/gio/gpl.com b/sys/gio/gpl.com new file mode 100644 index 00000000..76d0d5c7 --- /dev/null +++ b/sys/gio/gpl.com @@ -0,0 +1,20 @@ +# GPL.COM -- Polyline generator common. + +bool last_point_inbounds # last point was inbounds +int xtran, ytran # scaling function for X, Y axes (linear,log,,) +int op # index of next cell in polyline array +int pl_type # type of instruction (polyline, polymarker,...) +int pl_pointmode # plotting points (polymarker), not vectors +int wcs # WCS for which cache is valid +long mxorigin, myorigin # origin in world coordinates for transform +real wxorigin, wyorigin # origin in world coordinates for transform +real xscale, yscale # scale factor, world to GKI, for transform +real cx, cy # current pen position, world coords +long mx1, mx2, my1, my2 # clipping viewport, GKI coords +long xs[4], ys[4] # last point plotted (for clipping code) +pointer gp_out # device which owns current polyline +short pl[LEN_PLBUF] # output polyline buffer + +common /gplcom/ last_point_inbounds, xtran, ytran, op, pl_type, pl_pointmode, + mxorigin, myorigin, wxorigin, wyorigin, xscale, yscale, cx, cy, + mx1, mx2, my1, my2, xs, ys, gp_out, wcs, pl -- cgit