Repatch (from linux) of OSX IRAF

1 files changed, 54 insertions, 0 deletions

diff --git a/pkg/utilities/nttools/threed/tiimage/tmcp1.gx b/pkg/utilities/nttools/threed/tiimage/tmcp1.gx
new file mode 100644
index 00000000..b90ca406
--- /dev/null
+++ b/pkg/utilities/nttools/threed/tiimage/tmcp1.gx
@@ -0,0 +1,54 @@
+
+#  TM_CP1  --  Fill pixel buffer and copy into table.
+#
+#
+#
+#
+#  Revision history:
+#  ----------------
+#  30-Jan-97  -  Task created (I.Busko)
+
+
+procedure tm_cp1$t (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 imgl1$t()
+
+begin
+	# Read pixels into buffer.
+	buf = imgl1$t (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 tbapt$t (tp, cp, row, Mem$t[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 tbapt$t (tp, cp, row, undef$t, i, 1)
+	}
+end
+
+
+
+