1 files changed, 46 insertions, 0 deletions
diff --git a/sys/gio/gki/gkisetwcs.x b/sys/gio/gki/gkisetwcs.x
new file mode 100644
index 00000000..f8d0e896
--- /dev/null
+++ b/sys/gio/gki/gkisetwcs.x
@@ -0,0 +1,46 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<config.h>
+include	<gki.h>
+
+# GKI_SETWCS -- Copy the set of 16 WCS to the graphics controller in the CL
+# process.  The WCS are transmitted as a binary array of WCS structures.
+#
+# BOI GKI_SETWCS L N WCS
+#
+#        L(i)            4 + N
+#	 N(i)		 length of WCS field in words
+#        WCS             binary copy of the 16 WCS structures, transmitted
+#                            in a single call to WRITE
+
+procedure gki_setwcs (fd, wcs, len_wcs)
+
+int	fd			# output file
+int	wcs[ARB]		# array of WCS structures
+int	len_wcs			# number of ints (struct units) in array
+
+int	nshorts
+short	gki[GKI_SETWCS_LEN]
+data	gki[1] /BOI/, gki[2] /GKI_SETWCS/
+include	"gki.com"
+
+begin
+	if (IS_FILE(fd)) {
+	    nshorts = (len_wcs * SZ_INT) / SZ_SHORT
+	    gki[GKI_SETWCS_L] = GKI_SETWCS_LEN + nshorts
+	    gki[GKI_SETWCS_N] = nshorts
+
+	    if (fd >= STDGRAPH && fd <= STDPLOT) {
+		# Send a copy of the WCS information to the PSIO control
+		# stream if the graphics output is a standard graphics stream.
+
+		call write (PSIOCTRL, fd, SZ_INT32)
+		call write (PSIOCTRL, gki, GKI_SETWCS_LEN * SZ_SHORT)
+		call write (PSIOCTRL, wcs, nshorts * SZ_SHORT)
+		call flush (PSIOCTRL)
+	    }
+
+	    call write (gk_fd[fd], gki, GKI_SETWCS_LEN * SZ_SHORT)
+	    call write (gk_fd[fd], wcs, nshorts * SZ_SHORT)
+	}
+end