Changeset 3543 for trunk/gui/scripts

Timestamp:

Mar 19, 2013 6:12:40 PM (11 years ago)

Author:

gah

Message:

fix order of values in legend; tweak placement of isosurfaces

File:

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

trunk/gui/scripts/vtkisosurfaceviewer.tcl

@@ -2428 +2428 @@
         }
         foreach value $_contourList {
-            set norm [expr ($value - $vmin) / $range]
+            set norm [expr 1.0 - (($value - $vmin) / $range)]
             set y1 [expr int(round(($norm * $ih) + $offset))]
             for { set off 0 } { $off < 3 } { incr off } {
@@ -2549 +2549 @@
 }
 
+
 itcl::body Rappture::VtkIsosurfaceViewer::UpdateContourList {} { 
     if { ![info exists _limits($_curFldName)] } {
@@ -2555 +2556 @@
     foreach { vmin vmax } $_limits($_curFldName) break
     set v [blt::vector create \#auto] 
-    $v seq $vmin $vmax [expr $_currentNumContours+2]
-    $v delete end 0 
+    $v seq $vmin $vmax [expr $_currentNumContours+1]
+    set slice [expr ($vmax - $vmin) / double($_currentNumContours)]
+    $v expr {$v + ($slice * 0.5)}
+    $v delete end 
     set _contourList [$v range 0 end]
     blt::vector destroy $v