Changeset 3662

Timestamp:

May 17, 2013, 7:02:04 PM (11 years ago)

Author:

gah

Message:

add drawings to sequence.

Location:

trunk/gui/scripts

Files:

• sequence.tcl (modified) (1 diff)
• sequenceresult.tcl (modified) (1 diff)
• vtkviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/sequence.tcl

@@ -74 +74 @@
                 curve {
                     set obj [Rappture::Curve ::\#auto $xmlobj $path.$name.$cname]
+                }
+                drawing {
+                    set obj [Rappture::Drawing ::\#auto $xmlobj $path.$name.$cname]
                 }
                 datatable {

trunk/gui/scripts/sequenceresult.tcl

@@ -459 +459 @@
         switch -- $type {
             ::Rappture::Drawing {
-                Rappture::VtkViewer $w
+                set servers [Rappture::VisViewer::GetServerList "nanovis"]
+                Rappture::VtkViewer $w $servers
                 pack $w -expand yes -fill both
             }

trunk/gui/scripts/vtkviewer.tcl

@@ -879 +879 @@
     set _limits(zmax) ""
     set _first ""
+    SendCmd "dataset visible 0"
+    SendCmd "molecule visible 0"
+    set count 0
     foreach dataobj [get -objects] {
         if { [info exists _obj2ovride($dataobj-raise)] &&  $_first == "" } {
@@ -910 +913 @@
             if { [info exists _obj2ovride($dataobj-raise)] } {
                 SendCmd "dataset visible 1 $tag"
-            } else {
-                SendCmd "dataset visible 0 $tag"
+                puts stderr "$count: dataset visible 1 $tag"
             }
             SetObjectStyle $dataobj $comp
@@ -1589 +1591 @@
 
 itcl::body Rappture::VtkViewer::limits { dataobj } {
-
-    array unset _limits $dataobj-*
+    puts stderr components=[$dataobj components]
     foreach comp [$dataobj components] {
         set tag $dataobj-$comp
@@ -1614 +1615 @@
             set pointData [$output GetPointData]
             set fieldData [$output GetFieldData]
-            if 0 {
+            if 1 {
                 puts stderr "\#scalars=[$reader GetNumberOfScalarsInFile]"
                 puts stderr "\#vectors=[$reader GetNumberOfVectorsInFile]"