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
40
41
42
43
44
45
46
47
48
49
50
|
# sp_w2ld - Transform world coordinates to logical coordinates (double).
#
# History
# 24Jun91 - Created by Jonathan D. Eisenhamer, STScI.
#---------------------------------------------------------------------------
procedure sp_w2ld( wlct, flip, wx, wy, lx, ly, npts )
pointer wlct # I: The MWCS coordinate trans. descriptor.
bool flip # I: True if the axes are transposed.
double wx[npts], wy[npts] # I: The world coordinates.
double lx[npts], ly[npts] # O: The logical coordinates.
int npts # I: The number of points to translate.
begin
if( flip )
call mw_v2trand( wlct, wx, wy, ly, lx, npts )
else
call mw_v2trand( wlct, wx, wy, lx, ly, npts )
end
#---------------------------------------------------------------------------
# End of sp_w2ld
#---------------------------------------------------------------------------
# sp_l2wd - Transform logical coordinates to world coordinates (double).
#
# History
# 24Jun91 - Created by Jonathan D. Eisenhamer, STScI.
#---------------------------------------------------------------------------
procedure sp_l2wd( lwct, flip, lx, ly, wx, wy, npts )
pointer lwct # I: The MWCS coordinate trans. descriptor.
bool flip # I: True if the axes are transposed.
double lx[npts], ly[npts] # I: The logical coordinates.
double wx[npts], wy[npts] # O: The world coordinates.
int npts # I: The number of points to translate.
begin
if( flip )
call mw_v2trand( lwct, ly, lx, wx, wy, npts )
else
call mw_v2trand( lwct, lx, ly, wx, wy, npts )
end
#---------------------------------------------------------------------------
# End of sp_l2wd
#---------------------------------------------------------------------------
|
