Initial commit

1 files changed, 47 insertions, 0 deletions

diff --git a/sys/gio/gki/gkipca.x b/sys/gio/gki/gkipca.x
new file mode 100644
index 00000000..b2cf30ab
--- /dev/null
+++ b/sys/gio/gki/gkipca.x
@@ -0,0 +1,47 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<config.h>
+include	<gki.h>
+
+# GKI_PUTCELLARRAY -- Output a cell array (pixel array).
+#
+# BOI GKI_PUTCELLARRAY L LL UR NC NL P
+#    
+#        L(i)            9 + (NC * NL)
+#        LL(p)           coordinates of lower left corner of output area
+#        UR(p)           coordinates of upper right corner of output area
+#        NC(i)           number of columns in array
+#        NL(i)           number of lines in array
+#        P(NCNLi)        array of color indices (pixels) stored by row
+
+procedure gki_putcellarray (fd, m, nx, ny, x1,y1, x2,y2)
+
+int	fd			# output file
+int	nx, ny			# number of columns and lines in M
+short	m[nx,ny]		# pixel array
+int	x1, y1			# lower left corner of window to be written
+int	x2, y2			# upper right corner of window to be written
+
+int	epa
+short	gki[GKI_PUTCELLARRAY_LEN]
+data	gki[1] /BOI/, gki[2] /GKI_PUTCELLARRAY/
+include	"gki.com"
+
+begin
+	if (IS_INLINE(fd)) {
+	    epa = gk_dd[GKI_PUTCELLARRAY]
+	    if (epa != 0)
+		call zcall7 (epa, m, nx,ny, x1,y1, x2,y2)
+	} else {
+	    gki[GKI_PUTCELLARRAY_L]    = GKI_PUTCELLARRAY_LEN + (nx * ny)
+	    gki[GKI_PUTCELLARRAY_LL]   = x1
+	    gki[GKI_PUTCELLARRAY_LL+1] = y1
+	    gki[GKI_PUTCELLARRAY_UR]   = x2
+	    gki[GKI_PUTCELLARRAY_UR+1] = y2
+	    gki[GKI_PUTCELLARRAY_NC]   = nx
+	    gki[GKI_PUTCELLARRAY_NL]   = ny
+
+	    call write (gk_fd[fd], gki, GKI_PUTCELLARRAY_LEN)
+	    call write (gk_fd[fd], m, (nx * ny) * SZ_SHORT)
+	}
+end