1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
|
