- Timestamp:
- May 31, 2015, 6:20:42 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r5642 r5644 798 798 $c itemconfigure title -text $title 799 799 $c coords title [expr {$w/2}] $ly 800 801 # The colormap may have changed. Resync the slicers with the colormap.802 set datasets [CurrentDatasets -cutplanes]803 804 # Adjust the cutplane for only the first component in the topmost volume805 # (i.e. the first volume designated in the field).806 set tag [lindex $datasets 0]807 foreach axis {x y z} {808 # Turn off cutplanes for all volumes809 SendCmd "cutplane state 0 $axis"810 if { $_settings(-${axis}cutplanevisible) } {811 # Turn on cutplane for this particular volume and set the position812 SendCmd "cutplane state 1 $axis $tag"813 set pos [expr {0.01*$_settings(-${axis}cutplaneposition)}]814 SendCmd "cutplane position $pos $axis $tag"815 }816 }817 800 } 818 801
Note: See TracChangeset
for help on using the changeset viewer.