From dcd673398653cdf15436c72f66c0ae621d0581f6 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Mon, 11 Jun 2018 17:35:20 -0400
Subject: fix 2mass and vla image server cone search radius issue

---
 ds9/library/2mass.tcl | 2 +-
 ds9/library/vla.tcl   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ds9/library/2mass.tcl b/ds9/library/2mass.tcl
index 48f1233..2759989 100644
--- a/ds9/library/2mass.tcl
+++ b/ds9/library/2mass.tcl
@@ -92,7 +92,7 @@ proc 2MASSExec {varname} {
     }
 
     # now to radius
-    set rr [expr sqrt($ww*$ww+$hh*$hh)/2.]
+    set rr [expr ($ww+$hh)/4.]
     if {$rr>1024} {
 	set rr 1024
     }
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
     }
-- 
cgit v0.12