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

---
 pkg/images/tv/iis/iism70/iismatch.x | 76 +++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100644 pkg/images/tv/iis/iism70/iismatch.x

(limited to 'pkg/images/tv/iis/iism70/iismatch.x')

diff --git a/pkg/images/tv/iis/iism70/iismatch.x b/pkg/images/tv/iis/iism70/iismatch.x
new file mode 100644
index 00000000..a2435fdc
--- /dev/null
+++ b/pkg/images/tv/iis/iism70/iismatch.x
@@ -0,0 +1,76 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include "iis.h"
+include "../lib/ids.h"
+
+# IISMATCH -- copy (match) a set of look up tables to a given table;
+# frames/color specify the given table, data gives frame/color for
+# set to be changed.
+
+procedure iismatch (code, frames, color, n, data)
+
+short	code			# which table type
+short	frames[ARB]		# reference frame
+short	color[ARB]		# reference color
+short	n			# count of data items
+short	data[ARB]		# frame/color to be changed.
+
+pointer	sp, ldata
+int	len, x,y,z,t
+int	unit, i
+int	mapcolor(), ids_dcopy()
+short	temp[IDS_MAXIMPL+1]
+short	iispack()
+
+include	"../lib/ids.com"
+
+begin
+	switch (code) {
+	    case IDS_FRAME_LUT:
+		len = LEN_LUT
+		x = ADVXONTC
+		y = 0
+		z = mapcolor (color)
+		t = iispack (frames)
+		if (t == GRCHAN)
+		    return
+		unit = LUT
+
+	    case IDS_OUTPUT_LUT:
+		len = LEN_OFM
+		x = ADVXONTC
+		y = ADVYONXOV
+		z = mapcolor (color)
+		t = 0
+
+	    default:
+		return
+	}
+
+	call smark (sp)
+	call salloc (ldata, len, TY_SHORT)
+
+	call iishdr (IREAD+VRETRACE, len, unit, x, y, z, t)
+	call iisio (Mems[ldata], len * SZB_CHAR)
+
+	i = ids_dcopy (data, temp)
+	switch (code) {
+	    case IDS_FRAME_LUT:
+		call ids_expand (temp, i_maxframes, true)
+		t = iispack (temp)
+		i = ids_dcopy (data[i+1], temp)
+		call ids_expand (temp, 3, false)	# 3...max colors
+		z = mapcolor (temp)
+
+	    case IDS_OUTPUT_LUT:
+		i = ids_dcopy (data[i+1], temp)
+		call ids_expand (temp, 3, false)
+		z = mapcolor (temp)
+	}
+
+	call iishdr (IWRITE+VRETRACE, len, unit, x, y, z, t)
+	call iisio (Mems[ldata], len * SZB_CHAR)
+
+	call sfree (sp)
+end
-- 
cgit