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

Timestamp:

Mar 10, 2011 7:22:47 AM (13 years ago)

Author:

gah

Message:

Fixed mesh to *not* interpolate grid values. Used in vtkcontourviewer.

File:

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

trunk/gui/scripts/unirect2d.tcl

@@ -24 +24 @@
     public method limits {axis}
     public method blob {}
+    public method mesh.old {}
     public method mesh {}
     public method values {}
@@ -137 +138 @@
 
 # ----------------------------------------------------------------------
-# method mesh 
-#       Returns a base64 encoded, gzipped Tcl list that represents the
-#       Tcl command and data to recreate the uniform rectangular grid 
-#       on the nanovis server.
-# ----------------------------------------------------------------------
-itcl::body Rappture::Unirect2d::mesh {} {
+# method mesh.old 
+#       Returns a base64 encoded, gzipped Tcl list that represents the
+#       Tcl command and data to recreate the uniform rectangular grid 
+#       on the nanovis server.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Unirect2d::mesh.old {} {
     set dx [expr {($_xMax - $_xMin) / double($_xNum)}]
     set dy [expr {($_yMax - $_yMin) / double($_yNum)}]
@@ -153 +154 @@
     }
     return $data
+}
+
+# ----------------------------------------------------------------------
+# method mesh
+#       Returns a base64 encoded, gzipped Tcl list that represents the
+#       Tcl command and data to recreate the uniform rectangular grid 
+#       on the nanovis server.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Unirect2d::mesh {} {
+    lappend out $_xMin $_xMax $_xNum $_yMin $_yMax $_yNum
+    return $out
 }