blob: 2783e2360c944c7a71757ad5491b420e87c4be0e (
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
|
#{ MKCACHE.CL -- Execute queries that will load our cache for demos when
# we're not online.
procedure mkcache ()
bool list = no { prompt = "List available tests" }
bool verbose = yes { prompt = "Verbose output?" }
real size = 0.15 { prompt = "search size" }
bool do_sesame = no { prompt = "Sesame cache?" }
bool do_dss = no { prompt = "DSS cache?" }
bool do_2mass = yes { prompt = "2MASS cache?" }
begin
real sz
int N
sz = size
# Cache positions from Sesame.
# ----------------------------
if (do_sesame) {
for (N=1; N <= 110; N=N+1) { # 110 Messier Objects
print ("Sesame: m" // N)
sesame ("m"//N, verb+)
}
for (N=1; N <= 7840; N=N+1) { # 7840 NGC Objects
print ("Sesame: NGC" // N)
sesame ("ngc"//N, verb+)
}
}
# Cache images of Messier Catalog.
if (do_dss) {
for (N=1; N <= 110; N=N+1) {
print ("DSS: m" // N)
dss ("m" // N, size=sz)
}
}
# Cache images of Messier Catalog.
if (do_2mass) {
getcat.otype = "votable"
getcat.size = sz
for (i=1; i <= 110; i=i+1) {
print ("2MASS: m" // i)
iferr {
getcat ("2mass-psc", "m"//i, out="m"//i//"_psc")
} then {
print ("Error")
}
#votpos ("m"//i//"_psc", out="m"//i//"_pos.txt")
#taboverlay ("m"//i, "m"//i//"_pos.txt")
}
}
end
|
