Changeset 3250

Timestamp:

Jan 9, 2013, 5:53:19 PM (12 years ago)

Author:

gah

Message:

remove extraneous server commands on initialization

File:

• branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl (modified) (2 diffs)

branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl

@@ -2311 +2311 @@
         -lighting 1
         -linewidth 1.0
-        -opacity 1.0
         -levels 10
         -visible 1
-        -wireframe 0
-        -isolinecolor red
     }
     set style [$dataobj style $comp]
@@ -2328 +2325 @@
     }
     $itk_component(palette) value $settings(-color)
-    $itk_component(isolinecolor) value $settings(-isolinecolor)
     set _numContours $settings(-levels)
     set scale [GetHeightmapScale]
     SendCmd "heightmap add numcontours $settings(-levels) $scale $tag"
     set _comp2scale($tag) $_settings(heightmap-scale)
-    SendCmd "heightmap edges $settings(-edges) $tag"
-    set _settings(contour-edges) $settings(-edges)
-    SendCmd "heightmap lighting $settings(-lighting) $tag"
-    set _settings(contour-lighting) $settings(-lighting)
-    SendCmd "heightmap linecolor [Color2RGB $settings(-edgecolor)] $tag"
-    SendCmd "heightmap linewidth $settings(-linewidth) $tag"
-    SendCmd "heightmap opacity $settings(-opacity) $tag"
-    set _settings(contour-opacity) $settings(-opacity)
-    SendCmd "heightmap wireframe $settings(-wireframe) $tag"
-    set _settings(contour-wireframe) $settings(-wireframe)
-    set _settings(contour-opacity) [expr $settings(-opacity) * 100.0]
+    SendCmd "heightmap edges $_settings(contour-edges) $tag"
+    SendCmd "heightmap lighting $_settings(contour-lighting) $tag"
+    SendCmd "heightmap wireframe $_settings(contour-wireframe) $tag"
     SetColormap $dataobj $comp
 }