Repatch (from linux) of OSX IRAF

1 files changed, 40 insertions, 0 deletions

diff --git a/pkg/images/tv/display/iisblk.x b/pkg/images/tv/display/iisblk.x
new file mode 100644
index 00000000..1ff81d49
--- /dev/null
+++ b/pkg/images/tv/display/iisblk.x
@@ -0,0 +1,40 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include "zdisplay.h"
+include "iis.h"
+
+# IISBLK -- Blink IIS display frames at millisecond time resolution.
+
+procedure iisblk (chan1, chan2, chan3, chan4, nframes, rate)
+
+int	chan1[ARB]
+int	chan2[ARB]
+int	chan3[ARB]
+int	chan4[ARB]
+int	nframes
+real	rate
+
+int	msec, status, xcur, ycur
+int	and()
+
+begin
+	status = 0
+	msec = int (rate * 1000.)
+
+	while (and (status, PUSH) == 0) {
+	    call zwmsec (msec)
+	    call iisrgb (chan1, chan1, chan1)
+	    call zwmsec (msec)
+	    call iisrgb (chan2, chan2, chan2)
+	    if (nframes >= 3) {
+	        call zwmsec (msec)
+	        call iisrgb (chan3, chan3, chan3)
+	    }
+	    if (nframes == 4) {
+	        call zwmsec (msec)
+	        call iisrgb (chan4, chan4, chan4)
+	    }
+	    call iisrcr (status, xcur, ycur)
+	}
+end