Initial commit

1 files changed, 32 insertions, 0 deletions

diff --git a/sys/gio/calcomp/ccplwidth.x b/sys/gio/calcomp/ccplwidth.x
new file mode 100644
index 00000000..bda9c33b
--- /dev/null
+++ b/sys/gio/calcomp/ccplwidth.x
@@ -0,0 +1,32 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"ccp.h"
+
+# Calcomp pen widths
+define	SINGLE	1	# ***** site dependence!!	[MACHDEP]
+define	DOUBLE	2	# 
+
+# CCP_LWIDTH  set pen width; see ccp_color, which also sets pens.
+# We should only be called if task param "lwtype" was explicitly set to
+# "p" for pen method; normally bold lines are handled by ntracing.
+
+procedure ccp_lwidth (index)
+
+int	index		# index for width switch statement
+include	"ccp.com"
+
+begin
+	if (g_lwover)	# CL param lwover, line width override is on; noop
+	    return
+
+	# ***** site dependence; add other pen numbers here; if pen numbers
+	# for multiple widths are monotonic, make single call to newpen(index).
+
+	switch (index) {
+
+	case DOUBLE:
+	    call newpen (DOUBLE)
+	default:
+	    call newpen (SINGLE)
+	}
+end