Changeset 3323 for branches/Rappture 1.2/gui/scripts/mesh.tcl

Timestamp:

Feb 22, 2013, 4:28:34 PM (11 years ago)

Author:

gah

Message:

mesh cleanup for curvilinear grid

File:

• branches/Rappture 1.2/gui/scripts/mesh.tcl (modified) (7 diffs)

branches/Rappture 1.2/gui/scripts/mesh.tcl

@@ -71 +71 @@
     private variable _yv        ""
     private variable _zv        ""
-    private variable _bltmesh   ""
     private variable _xCoords   "";     # For the blt contour only
     private variable _yCoords   "";     # For the blt contour only
@@ -233 +232 @@
         rename $_points ""
     }
-    if { $_bltmesh != "" } {
-        blt::mesh destroy $_bltmesh
-    }
 }
 
@@ -310 +306 @@
         "vtk" { 
             return $_vtkgrid 
-        }
-        "blt" { 
-            return $_bltmesh
         }
         default { 
@@ -532 +525 @@
             error "curvilinear grid must be 2D or 3D."
         }
-        set data [$xmlobj get $path.grid.points]
+        set points [$xmlobj get $path.grid.points]
         if { $points == "" } {
             error "missing <points> from grid description."
@@ -547 +540 @@
         if { [info exists zNum] } {
             set _dim 3
-            set _numPoints [expr $xNum * $yNum * zNum]
+            set _numPoints [expr $xNum * $yNum * $zNum]
             $all set $points
             if { ($_numPoints*3) != $numCoords } {
@@ -557 +550 @@
             $all split $xv $yv $zv
             foreach axis {x y z} {
-                set vector ${axis}v
+                set vector [set ${axis}v]
                 set _limits($axis) [$vector limits]
             }
@@ -576 +569 @@
             }
             foreach axis {x y} {
-                set vector ${axis}v
+                set vector [set ${axis}v]
                 set _limits($axis) [$vector limits]
             }