diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-08-03 21:41:49 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-08-03 21:41:49 (GMT) |
commit | c0479ae8d45c5577c0348d2e3e0f0a2017e57107 (patch) | |
tree | 6e2d97fe5d63dee54de5bbadf44792a3f0f06405 /ds9/library/smooth.tcl | |
parent | 127cdb259379f4a6a3ff269a4d48b7de6c9fa75f (diff) | |
download | blt-c0479ae8d45c5577c0348d2e3e0f0a2017e57107.zip blt-c0479ae8d45c5577c0348d2e3e0f0a2017e57107.tar.gz blt-c0479ae8d45c5577c0348d2e3e0f0a2017e57107.tar.bz2 |
add elliptical gaussian smooth
Diffstat (limited to 'ds9/library/smooth.tcl')
-rw-r--r-- | ds9/library/smooth.tcl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/ds9/library/smooth.tcl b/ds9/library/smooth.tcl index 5cc3e13..efc4d82 100644 --- a/ds9/library/smooth.tcl +++ b/ds9/library/smooth.tcl @@ -242,14 +242,15 @@ proc MatchSmooth {which} { set view [$which has smooth] set function [$which get smooth function] set radius [$which get smooth radius] - set minor [$current(frame) get smooth minor] - set sigma [$current(frame) get smooth sigma] - set angle [$current(frame) get smooth angle] + set minor [$which get smooth radius minor] + set sigma [$which get smooth sigma] + set sigmaminor [$which get smooth sigma minor] + set angle [$which get smooth angle] foreach ff $ds9(frames) { if {$ff != $which} { if {$view} { - RGBEvalLock rgb(lock,smooth) $ff [list $ff smooth $function $radius $minor $sigma $angle] + RGBEvalLock rgb(lock,smooth) $ff [list $ff smooth $function $radius $radiusminor $sigma $sigmaminor $angle] } else { RGBEvalLock rgb(lock,smooth) $ff [list $ff smooth delete] } @@ -285,10 +286,11 @@ proc SmoothBackupBase {ch which} { if {[$which has smooth]} { set function [$which get smooth function] set radius [$which get smooth radius] - set minor [$which get smooth minor] + set radiusminor [$which get smooth radius minor] set sigma [$which get smooth sigma] + set sigmaminor [$which get smooth sigma minor] set angle [$which get smooth angle] - puts $ch "$which smooth $function $radius $minor $sigma $angle" + puts $ch "$which smooth $function $radius $radiusminor $sigma $sigmaminor $angle" } } |