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/calcomp/ccp.com | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 sys/gio/calcomp/ccp.com (limited to 'sys/gio/calcomp/ccp.com') diff --git a/sys/gio/calcomp/ccp.com b/sys/gio/calcomp/ccp.com new file mode 100644 index 00000000..d9e9ac69 --- /dev/null +++ b/sys/gio/calcomp/ccp.com @@ -0,0 +1,38 @@ +# CCP common. A common is necessary since there is no graphics descriptor +# in the argument list of the kernel procedures. The kernel data structures +# are designed along the lines of FIO: a small common is used to hold the time +# critical data elements, and an auxiliary dynamically allocated descriptor is +# used for everything else. + +pointer g_cc # kernel graphics descriptor +pointer g_tty # graphcap descriptor +int g_nframes # number of frames written +int g_maxframes # max frames per device metafile +int g_ndraw # no draw instr. in current frame +int g_in # input file +real g_xres # x resolution of plotter +real g_yres # y resolution of plotter +real g_max_x # maximum x drawn, in plotter units +real g_xndcto_p # x(pltr) = GKI*g_xndcto_p; final scale +real g_yndcto_p # y(pltr) = GKI*g_yndcto_p; final scale +real g_xtask_scale # x scale determined from task params +real g_ytask_scale # y scale determined from task params +real g_xdefault_scale # x scale from graphcap or compile-time +real g_ydefault_scale # y scale from graphcap or compile-time +int g_ltype # line type +real g_dashlen # length of dash in dashed line, p_units +real g_gaplen # width of gap in dash/dot line, p_units +real g_plwsep # polyline width separation for ntracing +int g_txquality # text quality parameter +bool g_ltover # user override of line-type generator +bool g_lwover # user override of line width simulation +bool g_lcover # user override of line color generator +char g_lwtype # line width mode parameter +char g_device[SZ_GDEVICE] # force output to named device + +common /ccpcom/ g_cc, g_tty, g_nframes, g_maxframes, g_ndraw, + g_in, g_xres, g_yres, g_max_x, g_xndcto_p, g_yndcto_p, + g_xtask_scale, g_ytask_scale, + g_xdefault_scale, g_ydefault_scale, + g_ltype, g_dashlen, g_gaplen, g_plwsep, g_txquality, + g_ltover, g_lwover, g_lcover, g_lwtype, g_device -- cgit