Initial commit

5 files changed, 230 insertions, 0 deletions

diff --git a/pkg/utilities/nttools/threed/tiimage/generic/mkpkg b/pkg/utilities/nttools/threed/tiimage/generic/mkpkg
new file mode 100644
index 00000000..51bd24bb
--- /dev/null
+++ b/pkg/utilities/nttools/threed/tiimage/generic/mkpkg
@@ -0,0 +1,14 @@
+# Update the generic routines.
+
+default:
+	$checkout libpkg.a ../../
+	$update   libpkg.a
+	$checkin  libpkg.a ../../
+$exit
+
+libpkg.a:
+	tmcp1s.x
+	tmcp1i.x
+	tmcp1r.x
+	tmcp1d.x
+	;
diff --git a/pkg/utilities/nttools/threed/tiimage/generic/tmcp1d.x b/pkg/utilities/nttools/threed/tiimage/generic/tmcp1d.x
new file mode 100644
index 00000000..9670c6a6
--- /dev/null
+++ b/pkg/utilities/nttools/threed/tiimage/generic/tmcp1d.x
@@ -0,0 +1,54 @@
+
+#  TM_CP1  --  Fill pixel buffer and copy into table.
+#
+#
+#
+#
+#  Revision history:
+#  ----------------
+#  30-Jan-97  -  Task created (I.Busko)
+
+
+procedure tm_cp1d (im, tp, cp, row, lena, leni)
+
+pointer	im		# imio pointer
+pointer	tp		# table pointer
+pointer	cp		# column pointer
+int	row		# row where to begin insertion
+int	lena		# array length
+int	leni		# image length
+#--
+pointer	buf
+double	undefd
+real	undefr
+int	undefi, i, len
+short	undefs
+
+pointer imgl1d()
+
+begin
+	# Read pixels into buffer.
+	buf = imgl1d (im)
+
+	# Choose the minimum between image and table array 
+	# lengths as the array size to be written to table.
+	len = min (lena, leni)
+
+	# Write buffer into array cell element.
+	call tbaptd (tp, cp, row, Memd[buf], 1, len)
+
+	# If image is smaller than array, set
+	# remaining elements to INDEF.
+	if (leni < lena) {
+	    undefd = INDEFD
+	    undefr = INDEFR
+	    undefi = INDEFI
+	    undefs = INDEFS
+	    do i = len+1, lena
+	        call tbaptd (tp, cp, row, undefd, i, 1)
+	}
+end
+
+
+
+
diff --git a/pkg/utilities/nttools/threed/tiimage/generic/tmcp1i.x b/pkg/utilities/nttools/threed/tiimage/generic/tmcp1i.x
new file mode 100644
index 00000000..7e271952
--- /dev/null
+++ b/pkg/utilities/nttools/threed/tiimage/generic/tmcp1i.x
@@ -0,0 +1,54 @@
+
+#  TM_CP1  --  Fill pixel buffer and copy into table.
+#
+#
+#
+#
+#  Revision history:
+#  ----------------
+#  30-Jan-97  -  Task created (I.Busko)
+
+
+procedure tm_cp1i (im, tp, cp, row, lena, leni)
+
+pointer	im		# imio pointer
+pointer	tp		# table pointer
+pointer	cp		# column pointer
+int	row		# row where to begin insertion
+int	lena		# array length
+int	leni		# image length
+#--
+pointer	buf
+double	undefd
+real	undefr
+int	undefi, i, len
+short	undefs
+
+pointer imgl1i()
+
+begin
+	# Read pixels into buffer.
+	buf = imgl1i (im)
+
+	# Choose the minimum between image and table array 
+	# lengths as the array size to be written to table.
+	len = min (lena, leni)
+
+	# Write buffer into array cell element.
+	call tbapti (tp, cp, row, Memi[buf], 1, len)
+
+	# If image is smaller than array, set
+	# remaining elements to INDEF.
+	if (leni < lena) {
+	    undefd = INDEFD
+	    undefr = INDEFR
+	    undefi = INDEFI
+	    undefs = INDEFS
+	    do i = len+1, lena
+	        call tbapti (tp, cp, row, undefi, i, 1)
+	}
+end
+
+
+
+
diff --git a/pkg/utilities/nttools/threed/tiimage/generic/tmcp1r.x b/pkg/utilities/nttools/threed/tiimage/generic/tmcp1r.x
new file mode 100644
index 00000000..00594521
--- /dev/null
+++ b/pkg/utilities/nttools/threed/tiimage/generic/tmcp1r.x
@@ -0,0 +1,54 @@
+
+#  TM_CP1  --  Fill pixel buffer and copy into table.
+#
+#
+#
+#
+#  Revision history:
+#  ----------------
+#  30-Jan-97  -  Task created (I.Busko)
+
+
+procedure tm_cp1r (im, tp, cp, row, lena, leni)
+
+pointer	im		# imio pointer
+pointer	tp		# table pointer
+pointer	cp		# column pointer
+int	row		# row where to begin insertion
+int	lena		# array length
+int	leni		# image length
+#--
+pointer	buf
+double	undefd
+real	undefr
+int	undefi, i, len
+short	undefs
+
+pointer imgl1r()
+
+begin
+	# Read pixels into buffer.
+	buf = imgl1r (im)
+
+	# Choose the minimum between image and table array 
+	# lengths as the array size to be written to table.
+	len = min (lena, leni)
+
+	# Write buffer into array cell element.
+	call tbaptr (tp, cp, row, Memr[buf], 1, len)
+
+	# If image is smaller than array, set
+	# remaining elements to INDEF.
+	if (leni < lena) {
+	    undefd = INDEFD
+	    undefr = INDEFR
+	    undefi = INDEFI
+	    undefs = INDEFS
+	    do i = len+1, lena
+	        call tbaptr (tp, cp, row, undefr, i, 1)
+	}
+end
+
+
+
+
diff --git a/pkg/utilities/nttools/threed/tiimage/generic/tmcp1s.x b/pkg/utilities/nttools/threed/tiimage/generic/tmcp1s.x
new file mode 100644
index 00000000..3d308f13
--- /dev/null
+++ b/pkg/utilities/nttools/threed/tiimage/generic/tmcp1s.x
@@ -0,0 +1,54 @@
+
+#  TM_CP1  --  Fill pixel buffer and copy into table.
+#
+#
+#
+#
+#  Revision history:
+#  ----------------
+#  30-Jan-97  -  Task created (I.Busko)
+
+
+procedure tm_cp1s (im, tp, cp, row, lena, leni)
+
+pointer	im		# imio pointer
+pointer	tp		# table pointer
+pointer	cp		# column pointer
+int	row		# row where to begin insertion
+int	lena		# array length
+int	leni		# image length
+#--
+pointer	buf
+double	undefd
+real	undefr
+int	undefi, i, len
+short	undefs
+
+pointer imgl1s()
+
+begin
+	# Read pixels into buffer.
+	buf = imgl1s (im)
+
+	# Choose the minimum between image and table array 
+	# lengths as the array size to be written to table.
+	len = min (lena, leni)
+
+	# Write buffer into array cell element.
+	call tbapts (tp, cp, row, Mems[buf], 1, len)
+
+	# If image is smaller than array, set
+	# remaining elements to INDEF.
+	if (leni < lena) {
+	    undefd = INDEFD
+	    undefr = INDEFR
+	    undefi = INDEFI
+	    undefs = INDEFS
+	    do i = len+1, lena
+	        call tbapts (tp, cp, row, undefs, i, 1)
+	}
+end
+
+
+
+