/usr/share/saods9/src/2mass.tcl is in saods9-data 7.3.2+repack-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # Copyright (C) 1999-2014
# 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(valid) 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)
set var(mode) $twomass(mode)
set var(save) $twomass(save)
set var(valid) $twomass(valid)
set var(survey) $twomass(survey)
IMGSVRInit $varname "IPAC-2MASS [msgcat::mc {Server}]" 2MASSExec 2MASSAck
$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 1
}
proc 2MASSExec {varname} {
upvar #0 $varname var
global $varname
if {$var(save)} {
set var(fn) [SaveFileDialog savefitsfbox]
if {$var(fn) == {}} {
return
}
} else {
set var(fn) [tmpnam ds92mass {.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 var(url) "http://irsa.ipac.caltech.edu/cgi-bin/Oasis/2MASSImg/nph-2massimg"
IMGSVRLoad $varname
}
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
}
|