diff options
| author | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
|---|---|---|
| committer | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
| commit | 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 (patch) | |
| tree | 4464880c571602d54f6ae114729bf62a89518057 /sys/gio/gpl.com | |
| download | iraf-osx-40e5a5811c6ffce9b0974e93cdd927cbcf60c157.tar.gz | |
Repatch (from linux) of OSX IRAF
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 |