diff options
Diffstat (limited to 'ds9/library/vla.tcl')
| -rw-r--r-- | ds9/library/vla.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ds9/library/vla.tcl b/ds9/library/vla.tcl index 5cd3d48..d48f62d 100644 --- a/ds9/library/vla.tcl +++ b/ds9/library/vla.tcl @@ -104,7 +104,7 @@ proc VLAExec {varname} { } # now to radius - set rr [expr sqrt($ww*$ww+$hh*$hh)/2.] + set rr [expr ($ww+$hh)/4.] if {$rr>60} { set rr 60 } |