Changeset 3554 for trunk/gui/scripts/vtkheightmapviewer.tcl

Timestamp:

Mar 22, 2013 2:35:51 PM (11 years ago)

Author:

ldelgass

Message:

Translate heightmaps to put minimum at z=0. Should put dataset outline inside
bounds of heightmap and allow drawing outline without blowing out the bounds
in 3D mode

File:

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

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -1700 +1700 @@
     set bmin [expr $heightScale * $dataScale * $vmin]
     set bmax [expr $heightScale * $dataScale * $vmax]
+    if {$heightScale > 0} {
+        set zpos [expr - $bmin]
+        SendCmd "heightmap pos 0 0 $zpos"
+    } else {
+        SendCmd "heightmap pos 0 0 0"
+    }
+    set bmax [expr $bmax - $bmin]
+    set bmin 0
     SendCmd "dataset maprange explicit $_limits($_curFldName) $_curFldName"
     SendCmd "axis bounds z $bmin $bmax"