diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-08-18 18:23:25 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-08-18 18:23:25 (GMT) |
commit | 7da217d72bef995f506959b027cbf543c02eaa6a (patch) | |
tree | 990878a2773d75bf5eebcd41ce750040c0002edd /ds9/library/examine.tcl | |
parent | 118e5a85e4732f882ffcda10cb3d1c5bf0324959 (diff) | |
download | blt-7da217d72bef995f506959b027cbf543c02eaa6a.zip blt-7da217d72bef995f506959b027cbf543c02eaa6a.tar.gz blt-7da217d72bef995f506959b027cbf543c02eaa6a.tar.bz2 |
simplify crop code
Diffstat (limited to 'ds9/library/examine.tcl')
-rw-r--r-- | ds9/library/examine.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ds9/library/examine.tcl b/ds9/library/examine.tcl index 06ba9f5..0e9be13 100644 --- a/ds9/library/examine.tcl +++ b/ds9/library/examine.tcl @@ -36,7 +36,7 @@ proc ExamineButtonBase {which x y} { # find filename/slice set fn [$which get fits file name full canvas $x $y] - set slice($ii) [$which get fits slice] + set slice [$which get fits slice] # so the new frame will have all of the parent frame when created set ds9(next) $which @@ -71,7 +71,7 @@ proc ExamineButtonBase {which x y} { RealizeDS9 # set slice - $current(frame) update fits slice $slice($ii) + $current(frame) update fits slice $slice # zoom to about if {[$current(frame) has fits bin]} { @@ -115,7 +115,7 @@ proc ExamineButtonRGB {which x y} { $which rgb channel $cc set fn($cc) [$which get fits file name full canvas $x $y] - set slice($cc,$ii) [$which get fits slice] + set slice($cc) [$which get fits slice] } # so the new frame will have all of the parent frame when created @@ -159,7 +159,7 @@ proc ExamineButtonRGB {which x y} { # set slice foreach cc {red green blue} { $current(frame) rgb channel $cc - $current(frame) update fits slice $slice($cc,$ii) + $current(frame) update fits slice $slice($cc) } # zoom to about @@ -204,7 +204,7 @@ proc ExamineButton3D {which x y} { # find filename/slice set fn [$which get fits file name full canvas $x $y] - set slice($ii) [$which get fits slice] + set slice [$which get fits slice] # and 3d info set rr [$current(frame) get 3d view] @@ -245,7 +245,7 @@ proc ExamineButton3D {which x y} { RealizeDS9 # set slice - $current(frame) update fits slice $slice($ii) + $current(frame) update fits slice $slice # zoom to about if {[$current(frame) has fits bin]} { |