diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-08-17 16:46:34 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-08-17 16:46:34 (GMT) |
commit | 61331fa2c608e44eae36a8edbaef63752e635303 (patch) | |
tree | 9908ec5510fc89225be60b572def5279b88f9622 /ds9/library/markeranalysisplot3d.tcl | |
parent | e45aee40eb4f7837acae8808dd2343dad32f9fe0 (diff) | |
download | blt-61331fa2c608e44eae36a8edbaef63752e635303.zip blt-61331fa2c608e44eae36a8edbaef63752e635303.tar.gz blt-61331fa2c608e44eae36a8edbaef63752e635303.tar.bz2 |
simplify slice code
Diffstat (limited to 'ds9/library/markeranalysisplot3d.tcl')
-rw-r--r-- | ds9/library/markeranalysisplot3d.tcl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/ds9/library/markeranalysisplot3d.tcl b/ds9/library/markeranalysisplot3d.tcl index 988df67..36a385a 100644 --- a/ds9/library/markeranalysisplot3d.tcl +++ b/ds9/library/markeranalysisplot3d.tcl @@ -130,6 +130,13 @@ proc MarkerAnalysisPlot3dCB {frame id} { set vvar(system) $wcs(system) } + if {[info exists var(sky)]} { + set vvar(sky) $var(sky) + } elseif {[info exists vvar(sky)]} { + } else { + set vvar(sky) $wcs(sky) + } + if {[info exists var(method)]} { set vvar(method) $var(method) } elseif {[info exists vvar(method)]} { @@ -166,9 +173,9 @@ proc MarkerAnalysisPlot3dCB {frame id} { } $frame get marker $id analysis plot3d $xdata $ydata \ - $vvar(system) $vvar(method) + $vvar(system) $vvar(sky) $vvar(method) - set vvar(slice) [$frame get fits slice 2 $vvar(system)] + set vvar(slice) [$frame get fits slice 2 $vvar(system) $vvar(sky)] MarkerAnalysisPlot3dMarker $vvarname if {!$ping} { @@ -234,7 +241,7 @@ proc MarkerAnalysisPlot3dSliceCB {frame id} { # this routine will be called, so check first if {[info exists ${vvarname}(system)]} { - set vvar(slice) [$frame get fits slice 2 $vvar(system)] + set vvar(slice) [$frame get fits slice 2 $vvar(system) $vvar(sky)] MarkerAnalysisPlot3dMarker $vvarname } } |