From b2fc5bedb69d70d8e1382d8942b7c86f4e485c1e Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 4 Aug 2017 11:44:30 -0400
Subject: add elliptical gaussian smooth

---
 ds9/library/smooth.tcl | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/ds9/library/smooth.tcl b/ds9/library/smooth.tcl
index 9c48119..dd54c63 100644
--- a/ds9/library/smooth.tcl
+++ b/ds9/library/smooth.tcl
@@ -115,7 +115,8 @@ proc SmoothDialog {} {
     set f [ttk::labelframe $w.gaussian -text [msgcat::mc {Gaussian}] -padding 2]
     ttk::label $f.tdescr -text [msgcat::mc {Diameter}]
     ttk::label $f.descr -text {2*radius+1}
-    slider $f.rslider 1 20 {Radius} smooth(radius) {}
+    slider $f.rslider 1 20 {Radius} smooth(radius) \
+	{SmoothCheckSigma radius sigma}
     slider $f.sslider 1 20 {Sigma} smooth(sigma) {}
 
     grid $f.tdescr $f.descr -padx 2 -pady 2 -sticky w
@@ -129,8 +130,10 @@ proc SmoothDialog {} {
     ttk::label $f.tangle -text {Angle}
     ttk::entry $f.angle -textvariable smooth(angle) -width 7
     ttk::label $f.descr -text {2*radius+1}
-    slider $f.rslider 1 20 [msgcat::mc {Major Radius}] smooth(radius) {}
-    slider $f.rmslider 1 20 [msgcat::mc {Minor Radius}] smooth(radius,minor) {}
+    slider $f.rslider 1 20 [msgcat::mc {Major Radius}] smooth(radius) \
+	{SmoothCheckSigma radius sigma}
+    slider $f.rmslider 1 20 [msgcat::mc {Minor Radius}] smooth(radius,minor) \
+	{SmoothCheckSigma radius,minor sigma,minor}
     slider $f.sslider 1 20 [msgcat::mc {Major Sigma}] smooth(sigma) {}
     slider $f.smlider 1 20 [msgcat::mc {Minor Sigma}] smooth(sigma,minor) {}
 
@@ -157,6 +160,12 @@ proc SmoothDialog {} {
     SmoothUpdateDialog
 }
 
+proc SmoothCheckSigma {rr ss} {
+    global smooth
+
+    set smooth($ss) [expr $smooth($rr)/2.]
+}
+
 proc SmoothUpdateDialog {} {
     global ismooth
     global smooth
-- 
cgit v0.12