Changeset 2730 for trunk/gui/scripts/vtkvolumeviewer.tcl

Timestamp:

Dec 13, 2011 1:28:39 PM (12 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/vtkvolumeviewer.tcl

@@ -1025 +1025 @@
                 SendCmd "dataset visible 0 $tag"
             }
+            break
         }
     }
@@ -1073 +1074 @@
         }
         foreach { name title units } [$_first hints scalars] {
+            set _scalarFields($title) $name
+            $itk_component(field) choices insert end "$name" "$title"
+            $itk_component(fieldmenu) add radiobutton -label "$title" \
+                -value $title -variable [itcl::scope _currentField] \
+                -selectcolor red \
+                -activebackground black \
+                -activeforeground white \
+                -font "Arial 8" \
+                -command [itcl::code $this Combo invoke]
+            set _fields($name) [list $title $units]
+        }
+        foreach { name title units } { default Default ??? } {
             set _scalarFields($title) $name
             $itk_component(field) choices insert end "$name" "$title"
@@ -1459 +1472 @@
             }
             foreach dataset [CurrentDatasets -visible] {
-                puts stderr "volume colormode $_colorMode ${name} $dataset"
+                #puts stderr "volume colormode $_colorMode ${name} $dataset"
                 puts stderr "cutplane colormode $_colorMode ${name} $dataset"
-                SendCmd "volume colormode $_colorMode ${name} $dataset"
+                #SendCmd "volume colormode $_colorMode ${name} $dataset"
                 SendCmd "cutplane colormode $_colorMode ${name} $dataset"
             }
@@ -1757 +1770 @@
     }
     set cmap {}
-    for {set i 0} {$i < [llength $clist]} {incr i} {
-        set x [expr {double($i)/([llength $clist]-1)}]
-        set color [lindex $clist $i]
-        append cmap "$x [Color2RGB $color] "
+    set nColors [llength $clist]
+    if { $nColors == 1 } {
+        append cmap "0.0 [Color2RGB $colors] "
+        append cmap "1.0 [Color2RGB $colors] "
+    } else {
+        for {set i 0} {$i < [llength $clist]} {incr i} {
+            set x [expr {double($i)/([llength $clist]-1)}]
+            set color [lindex $clist $i]
+            append cmap "$x [Color2RGB $color] "
+        }
     }
     return $cmap
@@ -1780 +1799 @@
 
     set wmap "0.0 1.0 1.0 1.0"
+    set wmap "0.0 0.0 0.1 0.0 0.2 0.8 0.98 0.8 0.99 0.0 1.0 0.0"
     SendCmd "colormap add $name { $cmap } { $wmap }"
 }
@@ -1933 +1953 @@
         "orange-to-blue"     "orange-to-blue"   
 
-    $itk_component(palette) value "BCGYR"
+    $itk_component(palette) value "nanohub"
     bind $inner.palette <<Value>> \
         [itcl::code $this AdjustSetting volume-palette]