Changeset 5579 for trunk

Timestamp:

May 19, 2015, 10:18:44 PM (9 years ago)

Author:

ldelgass

Message:

VTK output for unirect3d

File:

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

trunk/gui/scripts/field.tcl

@@ -1306 +1306 @@
         return [Rappture::DxToVtk $data]
     }
+    # unirect3d (deprecated)
+    if {[info exists _comp2unirect3d($cname)]} {
+        set vector [$_comp2unirect3d($cname) values]
+        set label $cname
+        regsub -all { } $label {_} label
+        set elemSize [numComponents $cname]
+        set numValues [expr [$vector length] / $elemSize]
+        append out "# vtk DataFile Version 3.0\n"
+        append out "[hints label]\n"
+        append out "ASCII\n"
+        append out [$_comp2unirect3d($cname) vtkdata]
+        append out "POINT_DATA $numValues\n"
+        if {$elemSize == 3} {
+            append out "VECTORS $label double\n"
+        } else {
+            append out "SCALARS $label double $elemSize\n"
+            append out "LOOKUP_TABLE default\n"
+        }
+        # values for VTK are x-fastest
+        append out [$vector range 0 end]
+        append out "\n"
+        return $out
+    }
     # Points on mesh:  Construct VTK file output.
     if { [info exists _comp2mesh($cname)] } {