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
39
|
include <mwset.h>
include "od.h"
#---------------------------------------------------------------------------
.help od_wcs_open May93 source
.ih
NAME
od_wcs_open -- Open the WCS information for an image.
.endhelp
#---------------------------------------------------------------------------
procedure od_wcs_open (od)
pointer od # I: Image descriptor.
pointer mw_openim()
pointer mw_sctran()
bool streq()
begin
if (OD_TYPE(od) == OD_IMAGE) {
OD_MW(od) = mw_openim (OD_FD(od))
call mw_gwattrs (OD_MW(od), 0, "system", OD_WSYS(od), SZ_LINE)
if (streq ("multispec", OD_WSYS(od))) {
call mw_seti (OD_MW(od), MW_USEAXMAP, NO)
OD_WL(od) = mw_sctran (OD_MW(od), "multispec", "logical", 3b)
OD_LW(od) = mw_sctran (OD_MW(od), "logical", "multispec", 3b)
} else {
OD_WL(od) = mw_sctran (OD_MW(od), "world", "logical", 1)
OD_LW(od) = mw_sctran (OD_MW(od), "logical", "world", 1)
}
} else {
OD_MW(od) = NULL
OD_LW(od) = NULL
OD_WL(od) = NULL
}
end
#---------------------------------------------------------------------------
# End of od_wcs_open
#---------------------------------------------------------------------------
|
