Changeset 2504 for trunk/gui/scripts/field.tcl

Timestamp:

Sep 9, 2011, 1:37:32 PM (13 years ago)

Author:

gah

Message:

create vtkstreamlinesviewer client

File:

• trunk/gui/scripts/field.tcl (modified) (12 diffs)

trunk/gui/scripts/field.tcl

@@ +1 @@
+
 # ----------------------------------------------------------------------
 #  COMPONENT: field - extracts data from an XML description of a field
@@ -28 +29 @@
     public method controls {option args}
     public method hints {{key ""}}
+    public method style { cname }
     public method isunirect2d {}
     public method isunirect3d {}
     public method extents {{what -overall}}
     public method flowhints { cname }
+    public method type {}
+
     protected method _build {}
     protected method _getValue {expr}
@@ -45 +49 @@
     private variable _comp2xy    ;# maps component name => x,y vectors
     private variable _comp2vtk   ;# maps component name => vtkFloatArray
+    private variable _comp2vtkstreamlines   ;# maps component name => vtkFloatArray
     private variable _comp2dx    ;# maps component name => OpenDX data
     private variable _comp2unirect2d ;# maps component name => unirect2d obj
@@ -51 +56 @@
     private variable _comp2cntls ;# maps component name => x,y control points
     private variable _comp2extents 
+    private variable _type "" 
     private variable _comp2flowhints 
     private common _counter 0    ;# counter for unique vector names
@@ -183 +189 @@
         return [lindex $_comp2xy($what) 0]  ;# return xv
     }
+    if { [info exists _comp2vtkstreamlines($what)] } {
+        error "mesh: not implemented for streamlines"
+        return [$mobj mesh]
+    }
     if { [info exists _comp2vtk($what)] } {
         set mobj [lindex $_comp2vtk($what) 0]
@@ -215 +225 @@
         return [lindex $_comp2xy($what) 1]  ;# return yv
     }
+    if { [info exists _comp2vtkstreamlines($what)] } {
+        # FIXME: Need to process the vtk file data to pull out the field's
+        # values.
+        error "vtkstreamlines: values not implements"
+        return [lindex $_comp2vtkstreamlines($what) 1] 
+    }
     if { [info exists _comp2vtk($what)] } {
         return [lindex $_comp2vtk($what) 1]  ;# return vtkFloatArray
@@ -244 +260 @@
     if { [info exists _comp2vtk($what)] } {
         return ""
+    }
+    if { [info exists _comp2vtkstreamlines($what)] } {
+        # Return the contents of the vtk file.
+        return $_comp2vtkstreamlines($what)
     }
     if {[info exists _comp2dx($what)]} {
@@ -547 +567 @@
     catch {unset _comp2dims}
     catch {unset _comp2style}
+    array unset _comp2vtkstreamlines
     array unset _comp2unirect2d
     array unset _comp2unirect3d
     array unset _comp2extents
+    array unset _dataobj2type
     #
     # Scan through the components of the field and create
@@ -564 +586 @@
             set type "points-on-mesh"
         } elseif {[$_field element $cname.vtk] != ""} {
-            set type "vtk"
+            if { [$_field get "about.viewer"] == "streamlines" } {
+                set type "vtkstreamlines"
+            } else {
+                set type "vtk"
+            }
         } elseif {[$_field element $cname.opendx] != ""} {
             set type "opendx"
@@ -579 +605 @@
         }
         set _comp2extents($cname) $extents
-
+        set _type $type
         if {$type == "1D"} {
             #
@@ -739 +765 @@
             set _comp2style($cname) [$_field get $cname.style]
             incr _counter
+        } elseif {$type == "vtkstreamlines"} {
+            set _comp2dims($cname) "3D"
+            set _comp2vtkstreamlines($cname) [$_field get $cname.vtk]
+            set _comp2style($cname) [$_field get $cname.style]
+            incr _counter
         } elseif {$type == "dx"} {
             #
@@ -848 +879 @@
 
 #
+# style  --
+#
+# Returns the style associated with a component of the field.  
+#
+itcl::body Rappture::Field::style { cname } {
+    if { [info exists _comp2style($cname)] } {
+        return $_comp2style($cname)
+    }
+    return ""
+}
+
+#
+# type  --
+#
+# Returns the style associated with a component of the field.  
+#
+itcl::body Rappture::Field::type {} {
+    return $_type
+}
+
+#
 # extents --
 #