Changeset 3912 for trunk/gui

Timestamp:

Sep 9, 2013 3:07:23 PM (11 years ago)

Author:

gah

Message:

add check to automatically set -stretchtofit when x and y axis scales differ greatly

File:

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

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -124 +124 @@
     private variable _currentOpacity ""
 
+    private variable _maxScale 100;     # This is the # of times the x-axis
+                                        # and y-axis ranges can differ before
+                                        # automatically turning on
+                                        # -stretchtofit
+
     private variable _click        ;    # info used for rotate operations
     private variable _limits       ;    # Holds overall limits for all dataobjs 
@@ -645 +650 @@
             set _limits($fname) [list $fmin $fmax]
         }
+    }
+    # Check if the range of the x and y axes requires that we stretch
+    # the contour to fit the plotting area.  This can happen when the
+    # x and y scales differ greatly (> 100x)
+    foreach {xmin xmax} $_limits(x) break
+    foreach {ymin ymax} $_limits(y) break
+    if { (($xmax - $xmin) > (($ymax -$ymin) * $_maxScale)) ||
+         ((($xmax - $xmin) * $_maxScale) < ($ymax -$ymin)) } {
+        set _settings(stretchToFit) 1
     }
 }
@@ -2264 +2278 @@
         $itk_component(colormap) value $style(-color)
     }
+    if { [info exists style(-stretchtofit)] } {
+        set _settings(stretchToFit) $style(-stretchtofit)
+        AdjustSetting stretchToFit
+    }
     set _currentOpacity $style(-opacity)
     if { $_currentNumIsolines != $style(-levels) } {