From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 sys/gio/gks/gsasf.x | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 sys/gio/gks/gsasf.x

(limited to 'sys/gio/gks/gsasf.x')

diff --git a/sys/gio/gks/gsasf.x b/sys/gio/gks/gsasf.x
new file mode 100644
index 00000000..be321060
--- /dev/null
+++ b/sys/gio/gks/gsasf.x
@@ -0,0 +1,30 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include "gks.h"
+
+# GSASF -- Set aspect source flags.  Aspect source flags allow the following 
+# elements to be set to either GBUNDL or GINDIV:
+#	 1	linetype ASF
+#	 2	linewidth scale factor ASF
+#	 3	polyline colour index ASF
+#	 4	marker type ASF
+#	 5	marker size scale factor ASF
+#	 6	polymarker colout index ASF
+#	 7	text font and precision factor ASF
+#	 8	character expansion factor ASF
+#	 9	character spacing ASF
+#	 10	text colour index ASF
+#	 11	fill area interior style ASF
+#	 12	fill area style index ASF
+#	 13	fill area colout index ASF
+
+procedure gsasf (lasf)
+
+int	lasf[13]	# List of aspect source flags
+int	i
+include	"gks.com"
+
+begin
+	do i = 1, NASF
+	    gk_asf[i] = lasf[i]
+end
-- 
cgit