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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <knet.h>
include <mach.h>
include "iis.h"
# IMD_SETWCS -- Pass the WCS for the indicated reference frame to a display
# server. The frame buffer configuration is also passed.
procedure imd_setwcs (chan, wcstext)
int chan #I display channel code (frame)
char wcstext[ARB] #I wcs text
pointer sp, pkwcs
int status, count
int strlen(), iisflu()
include "iis.com"
begin
count = strlen (wcstext) + 1
call smark (sp)
call salloc (pkwcs, count, TY_CHAR)
call strpak (wcstext, Memc[pkwcs], count)
call iishdr (IWRITE+PACKED, count, WCS, iis_version, 0, iisflu(chan),
max(0,iis_config-1))
call iisio (Memc[pkwcs], count, status)
call sfree (sp)
end
|
