blob: 55041809d40c85b7a4f9264c63ca975c6c16a45d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "zdisplay.h"
# ZBLKIM -- Blink binary file display device (millisecond time resolution).
procedure zblkim (chan1, chan2, chan3, chan4, nframes, rate)
int chan1[ARB]
int chan2[ARB]
int chan3[ARB]
int chan4[ARB]
int nframes
real rate
int device
begin
device = chan1[1] / DEVCODE
switch (device) {
case IIS_CHAN:
call iisblk (chan1, chan2, chan3, chan4, nframes, rate)
}
end
|
