Changeset 5568

Timestamp:

May 19, 2015, 2:55:05 PM (9 years ago)

Author:

ldelgass

Message:

Fix origin in unirect2d->VTK conversion

File:

• trunk/gui/scripts/unirect2d.tcl (modified) (3 diffs)

trunk/gui/scripts/unirect2d.tcl

@@ -62 +62 @@
         return $_numPoints
     }
-    public method vtkdata {} {
-        return $_vtkdata
-    }
+    public method vtkdata {{what -partial}} {}
 }
 
@@ -162 +160 @@
     set ySpace [expr ($_yMax - $_yMin) / double($_yNum - 1)]
     append out "SPACING $xSpace $ySpace 0\n"
-    append out "ORIGIN 0 0 0\n"
+    append out "ORIGIN $_xMin $_yMin 0\n"
     set _vtkdata $out
     set _isValid 1
@@ -277 +275 @@
 }
 
+itcl::body Rappture::Unirect2d::vtkdata {{what -partial}} {
+    if {$what == "-full"} {
+        append out "# vtk DataFile Version 3.0\n"
+        append out "[hints label]\n"
+        append out "ASCII\n"
+        append out $_vtkdata
+        return $out
+    } else {
+        return $_vtkdata
+    }
+}
+
 itcl::body Rappture::Unirect2d::GetSize { obj path varName } {
     set string [$obj get $path]