Changeset 4997 for trunk

Timestamp:

Feb 11, 2015, 12:24:14 PM (9 years ago)

Author:

ldelgass

Message:

initialize variable

Location:

trunk/gui/scripts

Files:

• field.tcl (modified) (2 diffs)
• unirect3d.tcl (modified) (3 diffs)
• vtkheightmapviewer.tcl (modified) (1 diff)

trunk/gui/scripts/field.tcl

@@ -371 +371 @@
     }
     if {[info exists _comp2unirect3d($cname)]} {
-        return [$_comp2unirect3d($cname) blob]
+        return [$_comp2unirect3d($cname) values]
     }
     error "can't get field values. Unknown component \"$cname\": should be [join [lsort [array names _comp2dims]] {, }]"
@@ -1442 +1442 @@
         }
         # Get the data limits 
-        set vector [$_comp2unirect3d($cname) valuesObj]
+        set vector [$_comp2unirect3d($cname) values]
         set minmax [VectorLimits $vector $vectorsize]
         lappend limits $cname $minmax

trunk/gui/scripts/unirect3d.tcl

@@ -27 +27 @@
     public method mesh {}
     public method values {}
-    public method valuesObj {}
     public method units { axis }
     public method label { axis }
@@ -141 +140 @@
 # ----------------------------------------------------------------------
 # method mesh 
-#       Returns a Tcl list that represents the points  of the uniform
-#       grid.
+#       Returns a Tcl list that represents the points of the uniform
+#       grid.  Each point has x,y and z values in the list.
 # ----------------------------------------------------------------------
 itcl::body Rappture::Unirect3d::mesh {} {
@@ -163 +162 @@
 
 # ----------------------------------------------------------------------
-# method values 
-#       Returns a Tcl list that represents the field values
+# method values
+#       Returns a BLT vector that represents the field values
 # ----------------------------------------------------------------------
 itcl::body Rappture::Unirect3d::values {} {
-    if { [$_values length] > 0 } {
-        return [$_values range 0 end]
-    }
-    return ""
-}
-
-# ----------------------------------------------------------------------
-# method valuesObj 
-#       Returns a BLT vector that represents the field values
-# ----------------------------------------------------------------------
-itcl::body Rappture::Unirect3d::valuesObj {} {
     return $_values
 }

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -1073 +1073 @@
             SendCmd [list axis name $axis $label]
 
+            set units ""
             if {$axis == "z" && [$_first hints ${axis}units] == ""} {
                 if {$_curFldName != ""} {