diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-11 21:34:03 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-11 21:34:03 (GMT) |
commit | 9b6d98229cb2fc7c944762a367a933524ff7c60b (patch) | |
tree | 8ed204c8cbe9b95f2bb9e840ae8d6019529af677 /ds9/library/catsimbad.tcl | |
parent | fa1683f94b2fc66beb6543e98ee791d3498e3b55 (diff) | |
download | blt-9b6d98229cb2fc7c944762a367a933524ff7c60b.zip blt-9b6d98229cb2fc7c944762a367a933524ff7c60b.tar.gz blt-9b6d98229cb2fc7c944762a367a933524ff7c60b.tar.bz2 |
fix catalog cone search radius bug
Diffstat (limited to 'ds9/library/catsimbad.tcl')
-rw-r--r-- | ds9/library/catsimbad.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ds9/library/catsimbad.tcl b/ds9/library/catsimbad.tcl index 4aaf3ff..85dda66 100644 --- a/ds9/library/catsimbad.tcl +++ b/ds9/library/catsimbad.tcl @@ -76,7 +76,7 @@ proc CATSIMBAD {varname} { set ww $var(width) set hh $var(height) - set rr [expr sqrt($ww*$ww+$hh*$hh)/2.] + set rr [expr ($ww+$hh)/2.] append qq " radius=$rr" switch -- $var(rformat) { |