blob: 0803ac3a40c8d854d58a66b7b85b4e690d549595 (
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
24
25
26
27
28
29
30
31
32
33
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
|
