summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-08-07 19:37:43 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-08-07 19:37:43 (GMT)
commitbef96448086f76151cf5cc207cc9a98d58f8dc8f (patch)
treee5a6e2cb0021f421c7945b4928ef723617d7a527
parent01952508444434a9bde013b5c972ace97e0ed31a (diff)
downloadblt-bef96448086f76151cf5cc207cc9a98d58f8dc8f.zip
blt-bef96448086f76151cf5cc207cc9a98d58f8dc8f.tar.gz
blt-bef96448086f76151cf5cc207cc9a98d58f8dc8f.tar.bz2
update sia list
-rw-r--r--ds9/library/coord.tcl1
-rw-r--r--ds9/library/sia.tcl12
2 files changed, 1 insertions, 12 deletions
diff --git a/ds9/library/coord.tcl b/ds9/library/coord.tcl
index 80d519e..7e569c9 100644
--- a/ds9/library/coord.tcl
+++ b/ds9/library/coord.tcl
@@ -117,6 +117,7 @@ proc DisplayCoordDialog {which x y} {
foreach l {{} a b c d e f g h i j k l m n o p q r s t u v w x y z} {
if {"$pcoord(wcs$l)" && [$which has wcs "wcs$l"]} {
set cd "[$which get coordinates $x $y wcs$l $wcs(sky) $wcs(skyformat)]"
+ puts ":$cd:"
if {[$which has wcs celestial "wcs$l"]} {
append r " [lindex $cd 0] [lindex $cd 1] $wcs(sky)"
diff --git a/ds9/library/sia.tcl b/ds9/library/sia.tcl
index a07c4be..5936aae 100644
--- a/ds9/library/sia.tcl
+++ b/ds9/library/sia.tcl
@@ -76,18 +76,6 @@ proc SIADef {} {
post \
} \
}
-
-# {{NASA/CXC Chandra} \
-# siacxc \
-# {http://cda.harvard.edu/cxcsiap/queryImages}\
-# {} \
-# post \
-# } \
-# {{MPE/MPG ROSAT} siarosat \
-# {http://gavo.mpe.mpg.de/rosat/SIAP} \
-# {action=queryImage&siap=siap.service.rosat&} \
-# get \
-# } \
}
proc SIAAnalysisMenu {mb} {