Changeset 5371

Timestamp:

Apr 30, 2015, 3:52:20 AM (9 years ago)

Author:

ldelgass

Message:

add cutplane position to AdjustSetting?

File:

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

trunk/gui/scripts/nanovisviewer.tcl

@@ -1338 +1338 @@
             }
         }
+        "-xcutplaneposition" - "-ycutplaneposition" - "-zcutplaneposition" {
+            set axis [string range $what 1 1]
+            set pos [expr $_settings($what) * 0.01]
+            # We only set cutplanes on the first dataset.
+            set datasets [CurrentDatasets -cutplanes]
+            set tag [lindex $datasets 0]
+            SendCmd "cutplane position $pos $axis $tag"
+        }
         "-xcutplanevisible" - "-ycutplanevisible" - "-zcutplanevisible" {
             set axis [string range $what 1 1]
@@ -1574 +1582 @@
 }
 
-# ----------------------------------------------------------------------
-# USAGE: UpdateTransferFuncs
-# ----------------------------------------------------------------------
 itcl::body Rappture::NanovisViewer::updateTransferFunctions {} {
     $_dispatcher event -idle !send_transfunc
@@ -1632 +1637 @@
     }
     $inner.background choices insert end \
-        "black"              "black"            \
-        "white"              "white"            \
-        "grey"               "grey"
+        "black" "black" \
+        "white" "white" \
+        "grey"  "grey"
 
     $itk_component(background) value $_settings(-background)