Changeset 4428 for branches/1.3

Timestamp:

Jun 25, 2014, 11:29:50 AM (10 years ago)

Author:

gah

Message:

test for change in limits in isosurfaces

File:

• branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl (modified) (6 diffs)

branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl

@@ -141 +141 @@
     private variable _isolines
     private variable _contourList
-
+    private variable _currentLimits ""
     common _downloadPopup;              # download options from popup
     private common _hardcopy
@@ -577 +577 @@
     set _obj2ovride($dataobj-width) $params(-width)
     set _obj2ovride($dataobj-raise) $params(-raise)
-    EventuallyChangeContourLevels
     $_dispatcher event -idle !rebuild
 }
@@ -609 +608 @@
     # If anything changed, then rebuild the plot
     if { $changed } {
-        EventuallyChangeContourLevels
         $_dispatcher event -idle !rebuild
     }
@@ -1069 +1067 @@
         }
         $itk_component(field) value $_curFldLabel
+
+        if { ![info exists _limits($_curFldName)] } {
+            SendCmd "dataset maprange all"
+        } else {
+            set limits $_limits($_curFldName)
+            SendCmd "dataset maprange explicit $limits $_curFldName"
+            if { $limits != $_currentLimits } {
+                set _currentLimits $limits
+                EventuallyChangeContourLevels
+            }
+        }
     }
     InitSettings -cutplanesvisible -isosurfacevisible -isosurfaceoutline
@@ -1453 +1462 @@
         "-numcontours" {
             set _settings($what) [$itk_component(numcontours) value]
-            set _contourList(numLevels) $_settings($what)
-            EventuallyChangeContourLevels
+            if { $_contourList(numLevels) != $_settings($what) } {
+                set _contourList(numLevels) $_settings($what)
+                EventuallyChangeContourLevels
+            }
         }
         "-isosurfacewireframe" {
@@ -1525 +1536 @@
                 puts stderr "dataset maprange all"
             } else {
-                puts stderr "dataset maprange explicit $_limits($_curFldName) $_curFldName"         
                 SendCmd "dataset maprange explicit $_limits($_curFldName) $_curFldName"
             }