Changeset 3054 for trunk/gui/scripts/vtkviewer.tcl

Timestamp:

Jun 21, 2012, 3:26:13 PM (12 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/vtkviewer.tcl

@@ -937 +937 @@
         }
     }
+    SendCmd "dataset maprange visible"
         
     set _buffering 0;                        # Turn off buffering.
@@ -1341 +1342 @@
     set clist [split $style(-color) :]
     set cmap {}
-    for {set i 0} {$i < [llength $clist]} {incr i} {
-        set x [expr {double($i)/([llength $clist]-1)}]
+    set numColors [llength $clist]
+    for {set i 0} {$i < $numColors} {incr i} {
+        set x 0
+        if { $numColors > 1 } {
+            set x [expr {double($i)/($numColors-1)}]
+        }
         set color [lindex $clist $i]
         append cmap "$x [Color2RGB $color] "