Initial commit

1 files changed, 38 insertions, 0 deletions

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