Changeset 2605 for trunk/gui/scripts

Timestamp:

Oct 6, 2011, 12:32:56 PM (13 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/vtkstreamlinesviewer.tcl

@@ -1039 +1039 @@
     $itk_component(field) value $_currentField
 
-    InitSettings streamlines-seeds streamlines-visible streamlines-opacity \
-        streamlines-numpoints streamlines-lighting streamlines-palette \
-        volume-edges volume-lighting volume-opacity volume-visible \
-        volume-wireframe \
-        cutplane-xvisible cutplane-yvisible cutplane-zvisible \
-        cutplane-xposition cutplane-yposition cutplane-zposition 
-
-    if { $_reset || $_first == "" } {
+    InitSettings streamlines-visible streamlines-palette volume-visible 
+
+    if { $_reset } {
+        InitSettings streamlines-seeds streamlines-opacity \
+            streamlines-numpoints streamlines-lighting \
+            streamlines-palette streamlines-field \
+            volume-edges volume-lighting volume-opacity volume-wireframe \
+            cutplane-xvisible cutplane-yvisible cutplane-zvisible \
+            cutplane-xposition cutplane-yposition cutplane-zposition 
         Zoom reset
         set _reset 0
@@ -1473 +1474 @@
             set new [$itk_component(field) value]
             set value [$itk_component(axismode) translate $new]
-            puts stderr "streamlines-field old field=$_currentField new field = $new value=$value"
             set _settings(streamlines-field) $value
             if { [info exists _scalarFields($new)] } {
@@ -1490 +1490 @@
             }
             foreach dataset [CurrentDatasets -visible] {
-                puts stderr "dataset ${fieldType} ${name} $dataset"
-                puts stderr "streamlines colormode $_colorMode $dataset"
-                puts stderr "cutplane colormode $_colorMode $dataset"
                 SendCmd "dataset ${fieldType} ${name} $dataset"
                 SendCmd "streamlines colormode $_colorMode $dataset"