summaryrefslogtreecommitdiffstats
path: root/ds9/library/catsdss.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-06-11 21:34:03 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-06-11 21:34:03 (GMT)
commit9b6d98229cb2fc7c944762a367a933524ff7c60b (patch)
tree8ed204c8cbe9b95f2bb9e840ae8d6019529af677 /ds9/library/catsdss.tcl
parentfa1683f94b2fc66beb6543e98ee791d3498e3b55 (diff)
downloadblt-9b6d98229cb2fc7c944762a367a933524ff7c60b.zip
blt-9b6d98229cb2fc7c944762a367a933524ff7c60b.tar.gz
blt-9b6d98229cb2fc7c944762a367a933524ff7c60b.tar.bz2
fix catalog cone search radius bug
Diffstat (limited to 'ds9/library/catsdss.tcl')
-rw-r--r--ds9/library/catsdss.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/ds9/library/catsdss.tcl b/ds9/library/catsdss.tcl
index 2da59d2..754d86d 100644
--- a/ds9/library/catsdss.tcl
+++ b/ds9/library/catsdss.tcl
@@ -44,7 +44,7 @@ proc CATSDSS {varname} {
}
# now to radius
- set rr [expr sqrt($ww*$ww+$hh*$hh)/2.]
+ set rr [expr ($ww+$hh)/2.]
set query {}
append query "ra=$xx&"