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
35
36
37
38
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include "zdisplay.h"
include "iis.h"
# IISZM -- Zoom IIS window.
procedure iiszm (zfactor, x, y)
int zfactor, x, y
short zoom[LEN_ZOOM]
int status
begin
call iishdr (IWRITE+VRETRACE, LEN_ZOOM, ZOOM, ADVXONTC, 0, 0, 0)
zoom[1] = zfactor - 1
zoom[2] = x / MCXSCALE
zoom[3] = y / MCYSCALE
call iisio (zoom, LEN_ZOOM * SZB_CHAR, status)
end
# IISRM -- Roam IIS display.
procedure iisrm (zfactor)
int zfactor
int status, xcur, ycur
int and()
begin
status = 0
while (status != EOF && and (status, PUSH) == 0) {
call iisrcr (status, xcur, ycur)
call iiszm (zfactor, xcur, ycur)
}
end
|
