blob: 82d2f1c2fbae6290af5fd35189ffb0842a87023f (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
include "skywcsdef.h"
include "skywcs.h"
# SK_STATD -- Get a double precision coordinate parameter.
double procedure sk_statd (coo, param)
pointer coo #I pointer to the coordinate structure
int param #I the input parameter
begin
switch (param) {
case S_VXOFF:
return (SKY_VXOFF(coo))
case S_VYOFF:
return (SKY_VYOFF(coo))
case S_VXSTEP:
return (SKY_VXSTEP(coo))
case S_VYSTEP:
return (SKY_VYSTEP(coo))
case S_EQUINOX:
return (SKY_EQUINOX(coo))
case S_EPOCH:
return (SKY_EPOCH(coo))
default:
call error (0, "SKY_STATD: Unknown coordinate system parameter")
}
end
# SK_STATI -- Get an integer coordinate parameter.
int procedure sk_stati (coo, param)
pointer coo #I pointer to the coordinate structure
int param #I the input parameter
begin
switch (param) {
case S_CTYPE:
return (SKY_CTYPE(coo))
case S_RADECSYS:
return (SKY_RADECSYS(coo))
case S_WTYPE:
return (SKY_WTYPE(coo))
case S_PLNGAX:
return (SKY_PLNGAX(coo))
case S_PLATAX:
return (SKY_PLATAX(coo))
case S_XLAX:
return (SKY_XLAX(coo))
case S_YLAX:
return (SKY_YLAX(coo))
case S_PIXTYPE:
return (SKY_PIXTYPE(coo))
case S_NLNGAX:
return (SKY_NLNGAX(coo))
case S_NLATAX:
return (SKY_NLATAX(coo))
case S_NLNGUNITS:
return (SKY_NLNGUNITS(coo))
case S_NLATUNITS:
return (SKY_NLATUNITS(coo))
case S_STATUS:
return (SKY_STATUS(coo))
default:
call error (0, "SKY_STATI: Unknown coordinate system parameter")
}
end
# SK_STATS -- Get a character string coordinate parameter.
procedure sk_stats (coo, param, value, maxch)
pointer coo #I pointer to the coordinate structure
int param #I the input parameter
char value #O the output string
int maxch #I the maximum size of the string
begin
switch (param) {
case S_COOSYSTEM:
call strcpy (SKY_COOSYSTEM(coo), value, maxch)
default:
call error (0, "SKY_GETSTR: Unknown coordinate system parameter")
}
end
|
