Changeset 3923 for trunk/gui/scripts/cloud.tcl

Timestamp:

Sep 13, 2013, 2:51:22 PM (11 years ago)

Author:

gah

Message:

fix z-axis labels for contour/heightmap

File:

• trunk/gui/scripts/cloud.tcl (modified) (4 diffs)

trunk/gui/scripts/cloud.tcl

@@ -20 +20 @@
     private variable _xmlobj "";        # ref to XML obj with device data
     private variable _cloud "";         # lib obj representing this cloud
-    private variable _units "m m m" ;   # system of units for x, y, z
+    private variable _units "" ;        # system of units for x, y, z
     private variable _axis2label;       # 
     private variable _axis2units;       # 
@@ -116 +116 @@
     set _units [$_cloud get units]
     set first [lindex $_units 0]
+    set list {}
     foreach u $_units axis { x y z } {
         if { $u != "" } {
@@ -122 +123 @@
             set _axis2units($axis) $first 
         }
-    }
+        lappend list $_axis2units($axis)
+    }
+    set _units $list
     foreach label [$_cloud get labels] axis { x y z } {
         if { $label != "" } {
@@ -148 +151 @@
         foreach axis {x y z} units $_units {
             set value [Rappture::Units::convert [set $axis] \
-                -context $units -to $units -units off]
-
+                        -context $units -to $units -units off]
             set $axis $value;           # Set the (x/y/z) coordinate to 
                                         # converted value.