blob: ec1558ebf0cc5f4ee956ed5980c78589c0d1915e (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include "mwcs.h"
# MW_SSYSTEM -- Make the named world coordinate system the default.
procedure mw_ssystem (mw, system)
pointer mw #I pointer to MWCS descriptor
char system[ARB] #I system name
pointer wp
bool streq()
pointer mw_findsys()
errchk mw_findsys
begin
if (streq (system, "world"))
call mw_sdefwcs (mw) # set default world system
else {
wp = mw_findsys (mw, system)
if (wp != NULL)
MI_WCS(mw) = wp
else
call syserrs (SYS_MWWCSNF, system)
}
end
|
