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/catcxc.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/catcxc.tcl')
-rw-r--r-- | ds9/library/catcxc.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ds9/library/catcxc.tcl b/ds9/library/catcxc.tcl index 9bf2d28..5cad000 100644 --- a/ds9/library/catcxc.tcl +++ b/ds9/library/catcxc.tcl @@ -62,7 +62,7 @@ proc CATCXCVOT {varname} { } # now to radius - set rr [expr sqrt($ww*$ww+$hh*$hh)/2.] + set rr [expr ($ww+$hh)/2.] # output if {$var(allcols)} { @@ -124,7 +124,7 @@ proc CATCXCTSV {varname} { } # now to radius - set rr [expr sqrt($ww*$ww+$hh*$hh)/2.] + set rr [expr ($ww+$hh)/2.] # output if {$var(allcols)} { |