Changeset 4395 for trunk

Timestamp:

Jun 18, 2014 11:22:33 AM (10 years ago)

Author:

ldelgass

Message:

Set number of cells in mesh for uniform/rectilinear/curvilinear grids

File:

• trunk/gui/scripts/mesh.tcl (modified) (11 diffs)

trunk/gui/scripts/mesh.tcl

@@ -63 +63 @@
         return $_numPoints
     }
-
+    public method numcells {} {
+        return $_numCells
+    }
 
     private common _xp2obj       ;      # used for fetch/release ref counting
@@ -551 +553 @@
             set _dim 3
             set _numPoints [expr $xNum * $yNum * $zNum]
+            set _numCells [expr ($xNum - 1) * ($yNum - 1) * ($zNum - 1)]
             if { ($_numPoints*3) != $numCoords } {
                 puts stderr "WARNING: bad grid \"$path\": invalid grid: \# of points does not match dimensions <xdim> * <ydim> * <zdim>"
@@ -573 +576 @@
             set _dim 2
             set _numPoints [expr $xNum * $yNum]
+            set _numCells [expr ($xNum - 1) * ($yNum - 1)]
             if { ($_numPoints*2) != $numCoords } {
                 puts stderr "WARNING: bad grid \"$path\": \# of points does not match dimensions <xdim> * <ydim>"
@@ -597 +601 @@
             set _dim 1
             set _numPoints $xNum
+            set _numCells [expr $xNum - 1]
             if { $_numPoints != $numCoords } {
                 puts stderr "WARNING: bad grid \"$path\": \# of points does not match <xdim>"
@@ -623 +628 @@
             set xSpace [expr ($xMax - $xMin) / double($xNum - 1)]
             set _numPoints $xNum
+            set _numCells [expr $xNum - 1]
             append out "DATASET STRUCTURED_POINTS\n"
             append out "DIMENSIONS $xNum 1 1\n"
@@ -635 +641 @@
             set ySpace [expr ($yMax - $yMin) / double($yNum - 1)]
             set _numPoints [expr $xNum * $yNum]
+            set _numCells [expr ($xNum - 1) * ($yNum - 1)]
             append out "DATASET STRUCTURED_POINTS\n"
             append out "DIMENSIONS $xNum $yNum 1\n"
@@ -649 +656 @@
             set zSpace [expr ($zMax - $zMin) / double($zNum - 1)]
             set _numPoints [expr $xNum * $yNum * $zNum]
+            set _numCells [expr ($xNum - 1) * ($yNum - 1) * ($zNum - 1)]
             append out "DATASET STRUCTURED_POINTS\n"
             append out "DIMENSIONS $xNum $yNum $zNum\n"
@@ -701 +709 @@
     if { $_dim == 3 } {
         set _numPoints [expr $xNum * $yNum * $zNum]
+        set _numCells [expr ($xNum - 1) * ($yNum - 1) * ($zNum - 1)]
         append out "DATASET RECTILINEAR_GRID\n"
         append out "DIMENSIONS $xNum $yNum $zNum\n"
@@ -720 +729 @@
     } elseif { $_dim == 2 } {
         set _numPoints [expr $xNum * $yNum]
+        set _numCells [expr ($xNum - 1) * ($yNum - 1)]
         append out "DATASET RECTILINEAR_GRID\n"
         append out "DIMENSIONS $xNum $yNum 1\n"
@@ -739 +749 @@
     } elseif { $_dim == 1 } {
         set _numPoints $xNum
+        set _numCells [expr $xNum - 1]
         append out "DATASET RECTILINEAR_GRID\n"
         append out "DIMENSIONS $xNum 1 1\n"
@@ -1160 +1171 @@
         }
     }
+    set _numPoints [$xv length]
+
     # Step 3: Write the points and cells as vtk data.
     if { $numCells == 0 } {