Changeset 5577 for trunk/gui/scripts/unirect2d.tcl

Timestamp:

May 19, 2015, 9:15:39 PM (9 years ago)

Author:

ldelgass

Message:

Fix for VTK header

File:

• trunk/gui/scripts/unirect2d.tcl (modified) (1 diff)

trunk/gui/scripts/unirect2d.tcl

@@ -158 +158 @@
     append out "DATASET STRUCTURED_POINTS\n"
     append out "DIMENSIONS $_xNum $_yNum 1\n"
-    set xSpace [expr ($_xMax - $_xMin) / double($_xNum - 1)]
-    set ySpace [expr ($_yMax - $_yMin) / double($_yNum - 1)]
+    append out "ORIGIN $_xMin $_yMin 0\n"
+    if { $_xNum > 1 } {
+        set xSpace [expr (double($_xMax) - double($_xMin)) / double($_xNum - 1)]
+    } else {
+        set xSpace 0.0
+    }
+    if { $_yNum > 1 } {
+        set ySpace [expr (double($_yMax) - double($_yMin)) / double($_yNum - 1)]
+    } else {
+        set ySpace 0.0
+    }
     append out "SPACING $xSpace $ySpace 0\n"
-    append out "ORIGIN $_xMin $_yMin 0\n"
     set _vtkdata $out
     set _isValid 1