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

Timestamp:

Mar 5, 2013, 11:29:33 PM (12 years ago)

Author:

ldelgass

Message:

Add support for discrete (step function) colormaps in heightmap viewer.

File:

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

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -215 +215 @@
         axisZGrid               0
         colormapVisible         1
+        colormapDiscrete        0
         edges                   0
         field                   "Default"
@@ -1350 +1351 @@
                 }
                 SetCurrentColormap $color
+                if {$_settings(colormapDiscrete)} {
+                    set numColors [expr $_settings(numIsolines) - 1]
+                    SendCmd "colormap res $numColors $color"
+                }
             }
             #SendCmd "heightmap colormode scalar $_curFldName"
@@ -1359 +1364 @@
             set bool $_settings($what)
             SendCmd "heightmap surface $bool"
+        }
+        "colormapDiscrete" {
+            set bool $_settings($what)
+            set numColors [expr $_settings(numIsolines) - 1]
+            StartBufferingCommands
+            if {$bool} {
+                SendCmd "colormap res $numColors"
+            } else {
+                SendCmd "colormap res default"
+            }
+            SendCmd "heightmap preinterp $bool"
+            StopBufferingCommands
+            EventuallyRequestLegend
         }
         "edges" {
@@ -1530 +1548 @@
             set _currentNumIsolines $_settings(numIsolines)
             SendCmd "heightmap numcontours $_settings(numIsolines)"
-            DrawLegend
+            if {$_settings(colormapDiscrete)} {
+                set numColors [expr $_settings(numIsolines) - 1]
+                SendCmd "colormap res $numColors"
+                EventuallyRequestLegend
+            } else {
+                DrawLegend
+            }
         }
         "opacity" {
@@ -1789 +1813 @@
         -font "Arial 9"
 
+    checkbutton $inner.colormapDiscrete \
+        -text "Discrete Colormap" \
+        -variable [itcl::scope _settings(colormapDiscrete)] \
+        -command [itcl::code $this AdjustSetting colormapDiscrete] \
+        -font "Arial 9"
+
     itk_component add field_l {
         label $inner.field_l -text "Field" -font "Arial 9" 
@@ -1905 +1935 @@
         6,0 $inner.edges      -anchor w -pady 2 -cspan 2 \
         7,0 $inner.legend     -anchor w -pady 2 -cspan 2 \
-        8,0 $inner.wireframe  -anchor w -pady 2 -cspan 2\
-        9,0 $inner.outline    -anchor w -pady 2 -cspan 2 \
-        10,0 $inner.isolines   -anchor w -pady 2 -cspan 2 \
-        11,0 $inner.separator -padx 2 -fill x -cspan 2 \
-        12,0 $inner.lighting   -anchor w -pady 2 -cspan 2 \
-        13,0 $inner.opacity_l -anchor w -pady 2 \
-        13,1 $inner.opacity   -fill x   -pady 2 \
-        14,0 $inner.scale_l   -anchor w -pady 2 -cspan 2 \
-        14,1 $inner.scale     -fill x   -pady 2 -cspan 2 \
+        8,0 $inner.colormapDiscrete -anchor w -pady 2 -cspan 2 \
+        9,0 $inner.wireframe  -anchor w -pady 2 -cspan 2\
+        10,0 $inner.outline    -anchor w -pady 2 -cspan 2 \
+        11,0 $inner.isolines   -anchor w -pady 2 -cspan 2 \
+        12,0 $inner.separator -padx 2 -fill x -cspan 2 \
+        13,0 $inner.lighting   -anchor w -pady 2 -cspan 2 \
+        14,0 $inner.opacity_l -anchor w -pady 2 \
+        14,1 $inner.opacity   -fill x   -pady 2 \
+        15,0 $inner.scale_l   -anchor w -pady 2 -cspan 2 \
+        15,1 $inner.scale     -fill x   -pady 2 -cspan 2 \
 
     blt::table configure $inner r* c* -resize none
-    blt::table configure $inner r15 c1 -resize expand
+    blt::table configure $inner r16 c1 -resize expand
 }
 
@@ -2177 +2208 @@
     if { $_currentNumIsolines != $style(-levels) } {
         set _currentNumIsolines $style(-levels)
+        set _settings(numIsolines) $_currentNumIsolines
         DrawLegend
     }