Changeset 4377

Timestamp:

Jun 10, 2014 9:27:43 AM (10 years ago)

Author:

gah

Message:

temporary fix for alpha ramp

File:

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

trunk/gui/scripts/vtkvolumeviewer.tcl

@@ -87 +87 @@
     }
 
+    private variable _alphamap
     private variable _current "";       # Currently selected component 
     private variable _volcomponents   ; # Array of components found 
@@ -2629 +2630 @@
     # reference.
 
+    set static 0
     if { ![info exists _parsedFunction($cname)] || ![info exists _cname2transferFunction($cname)] } {
         array set styles {
             -color BCGYR
+            -alphamap ""
             -levels 6
             -markers ""
@@ -2653 +2656 @@
             ParseLevelsOption $cname $styles(-levels)
         }
+        if { $styles(-alphamap) != "" } {
+            set _alphamap($cname) $styles(-alphamap)
+        }
     } else {
         foreach {cmap amap} $_cname2transferFunction($cname) break
-    }
-
-    set amap [ComputeAlphamap $cname]
+    puts stderr "_cname2transferFunction($cname) amap=$amap"
+    }
+    if { ![info exists _alphamap($cname)] } {
+        set amap [ComputeAlphamap $cname]
+    puts stderr "ComputeAlphamap amap=$amap"
+    } else {
+        set amap $_alphamap($cname)
+    }
     set opaqueAmap "0.0 1.0 1.0 1.0" 
     set _cname2transferFunction($cname) [list $cmap $amap]