diff options
Diffstat (limited to 'ds9/library/siadialog.tcl')
| -rw-r--r-- | ds9/library/siadialog.tcl | 2 |
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]" |