Changeset 2569 for trunk/gui/scripts

Timestamp:

Sep 22, 2011, 7:02:26 PM (13 years ago)

Author:

ldelgass

Message:

Fix for sending seed VTK file (from seeds hint)

File:

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

trunk/gui/scripts/vtkstreamlinesviewer.tcl

@@ -1975 +1975 @@
     array set settings $style
     SendCmd "streamlines add $tag"
-    SendCmd "streamlines seed visible off"
+    SendCmd "streamlines seed visible off $tag"
     set seeds [$dataobj hints seeds]
     if { $seeds != "" && ![info exists _seeds($dataobj)] } {
         set length [string length $seeds]
-        set stag $dataobj-seeds
-        SendCmd "dataset add $stag data follows $length"
+        SendCmd "streamlines seed fmesh 200 data follows $length $tag"
         SendCmd "$seeds"
-        SendCmd "dataset visible 0 $stag"
-        SendCmd "streamlines seed random 1000 $stag"
         set _seeds($dataobj) 1
     }