diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-08-18 20:18:08 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-08-18 20:18:08 (GMT) |
commit | e670aa8a10d3084209fb2f1877c7da27e7cedaca (patch) | |
tree | 077a463449ff529510faf735c404d252d1d5c88c /ds9/library/analysis.tcl | |
parent | 5597764b8eea8a9d1222347c1c8c170f5ca90d97 (diff) | |
download | blt-e670aa8a10d3084209fb2f1877c7da27e7cedaca.zip blt-e670aa8a10d3084209fb2f1877c7da27e7cedaca.tar.gz blt-e670aa8a10d3084209fb2f1877c7da27e7cedaca.tar.bz2 |
simplify slice code
Diffstat (limited to 'ds9/library/analysis.tcl')
-rw-r--r-- | ds9/library/analysis.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ds9/library/analysis.tcl b/ds9/library/analysis.tcl index a3ee4cf..6f63f62 100644 --- a/ds9/library/analysis.tcl +++ b/ds9/library/analysis.tcl @@ -1551,17 +1551,17 @@ proc ParseZMacro {cmdname frame} { return } - set sl [$frame get fits slice] - # args set exp1 {\$z\(([^)]*)\)} if {[regexp $exp1 $cmd foo pp]} { set sys $pp - set coord [$frame get fits slice coordinates $sl $sys fk5] + set coord [$frame get fits slice from image $sys fk5] regsub -all $exp1 $cmd "$coord" cmd return } + set sl [$frame get fits slice] + # no args # look for '$z"' set exp1 {\$z\"} |