diff options
Diffstat (limited to 'ds9/library/cube.tcl')
-rw-r--r-- | ds9/library/cube.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ds9/library/cube.tcl b/ds9/library/cube.tcl index 38af29c..4b46706 100644 --- a/ds9/library/cube.tcl +++ b/ds9/library/cube.tcl @@ -38,7 +38,7 @@ proc MatchCube {which sys} { foreach ff $ds9(frames) { if {$ff != $which} { - RGBEvalLock rgb(lock,slice) $ff "$ff update fits slice $wss $sys" + RGBEvalLock rgb(lock,slice) $ff "$ff update fits slice $wss $sys fk5" } } } @@ -262,7 +262,7 @@ proc CubeApply {} { } set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice coordinates $dcube(image) $cube(system) $cube(sky)] + set dcube(wcs) [$current(frame) get fits slice coordinates $ss $cube(system) $cube(sky)] RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" UpdateCube @@ -294,7 +294,7 @@ proc CubeApplyWCS {} { } set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice coordinates $dcube(image) $cube(system) $cube(sky)] + set dcube(wcs) [$current(frame) get fits slice coordinates $ss $cube(system) $cube(sky)] RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" UpdateCube @@ -799,7 +799,7 @@ proc CubeCmd {ss} { } set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice coordinates $dcube(image) $cube(system) $cube(sky)] + set dcube(wcs) [$current(frame) get fits slice coordinates $ss $cube(system) $cube(sky)] RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" UpdateCube @@ -827,7 +827,7 @@ proc CubeCmdCoord {ss sys sky} { } set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice coordinates $dcube(image) $cube(system) $cube(sky)] + set dcube(wcs) [$current(frame) get fits slice coordinates $ss $cube(system) $cube(sky)] RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" UpdateCube |