diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
| commit | fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch) | |
| tree | bdda434976bc09c864f2e4fa6f16ba1952b1e555 /sys/gio/gpl.com | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'sys/gio/gpl.com')
| -rw-r--r-- | sys/gio/gpl.com | 20 |
1 files changed, 20 insertions, 0 deletions
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 |