Changeset 2733 for trunk/gui/scripts/nanovisviewer.tcl

Timestamp:

Dec 14, 2011, 10:28:10 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/nanovisviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/nanovisviewer.tcl

@@ -767 +767 @@
         }
     }
+
+    # The colormap may have changed. Resync the slicers with the colormap.
+    set vols [CurrentVolumes -cutplanes]
+    SendCmd "volume data state $_settings($this-volume) $vols"
+
+    # Adjust the cutplane for only the first component in the topmost volume
+    # (i.e. the first volume designated in the field).
+    set vol [lindex $vols 0]
+    foreach axis {x y z} {
+        # Turn off cutplanes for all volumes
+        SendCmd "cutplane state 0 $axis"
+        if { $_settings($this-${axis}cutplane) } {
+            # Turn on cutplane for this particular volume and set the position
+            SendCmd "cutplane state 1 $axis $vol"
+            set pos [expr {0.01*$_settings($this-${axis}cutposition)}]
+            SendCmd "cutplane position $pos $axis $vol"
+        }
+    }
 }
 
@@ -909 +927 @@
         updatetransferfuncs
     }
-
-    # Sync the state of slicers
-    set vols [CurrentVolumes -cutplanes]
-    foreach axis {x y z} {
-        SendCmd "cutplane state $_settings($this-${axis}cutplane) $axis $vols"
-        set pos [expr {0.01*$_settings($this-${axis}cutposition)}]
-        set vol [lindex $vols 0]
-        SendCmd "cutplane position $pos $axis $vol"
-    }
-    SendCmd "volume data state $_settings($this-volume) $vols"
     set _buffering 0;                        # Turn off buffering.
     # Actually write the commands to the server socket.  If it fails, we don't