Changeset 5290 for trunk/gui

Timestamp:

Apr 23, 2015, 1:02:07 PM (10 years ago)

Author:

ldelgass

Message:

add SetObjectStyle? method to nanovisviewer

File:

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

trunk/gui/scripts/nanovisviewer.tcl

@@ -120 +120 @@
     private method Rotate {option x y}
     private method SendTransferFunctions {}
+    private method SetObjectStyle { dataobj cname }
     private method SetOrientation { side }
     private method Slice {option args}
@@ -945 +946 @@
                 set _serverDatasets($tag) 0
             }
-            NameTransferFunction $dataobj $cname
+            SetObjectStyle $dataobj $cname
         }
     }
@@ -2317 +2318 @@
     return $amap
 }
+
+itcl::body Rappture::NanovisViewer::SetObjectStyle { dataobj cname } {
+    array set style {
+        -opacity  0.5
+    }
+    array set style [lindex [$dataobj components -style $cname] 0]
+    # Some tools erroneously set -opacity to 1 in style, so
+    # override the requested opacity for now
+    set style(-opacity) 0.5
+    set _settings($cname-opacity) $style(-opacity)
+    set tag $dataobj-$cname
+    SendCmd "volume shading opacity $_settings($cname-opacity) $tag"
+    NameTransferFunction $dataobj $cname
+}