Repatch (from linux) of OSX IRAF

1 files changed, 34 insertions, 0 deletions

diff --git a/pkg/images/tv/iis/iism70/zsetup.x b/pkg/images/tv/iis/iism70/zsetup.x
new file mode 100644
index 00000000..0803ac3a
--- /dev/null
+++ b/pkg/images/tv/iis/iism70/zsetup.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include	<fset.h>
+include "../lib/ids.h"
+include "iis.h"
+
+# ZSETUP -- Setup up common block information for read/write
+
+procedure zsetup (frame, bitpl, flag)
+
+short	frame[ARB]			# frame information
+short	bitpl[ARB]			# bitplane information
+bool	flag				# true if image, false if graphics
+
+short	iispack()
+int	mapcolor()
+
+include "iis.com"
+include "../lib/ids.com"
+
+begin
+	# If don't flush, then last line of "previous" frame
+	# may get steered to wrong image plane
+	call flush (i_out)
+	call fseti (i_out, F_CANCEL, OK)
+	if ( flag ) {
+	    iframe = iispack ( frame )
+	    iplane = iispack ( bitpl )
+	} else {
+	    iframe = GRCHAN
+	    iplane = mapcolor( bitpl )
+	}
+end