summaryrefslogtreecommitdiffstats
path: root/ds9/library/siadialog.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-06-11 21:36:01 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-06-11 21:36:01 (GMT)
commit2a884140458c2f4ed271dd5b6fb74502db4653be (patch)
tree532fe2eb072a53e743e2a7832a0f221bd4f5c9a7 /ds9/library/siadialog.tcl
parentdcd673398653cdf15436c72f66c0ae621d0581f6 (diff)
downloadblt-2a884140458c2f4ed271dd5b6fb74502db4653be.zip
blt-2a884140458c2f4ed271dd5b6fb74502db4653be.tar.gz
blt-2a884140458c2f4ed271dd5b6fb74502db4653be.tar.bz2
fix sia cone search radius issue
Diffstat (limited to 'ds9/library/siadialog.tcl')
-rw-r--r--ds9/library/siadialog.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/ds9/library/siadialog.tcl b/ds9/library/siadialog.tcl
index 6d7bf58..6821639 100644
--- a/ds9/library/siadialog.tcl
+++ b/ds9/library/siadialog.tcl
@@ -468,7 +468,7 @@ proc SIAVOT1 {varname} {
}
# now to radius
- set rr [expr sqrt($ww*$ww+$hh*$hh)/2.]
+ set rr [expr ($ww+$hh)/2.]
# query
set var(query2) "$var(opts)[http::formatQuery POS "$xx,$yy" SIZE $rr FORMAT image/fits]"