blob: 08a552768ff9a60d17a4ab10ff06b7f4b3f2b73f (
plain)
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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
# Copyright (C) 1999-2016
# Smithsonian Astrophysical Observatory, Cambridge, MA, USA
# For conditions of distribution and use, see copyright notice in "copyright"
package provide DS9 1.0
proc 2MASSDef {} {
global twomass
global itwomass
set itwomass(top) .twomass
set itwomass(mb) .twomassmb
set twomass(sky) fk5
set twomass(rformat) arcmin
set twomass(width) 15
set twomass(height) 15
set twomass(mode) new
set twomass(save) 0
set twomass(survey) j
}
proc 2MASSDialog {} {
global twomass
global itwomass
global wcs
if {[winfo exists $itwomass(top)]} {
raise $itwomass(top)
return
}
set varname dtwomass
upvar #0 $varname var
global $varname
set var(top) $itwomass(top)
set var(mb) $itwomass(mb)
set var(sky) $twomass(sky)
set var(skyformat) $wcs(skyformat)
set var(rformat) $twomass(rformat)
set var(width) $twomass(width)
set var(height) $twomass(height)
# not used
set var(width,pixels) 300
set var(height,pixels) 300
set var(mode) $twomass(mode)
set var(save) $twomass(save)
set var(survey) $twomass(survey)
IMGSVRInit $varname "IPAC-2MASS [msgcat::mc {Server}]" \
2MASSExec 2MASSAck ARDone ARError
$var(mb) add cascade -label Survey -menu $var(mb).survey
menu $var(mb).survey
$var(mb).survey add radiobutton -label {2MASS (J Band)} \
-variable ${varname}(survey) -value j
$var(mb).survey add radiobutton -label {2MASS (H Band)} \
-variable ${varname}(survey) -value h
$var(mb).survey add radiobutton -label {2MASS (K Band)} \
-variable ${varname}(survey) -value k
IMGSVRUpdate $varname
}
proc 2MASSExec {varname} {
upvar #0 $varname var
global $varname
if {$var(save)} {
set var(fn) [SaveFileDialog savefitsfbox]
if {$var(fn) == {}} {
ARDone $varname
return
}
} else {
set var(fn) [tmpnam {.fits.gz}]
}
# size - convert to arcsec
switch -- $var(rformat) {
degrees {
set ww [expr $var(width)*60.*60.]
set hh [expr $var(height)*60.*60.]
}
arcmin {
set ww [expr $var(width)*60.]
set hh [expr $var(height)*60.]
}
arcsec {
set ww $var(width)
set hh $var(height)
}
}
# now to radius
set rr [expr sqrt($ww*$ww+$hh*$hh)/2.]
if {$rr>1024} {
set rr 1024
}
set foo "$var(x) $var(y)"
set var(query) [http::formatQuery objstr $foo size $rr band $var(survey)]
set url "http://irsa.ipac.caltech.edu/cgi-bin/Oasis/2MASSImg/nph-2massimg"
IMGSVRGetURL $varname $url
}
proc 2MASSAck {varname} {
upvar #0 $varname var
global $varname
set msg {Acknowledgments for the 2MASS
This publication makes use of data products from the Two Micron All
Sky Survey, which is a joint project of the University of
Massachusetts and the Infrared Processing and Analysis
Center/California Institute of Technology, funded by the National
Aeronautics and Space Administration and the National Science
Foundation.
}
SimpleTextDialog "${varname}ack" [msgcat::mc {Acknowledgment}] \
80 40 insert top $msg
}
# Process Cmds
proc Process2MASSCmd {varname iname} {
upvar $varname var
upvar $iname i
2MASSDialog
IMGSVRProcessCmd $varname $iname dtwomass
}
proc ProcessSend2MASSCmd {proc id param} {
2MASSDialog
IMGSVRProcessSendCmd $proc $id $param dtwomass
}
|