Changeset 3055 for branches/blt4

Timestamp:

Jun 21, 2012 3:29:04 PM (12 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/vtkviewer.tcl (modified) (3 diffs)

branches/blt4/gui/scripts/vtkviewer.tcl

@@ -925 +925 @@
             array set view $location
         }
-    }
-    foreach axis { x y z } {
-        set label [$_first hints ${axis}label]
-        if { $label != "" } {
-            SendCmd "axis name $axis $label"
-        }
-        set units [$_first hints ${axis}units]
-        if { $units != "" } {
-            SendCmd "axis units $axis $units"
-        }
-    }
+
+        foreach axis { x y z } {
+            set label [$_first hints ${axis}label]
+            if { $label != "" } {
+                SendCmd "axis name $axis $label"
+            }
+            set units [$_first hints ${axis}units]
+            if { $units != "" } {
+                SendCmd "axis units $axis $units"
+            }
+        }
+    }
+    SendCmd "dataset maprange visible"
         
     set _buffering 0;                        # Turn off buffering.
@@ -1283 +1285 @@
         if { [info exists _dataset2style($dataset)] } {
             #puts stderr "RequestLegend w=$w h=$h"
-            SendCmd "legend $_dataset2style($dataset) vmag {} $w $h 0"
+            SendCmd "legend $_dataset2style($dataset) vmag {} {} $w $h 0"
             break;
         }
@@ -1340 +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] "