Changeset 3508 for trunk/gui

Timestamp:

Mar 15, 2013, 4:47:18 PM (12 years ago)

Author:

gah

Message:

fix for no dim tag with old style nodes and elements

Location:

trunk/gui/scripts

Files:

• field.tcl (modified) (1 diff)
• mesh.tcl (modified) (5 diffs)

trunk/gui/scripts/field.tcl

@@ -807 +807 @@
             set _comp2dims($cname) "3D"
             set _comp2dx($cname)  [$_fldObj get -decode no $cname.dx]
-            if 1 {
+            if 0 {
                 set data  [$_fldObj get -decode yes $cname.dx]
                 set file "/tmp/junk.dx"

trunk/gui/scripts/mesh.tcl

@@ -147 +147 @@
         set _limits($axis) ""
     }
-    GetDimension $path
     set u [$_mesh get units]
     if {"" != $u} {
@@ -394 +393 @@
     set _type "vtk"
 
+    GetDimension $path
     # Create a VTK file with the mesh in it.  
     set _vtkdata [$_xmlobj get $path.vtk]
@@ -415 +415 @@
     set output [$reader GetOutput]
     foreach { xmin xmax ymin ymax zmin zmax } [$output GetBounds] break
-    set _dim 3;                         # Hard coding all vtk meshes to 3D?
     set _limits(x) [list $xmin $xmax]
     set _limits(y) [list $ymin $ymax]
     set _limits(z) [list $zmin $zmax]
-    if { $zmin >= $zmax } {
-        set _dim 2
-    } 
     file delete $tmpfile
     rename $output ""
@@ -430 +426 @@
 itcl::body Rappture::Mesh::ReadGrid { path } {
     set _type "grid"
+
+    GetDimension $path
     set numUniform 0
     set numRectilinear 0
@@ -943 +941 @@
     set _type "unstructured"
 
+    GetDimension $path
     # Step 1: Verify that there's only one cell tag of any kind.
     set numCells 0