Changeset 5298 for trunk

Timestamp:

Apr 23, 2015, 3:37:58 PM (10 years ago)

Author:

ldelgass

Message:

fix for SetObjectStyle?

File:

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

trunk/gui/scripts/nanovisviewer.tcl

@@ -2252 +2252 @@
 itcl::body Rappture::NanovisViewer::SetObjectStyle { dataobj cname } {
     array set style {
-        -opacity  0.5
+        -opacity 0.5
     }
     array set style [lindex [$dataobj components -style $cname] 0]
@@ -2258 +2258 @@
     # override the requested opacity for now
     set style(-opacity) 0.5
-    set _settings($cname-opacity) $style(-opacity)
+    set _settings($cname-opacity) [expr $style(-opacity) * 100.0]
     set tag $dataobj-$cname
-    SendCmd "volume shading opacity $_settings($cname-opacity) $tag"
+    SendCmd "volume shading opacity $style(-opacity) $tag"
     NameTransferFunction $dataobj $cname
 }