diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2017-08-04 15:44:30 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2017-08-04 15:44:30 (GMT) |
| commit | b2fc5bedb69d70d8e1382d8942b7c86f4e485c1e (patch) | |
| tree | b6495963248ebb52fa5d31e2e4f345f6f68ed57a /ds9/library | |
| parent | 315c4ef6e468f90b51324ba527df9b42a1c20932 (diff) | |
| download | blt-b2fc5bedb69d70d8e1382d8942b7c86f4e485c1e.zip blt-b2fc5bedb69d70d8e1382d8942b7c86f4e485c1e.tar.gz blt-b2fc5bedb69d70d8e1382d8942b7c86f4e485c1e.tar.bz2 | |
add elliptical gaussian smooth
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/smooth.tcl | 15 |
1 files 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 |