Changeset 1880 for branches/blt4/gui/scripts

Timestamp:

Aug 24, 2010, 8:38:37 PM (14 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

• drawing3d.tcl (modified) (7 diffs)
• vtkviewer.tcl (modified) (18 diffs)

branches/blt4/gui/scripts/drawing3d.tcl

@@ -31 +31 @@
     public method style { elem }
     public method values { elem }
+    public method data { elem }
     public method hints {{keyword ""}} 
     public method components { args } 
@@ -38 +39 @@
     private variable _actors 
     private variable _styles 
+    private variable _data 
     private variable _hints
     private variable _units
@@ -68 +70 @@
     # determine the overall size of the device
     foreach elem [$_xmlobj children $path] {
-        puts stderr elem=$elem
         switch -glob -- $elem {
             polygon* {
                 set data [$_xmlobj get $path.$elem.vtk]
-                puts stderr "data=$data"
                 set arr [vtkCharArray $this-xvtkCharArray]
                 $arr SetArray $data [string length $data] 1
@@ -85 +85 @@
                 set _limits($elem) [$actor GetBounds]
                 set _styles($elem) [$_xmlobj get $path.$elem.style]
+                set _data($elem) $mapper
             }
         }
@@ -129 +130 @@
 
 # ----------------------------------------------------------------------
-# method mesh 
+# method style 
 #       Returns a base64 encoded, gzipped Tcl list that represents the
 #       Tcl command and data to recreate the uniform rectangular grid 
@@ -142 +143 @@
 
 # ----------------------------------------------------------------------
+# method data 
+#       Returns a base64 encoded, gzipped Tcl list that represents the
+#       Tcl command and data to recreate the uniform rectangular grid 
+#       on the nanovis server.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Drawing3d::data { elem } {
+    if { [info exists _data($elem)] } {
+        return $_data($elem)
+    } 
+    return ""
+}
+
+# ----------------------------------------------------------------------
 # method values 
 #       Returns a base64 encoded, gzipped Tcl list that represents the
@@ -155 +169 @@
 
 itcl::body Rappture::Drawing3d::components { args } {
-    puts stderr "components=[array names _actors]"
     return [array names _actors] 
 }

branches/blt4/gui/scripts/vtkviewer.tcl

@@ -33 +33 @@
     inherit itk::Widget
 
+    itk_option define -plotforeground plotForeground Foreground ""
+    itk_option define -plotbackground plotBackground Background ""
+
     private variable _dlist ""     ;# list of data objects
     private variable _dims ""      ;# dimensionality of data objects
@@ -51 +54 @@
     private variable _interactor "";
     private variable _style "";
+    private variable _light "";
     private variable _cubeAxesActor ""
     private variable _axesActor ""
     private variable _axesWidget "";
-
+    private variable _settings
     constructor {args} { 
         # defined below 
@@ -82 +86 @@
     protected method SetActorProperties { actor style } 
 
-    itk_option define -plotforeground plotForeground Foreground ""
-    itk_option define -plotbackground plotBackground Background ""
+    private method BuildCameraTab {}
+    private method BuildCutplanesTab {}
+    private method BuildViewTab {}
+    private method BuildVolumeTab {}
+    protected method FixSettings {what {value ""}}
 
 }
@@ -109 +116 @@
     set _view(phi) 0
 
-    foreach val {xmin xmax ymin ymax zmin zmax vmin vmax} {
-        set _limits($val) ""
-    }
+    array set _limits {
+        xmin 0 
+        xmax 1
+        ymin 0
+        ymax 1
+        zmin 0
+        zmax 1
+        vmin 0
+        vmax 1
+    }
+
+    itk_component add main {
+        Rappture::SidebarFrame $itk_interior.main
+    }
+    pack $itk_component(main) -expand yes -fill both
+    set f [$itk_component(main) component frame]
 
     itk_component add controls {
-        frame $itk_interior.cntls
+        frame $f.cntls
     } {
         usual
@@ -169 +189 @@
 
     #
-    # Create slicer controls...
-    #
-    itk_component add slicers {
-        frame $itk_component(controls).slicers
-    } {
-        usual
-        rename -background -controlbackground controlBackground Background
-    }
-    pack $itk_component(slicers) -side bottom -padx 4 -pady 4
-    grid rowconfigure $itk_component(slicers) 1 -weight 1
-
-    #
-    # X-value slicer...
-    #
-    itk_component add xslice {
-        label $itk_component(slicers).xslice \
-            -borderwidth 1 -relief raised -padx 1 -pady 1 \
-            -bitmap [Rappture::icon x]
-    } {
-        usual
-        ignore -borderwidth
-        rename -highlightbackground -controlbackground controlBackground Background
-    }
-    bind $itk_component(xslice) <ButtonPress> \
-        [itcl::code $this Slice axis x toggle]
-    Rappture::Tooltip::for $itk_component(xslice) \
-        "Toggle the X cut plane on/off"
-    grid $itk_component(xslice) -row 0 -column 0 -sticky ew -padx 1
-
-    itk_component add xslicer {
-        ::scale $itk_component(slicers).xval -from 100 -to 0 \
-            -width 10 -orient vertical -showvalue off -state disabled \
-            -borderwidth 1 -highlightthickness 0 \
-            -command [itcl::code $this Slice move x]
-    } {
-        usual
-        ignore -borderwidth
-        ignore -highlightthickness
-        rename -highlightbackground -controlbackground controlBackground Background
-        rename -troughcolor -controldarkbackground controlDarkBackground Background
-    }
-    grid $itk_component(xslicer) -row 1 -column 0 -padx 1
-    Rappture::Tooltip::for $itk_component(xslicer) \
-        "@[itcl::code $this Slicertip x]"
-
-    #
-    # Y-value slicer...
-    #
-    itk_component add yslice {
-        label $itk_component(slicers).yslice \
-            -borderwidth 1 -relief raised -padx 1 -pady 1 \
-            -bitmap [Rappture::icon y]
-    } {
-        usual
-        ignore -borderwidth
-        rename -highlightbackground -controlbackground controlBackground Background
-    }
-    bind $itk_component(yslice) <ButtonPress> \
-        [itcl::code $this Slice axis y toggle]
-    Rappture::Tooltip::for $itk_component(yslice) \
-        "Toggle the Y cut plane on/off"
-    grid $itk_component(yslice) -row 0 -column 1 -sticky ew -padx 1
-
-    itk_component add yslicer {
-        ::scale $itk_component(slicers).yval -from 100 -to 0 \
-            -width 10 -orient vertical -showvalue off -state disabled \
-            -borderwidth 1 -highlightthickness 0 \
-            -command [itcl::code $this Slice move y]
-    } {
-        usual
-        ignore -borderwidth
-        ignore -highlightthickness
-        rename -highlightbackground -controlbackground controlBackground Background
-        rename -troughcolor -controldarkbackground controlDarkBackground Background
-    }
-    grid $itk_component(yslicer) -row 1 -column 1 -padx 1
-    Rappture::Tooltip::for $itk_component(yslicer) \
-        "@[itcl::code $this Slicertip y]"
-
-    #
-    # Z-value slicer...
-    #
-    itk_component add zslice {
-        label $itk_component(slicers).zslice \
-            -borderwidth 1 -relief raised -padx 1 -pady 1 \
-            -bitmap [Rappture::icon z]
-    } {
-        usual
-        ignore -borderwidth
-        rename -highlightbackground -controlbackground controlBackground Background
-    }
-    grid $itk_component(zslice) -row 0 -column 2 -sticky ew -padx 1
-    bind $itk_component(zslice) <ButtonPress> \
-        [itcl::code $this Slice axis z toggle]
-    Rappture::Tooltip::for $itk_component(zslice) \
-        "Toggle the Z cut plane on/off"
-
-    itk_component add zslicer {
-        ::scale $itk_component(slicers).zval -from 100 -to 0 \
-            -width 10 -orient vertical -showvalue off -state disabled \
-            -borderwidth 1 -highlightthickness 0 \
-            -command [itcl::code $this Slice move z]
-    } {
-        usual
-        ignore -borderwidth
-        ignore -highlightthickness
-        rename -highlightbackground -controlbackground controlBackground Background
-        rename -troughcolor -controldarkbackground controlDarkBackground Background
-    }
-    grid $itk_component(zslicer) -row 1 -column 2 -padx 1
-    Rappture::Tooltip::for $itk_component(zslicer) \
-        "@[itcl::code $this Slicertip z]"
-
-    #
     # RENDERING AREA
     #
     itk_component add area {
-        frame $itk_interior.area
+        frame $f.area
     }
     pack $itk_component(area) -expand yes -fill both
@@ -321 +227 @@
     $_axesWidget SetViewport 0 0 0.3 0.3
 
-    $_window LineSmoothingOn
-    $_window PolygonSmoothingOn
-
     $_cubeAxesActor SetXTitle "X Axis (units)"
     $_cubeAxesActor SetYTitle "Y Axis (units)"
 
-    if 0 {
-    vtkRenderer $this-ren2
-    vtkRenderWindow $this-vtkRenderWindow2
-    $this-vtkRenderWindow2 AddRenderer $this-vtkRenderer2
-    vtkRenderWindowInteractor $this-vtkInteractor2
-    $this-vtkInteractor2 SetRenderWindow $this-vtkRenderWindow2
-
-    itk_component add legend {
-        vtkTkRenderWidget $itk_component(area).legend \
-            -rw $this-vtkRenderWindow2 -width 1 -height 40
-    } {
-    }
-    pack $itk_component(legend) -side bottom -fill x
-    }
+    BuildViewTab
+    BuildVolumeTab
+    BuildCutplanesTab
+    BuildCameraTab
+
+    set v0 0
+    set v1 1
+    set _lookup [vtkLookupTable $this-Lookup]
+    $_lookup SetTableRange $v0 $v1
+    $_lookup SetHueRange 0.66667 0.0
+    $_lookup Build
+
+
+    #
+    # 3D CUT PLANES
+    #
+    foreach axis {x y z} norm {{1 0 0} {0 1 0} {0 0 1}} {
+
+        set plane [vtkPlane $this-${axis}cutplane]
+        eval $plane SetNormal $norm
+        set _slicer(${axis}plane) $plane
+        
+        set cutter [vtkCutter $this-${axis}cutter]
+        $cutter SetCutFunction $plane
+        
+        set mapper [vtkPolyDataMapper  $this-${axis}cutmapper]
+        $mapper SetInput [$cutter GetOutput]
+        $mapper SetScalarRange $v0 $v1
+        $mapper SetLookupTable $_lookup
+        
+        #lappend _obj2vtk($dataobj) $cutplane $cutter $mapper
+        
+        set actor [vtkActor $this-${axis}actor]
+        $actor VisibilityOn
+        $actor SetMapper $mapper
+        $actor SetPosition 0 0 0
+        [$actor GetProperty] SetColor 0 0 0
+        set _slicer(${axis}slice) $actor
+        
+        $_renderer AddActor $actor
+        lappend _actors($_renderer) $actor
+        #lappend _obj2vtk($dataobj) $actor
+    }
+    
+    #
+    # CUT PLANE READOUT
+    #
+    set mapper [vtkTextMapper $this-text]
+    set props [$mapper GetTextProperty]
+    #eval $props SetColor [_color2rgb $itk_option(-plotforeground)]
+    $props SetVerticalJustificationToTop
+    set _slicer(readout) $mapper
+            
+    set actor [vtkActor2D $this-texta]
+    $actor SetMapper $mapper
+    set coords [$actor GetPositionCoordinate] 
+    $coords SetCoordinateSystemToNormalizedDisplay
+    $coords SetValue 0.02 0.98
+            
+    $_renderer AddActor $actor
+    lappend _actors($_renderer) $actor
+    #lappend _obj2vtk($dataobj) $mapper $actor
+
+    # turn off all slicers by default
+    foreach axis {x y z} {
+        $itk_component(${axis}CutScale) configure -state normal
+        $itk_component(${axis}CutScale) set 50
+        Slice move $axis 50
+        Slice axis $axis off
+    }
+
+    set _light [vtkLight $this-Light]
+    $_light SetColor 1 1 1
+    $_light SetAttenuationValues 0 0 0
+    $_light SetFocalPoint 0 0 0
+    $_light SetLightTypeToHeadlight
+    $_renderer AddLight $_light
+
     #
     # Create a picture for download snapshots
@@ -680 +647 @@
             if {$op == ""} { set op "on" }
 
-            if {[$itk_component(${axis}slice) cget -relief] == "raised"} {
-                set current "off"
+            set current $_settings($this-${axis}cutplane)
+            if {$op == "toggle"} {
+                set op [expr $current==0]
+            }
+
+            if {$op} {
+                $itk_component(${axis}CutScale) configure -state normal
+                $_slicer(${axis}slice) VisibilityOn
+                $itk_component(${axis}CutButton) select
             } else {
-                set current "on"
-            }
-
-            if {$op == "toggle"} {
-                if {$current == "on"} { set op "off" } else { set op "on" }
-            }
-
-            if {$op} {
-                $itk_component(${axis}slicer) configure -state normal
-                $_slicer(${axis}slice) VisibilityOn
-                $itk_component(${axis}slice) configure -relief sunken
-            } else {
-                $itk_component(${axis}slicer) configure -state disabled
+                $itk_component(${axis}CutScale) configure -state disabled
                 $_slicer(${axis}slice) VisibilityOff
-                $itk_component(${axis}slice) configure -relief raised
+                $itk_component(${axis}CutButton) deselect
             }
             $_window Render
@@ -840 +802 @@
 itcl::body Rappture::VtkViewer::SetActorProperties { actor style } {
     array set props {
-        -color blue
+        -color \#6666FF
         -edgevisibility yes
         -edgecolor black
@@ -855 +817 @@
         $prop EdgeVisibilityOff
     }
+    set _settings($this-edges) $props(-edgevisibility)
     eval $prop SetEdgeColor [_color2rgb $props(-edgecolor)]
     $prop SetLineWidth $props(-linewidth)
     $prop SetOpacity $props(-opacity)
+    set _settings($this-opacity) [expr $props(-opacity) * 100.0]
 }
 
@@ -899 +863 @@
 
     if 0 {
-    set lu $this-vtkLookup$id
-    vtkLookupTable $lu
+    set lu $this-vtkLookup
+        vtkLookupTable $lu
     $lu SetTableRange $v0 $v1
     $lu SetHueRange 0.66667 0.0
@@ -924 +888 @@
         set zr [expr {$z1-$z0}]
 
-        set light [vtkLight $this-vtkLight$id]
+        set light [vtkLight $this-vtkLight]
         $light SetColor 1 1 1
         $light SetAttenuationValues 0 0 0
@@ -945 +909 @@
             $_cubeAxesActor SetCamera [$_renderer GetActiveCamera]
             eval $_cubeAxesActor SetBounds [$actor GetBounds]
-            puts stderr "added action $actor to $_renderer"
+
+            set mapper [$dataobj data $comp]
+            $this-xcutter SetInput [$mapper GetInput]
+
             if 0 {
             #
@@ -970 +937 @@
                       vtkPoints {
                         # handle cloud of 3D points
-                        set pd $this-polydata$id
+                        set pd $this-polydata
                         vtkPolyData $pd
                         $pd SetPoints $mesh
                         [$pd GetPointData] SetScalars [$dataobj values $comp]
 
-                        set tr $this-triangles$id
+                        set tr $this-triangles
                         vtkDelaunay3D $tr
                         $tr SetInput $pd
@@ -981 +948 @@
                         set source [$tr GetOutput]
 
-                        set mp $this-mapper$id
+                        set mp $this-mapper
                         vtkPolyDataMapper $mp
 
@@ -988 +955 @@
                       vtkUnstructuredGrid {
                         # handle 3D grid with connectivity
-                        set gr $this-grdata$id
+                        set gr $this-grdata
                         vtkUnstructuredGrid $gr
                         $gr ShallowCopy $mesh
@@ -998 +965 @@
                       vtkRectilinearGrid {
                         # handle 3D grid with connectivity
-                        set gr $this-grdata$id
+                        set gr $this-grdata
                         vtkRectilinearGrid $gr
                         $gr ShallowCopy $mesh
@@ -1014 +981 @@
                     # 3D ISOSURFACES
                     #
-                    set iso $this-iso$id
+                    set iso $this-iso
                     vtkContourFilter $iso
                       $iso SetInput $source
 
-                    set mp $this-isomap$id
+                    set mp $this-isomap
                     vtkPolyDataMapper $mp
                       $mp SetInput [$iso GetOutput]
 
-                    set ac $this-isoactor$id
+                    set ac $this-isoactor
                     vtkActor $ac
                       $ac SetMapper $mp
@@ -1318 +1285 @@
 }
 
+itcl::body Rappture::VtkViewer::BuildViewTab {} {
+    foreach { key value } {
+        edges           1
+        axes            1
+        wireframe       0
+        volume          1
+        legend          1
+        particles       1
+        lic             1
+    } {
+        set _settings($this-$key) $value
+    }
+
+    set fg [option get $itk_component(hull) font Font]
+    #set bfg [option get $itk_component(hull) boldFont Font]
+
+    set tab [$itk_component(main) insert end \
+        -title "View Settings" \
+        -icon [Rappture::icon wrench]]
+    blt::scrollset $tab.ss \
+        -xscrollbar $tab.ss.xs \
+        -yscrollbar $tab.ss.ys \
+        -window $tab.ss.frame
+    pack $tab.ss -fill both -expand yes 
+    blt::tk::scrollbar $tab.ss.xs               
+    blt::tk::scrollbar $tab.ss.ys               
+    set inner [blt::tk::frame $tab.ss.frame]
+    $inner configure -borderwidth 4
+
+    set ::Rappture::VtkViewer::_settings($this-isosurface) 0
+    checkbutton $inner.isosurface \
+        -text "Isosurface shading" \
+        -variable [itcl::scope _settings($this-isosurface)] \
+        -command [itcl::code $this FixSettings isosurface] \
+        -font "Arial 9"
+
+    checkbutton $inner.axes \
+        -text "Axes" \
+        -variable [itcl::scope _settings($this-axes)] \
+        -command [itcl::code $this FixSettings axes] \
+        -font "Arial 9"
+
+    checkbutton $inner.edges \
+        -text "Edges" \
+        -variable [itcl::scope _settings($this-edges)] \
+        -command [itcl::code $this FixSettings edges] \
+        -font "Arial 9"
+
+    checkbutton $inner.wireframe \
+        -text "Wireframe" \
+        -variable [itcl::scope _settings($this-wireframe)] \
+        -command [itcl::code $this FixSettings wireframe] \
+        -font "Arial 9"
+
+    checkbutton $inner.legend \
+        -text "Legend" \
+        -variable [itcl::scope _settings($this-legend)] \
+        -command [itcl::code $this FixSettings legend] \
+        -font "Arial 9"
+
+    checkbutton $inner.volume \
+        -text "Volume" \
+        -variable [itcl::scope _settings($this-volume)] \
+        -command [itcl::code $this FixSettings volume] \
+        -font "Arial 9"
+
+    blt::table $inner \
+        0,0 $inner.axes  -columnspan 2 -anchor w \
+        1,0 $inner.edges  -columnspan 2 -anchor w \
+        2,0 $inner.wireframe  -columnspan 2 -anchor w \
+        3,0 $inner.volume  -columnspan 2 -anchor w \
+        4,0 $inner.legend  -columnspan 2 -anchor w 
+
+    if 0 {
+    bind $inner <Map> [itcl::code $this GetVolumeInfo $inner]
+    }
+    blt::table configure $inner r* -resize none
+    blt::table configure $inner r5 -resize expand
+}
+
+itcl::body Rappture::VtkViewer::BuildVolumeTab {} {
+    foreach { key value } {
+        light           40
+        transp          50
+        opacity         1000
+    } {
+        set _settings($this-$key) $value
+    }
+
+    set tab [$itk_component(main) insert end \
+        -title "Volume Settings" \
+        -icon [Rappture::icon volume-on]]
+    blt::scrollset $tab.ss \
+        -xscrollbar $tab.ss.xs \
+        -yscrollbar $tab.ss.ys \
+        -window $tab.ss.frame
+    pack $tab.ss -fill both -expand yes 
+    blt::tk::scrollbar $tab.ss.xs               
+    blt::tk::scrollbar $tab.ss.ys               
+    set inner [blt::tk::frame $tab.ss.frame]
+    $inner configure -borderwidth 4
+
+    set fg [option get $itk_component(hull) font Font]
+    #set bfg [option get $itk_component(hull) boldFont Font]
+
+    checkbutton $inner.vol -text "Show volume" -font $fg \
+        -variable [itcl::scope _settings($this-volume)] \
+        -command [itcl::code $this FixSettings volume]
+    label $inner.shading -text "Shading:" -font $fg
+
+    label $inner.dim -text "Dim" -font $fg
+    ::scale $inner.light -from 0 -to 100 -orient horizontal \
+        -variable [itcl::scope _settings($this-light)] \
+        -width 10 \
+        -showvalue off -command [itcl::code $this FixSettings light]
+    label $inner.bright -text "Bright" -font $fg
+
+    label $inner.fog -text "Fog" -font $fg
+    ::scale $inner.transp -from 0 -to 100 -orient horizontal \
+        -variable [itcl::scope _settings($this-transp)] \
+        -width 10 \
+        -showvalue off -command [itcl::code $this FixSettings transp]
+    label $inner.plastic -text "Plastic" -font $fg
+
+    label $inner.clear -text "Clear" -font $fg
+    ::scale $inner.opacity -from 0 -to 100 -orient horizontal \
+        -variable [itcl::scope _settings($this-opacity)] \
+        -width 10 \
+        -showvalue off -command [itcl::code $this FixSettings opacity]
+    label $inner.opaque -text "Opaque" -font $fg
+
+    blt::table $inner \
+        0,0 $inner.vol -columnspan 4 -anchor w -pady 2 \
+        1,0 $inner.shading -columnspan 4 -anchor w -pady {10 2} \
+        2,0 $inner.dim -anchor e -pady 2 \
+        2,1 $inner.light -columnspan 2 -pady 2 -fill x \
+        2,3 $inner.bright -anchor w -pady 2 \
+        3,0 $inner.fog -anchor e -pady 2 \
+        3,1 $inner.transp -columnspan 2 -pady 2 -fill x \
+        3,3 $inner.plastic -anchor w -pady 2 \
+        4,0 $inner.clear -anchor e -pady 2 \
+        4,1 $inner.opacity -columnspan 2 -pady 2 -fill x\
+        4,3 $inner.opaque -anchor w -pady 2 
+
+    blt::table configure $inner c0 c1 c3 r* -resize none
+    blt::table configure $inner r6 -resize expand
+}
+
+itcl::body Rappture::VtkViewer::BuildCutplanesTab {} {
+
+    set tab [$itk_component(main) insert end \
+        -title "Cutplane Settings" \
+        -icon [Rappture::icon cutbutton]]
+    blt::scrollset $tab.ss \
+        -xscrollbar $tab.ss.xs \
+        -yscrollbar $tab.ss.ys \
+        -window $tab.ss.frame
+    pack $tab.ss -fill both -expand yes 
+    blt::tk::scrollbar $tab.ss.xs               
+    blt::tk::scrollbar $tab.ss.ys               
+    set inner [blt::tk::frame $tab.ss.frame]
+    $inner configure -borderwidth 4
+
+    # X-value slicer...
+    itk_component add xCutButton {
+        Rappture::PushButton $inner.xbutton \
+            -onimage [Rappture::icon x-cutplane] \
+            -offimage [Rappture::icon x-cutplane] \
+            -command [itcl::code $this FixSettings xcutplane] \
+            -variable [itcl::scope _settings($this-xcutplane)]
+    }
+    Rappture::Tooltip::for $itk_component(xCutButton) \
+        "Toggle the X cut plane on/off"
+
+    itk_component add xCutScale {
+        ::scale $inner.xval -from 100 -to 0 \
+            -width 10 -orient vertical -showvalue off -state disabled \
+            -borderwidth 1 -highlightthickness 0 \
+            -command [itcl::code $this Slice move x]
+    } {
+        usual
+        ignore -borderwidth -highlightthickness
+    }
+    # Set the default cutplane value before disabling the scale.
+    $itk_component(xCutScale) set 50
+    $itk_component(xCutScale) configure -state disabled
+    Rappture::Tooltip::for $itk_component(xCutScale) \
+        "@[itcl::code $this SlicerTip x]"
+
+    # Y-value slicer...
+    itk_component add yCutButton {
+        Rappture::PushButton $inner.ybutton \
+            -onimage [Rappture::icon y-cutplane] \
+            -offimage [Rappture::icon y-cutplane] \
+            -command [itcl::code $this FixSettings ycutplane] \
+            -variable [itcl::scope _settings($this-ycutplane)]
+    }
+    Rappture::Tooltip::for $itk_component(yCutButton) \
+        "Toggle the Y cut plane on/off"
+
+    itk_component add yCutScale {
+        ::scale $inner.yval -from 100 -to 0 \
+            -width 10 -orient vertical -showvalue off -state disabled \
+            -borderwidth 1 -highlightthickness 0 \
+            -command [itcl::code $this Slice move y]
+    } {
+        usual
+        ignore -borderwidth -highlightthickness
+    }
+    Rappture::Tooltip::for $itk_component(yCutScale) \
+        "@[itcl::code $this SlicerTip y]"
+    # Set the default cutplane value before disabling the scale.
+    $itk_component(yCutScale) set 50
+    $itk_component(yCutScale) configure -state disabled
+
+    # Z-value slicer...
+    itk_component add zCutButton {
+        Rappture::PushButton $inner.zbutton \
+            -onimage [Rappture::icon z-cutplane] \
+            -offimage [Rappture::icon z-cutplane] \
+            -command [itcl::code $this FixSettings zcutplane] \
+            -variable [itcl::scope _settings($this-zcutplane)]
+    }
+    Rappture::Tooltip::for $itk_component(zCutButton) \
+        "Toggle the Z cut plane on/off"
+
+    itk_component add zCutScale {
+        ::scale $inner.zval -from 100 -to 0 \
+            -width 10 -orient vertical -showvalue off -state disabled \
+            -borderwidth 1 -highlightthickness 0 \
+            -command [itcl::code $this Slice move z]
+    } {
+        usual
+        ignore -borderwidth -highlightthickness
+    }
+    $itk_component(zCutScale) set 50
+    $itk_component(zCutScale) configure -state disabled
+    #$itk_component(zCutScale) configure -state disabled
+    Rappture::Tooltip::for $itk_component(zCutScale) \
+        "@[itcl::code $this SlicerTip z]"
+
+    blt::table $inner \
+        1,1 $itk_component(xCutButton) \
+        1,2 $itk_component(yCutButton) \
+        1,3 $itk_component(zCutButton) \
+        0,1 $itk_component(xCutScale) \
+        0,2 $itk_component(yCutScale) \
+        0,3 $itk_component(zCutScale) 
+
+    blt::table configure $inner r0 r1 c* -resize none
+    blt::table configure $inner r2 c4 -resize expand
+    blt::table configure $inner c0 -width 2
+    blt::table configure $inner c1 c2 c3 -padx 2
+}
+
+itcl::body Rappture::VtkViewer::BuildCameraTab {} {
+    set tab [$itk_component(main) insert end \
+        -title "Camera Settings" \
+        -icon [Rappture::icon camera]]
+    blt::scrollset $tab.ss \
+        -xscrollbar $tab.ss.xs \
+        -yscrollbar $tab.ss.ys \
+        -window $tab.ss.frame
+    blt::tk::scrollbar $tab.ss.xs               
+    blt::tk::scrollbar $tab.ss.ys               
+    pack $tab.ss -fill both -expand yes 
+    set inner [blt::tk::frame $tab.ss.frame]
+    $inner configure -borderwidth 4
+
+    set labels { phi theta psi pan-x pan-y zoom }
+    set row 0
+    foreach tag $labels {
+        label $inner.${tag}label -text $tag -font "Arial 9"
+        entry $inner.${tag} -font "Arial 9"  -bg white \
+            -textvariable [itcl::scope _settings($this-$tag)]
+        bind $inner.${tag} <KeyPress-Return> \
+            [itcl::code $this camera set ${tag}]
+        blt::table $inner \
+            $row,0 $inner.${tag}label -anchor e -pady 2 \
+            $row,1 $inner.${tag} -anchor w -pady 2
+        blt::table configure $inner r$row -resize none
+        incr row
+    }
+    blt::table configure $inner c0 c1 -resize none
+    blt::table configure $inner c2 -resize expand
+    blt::table configure $inner r$row -resize expand
+}
+
+# ----------------------------------------------------------------------
+# USAGE: FixSettings <what> ?<value>?
+#
+# Used internally to update rendering settings whenever parameters
+# change in the popup settings panel.  Sends the new settings off
+# to the back end.
+# ----------------------------------------------------------------------
+itcl::body Rappture::VtkViewer::FixSettings {what {value ""}} {
+    switch -- $what {
+        light {
+        }
+        transp {
+        }
+        opacity {
+            set new [expr $_settings($this-opacity) * 0.01]
+            foreach dataobj [get] {
+                foreach comp [$dataobj components] {
+                    set actor [$dataobj values $comp]
+                    set prop [$actor GetProperty]
+                    $prop SetOpacity $new
+                }
+            }
+            $_window Render
+        }
+
+        "wireframe" {
+            foreach dataobj [get] {
+                foreach comp [$dataobj components] {
+                    set actor [$dataobj values $comp]
+                    set prop [$actor GetProperty]
+                    if { $_settings($this-wireframe) } {
+                        $prop SetRepresentationToWireframe
+                    } else {
+                        $prop SetRepresentationToSurface
+                    }
+                }
+            }
+            $_window Render
+        }
+        "isosurface" {
+        }
+        "edges" {
+            foreach dataobj [get] {
+                foreach comp [$dataobj components] {
+                    set actor [$dataobj values $comp]
+                    set prop [$actor GetProperty]
+                    if { $_settings($this-edges) } {
+                        $prop EdgeVisibilityOn
+                    } else {
+                        $prop EdgeVisibilityOff
+                    }
+                }
+            }
+            $_window Render
+        }
+        "axes" {
+            if { $_settings($this-axes) } {
+                $_cubeAxesActor VisibilityOn
+            } else {
+                $_cubeAxesActor VisibilityOff
+            }
+            $_window Render
+        }
+        "legend" {
+            if { $_settings($this-legend) } {
+                blt::table $itk_component(plotarea) \
+                    0,0 $itk_component(3dview) -fill both \
+                    1,0 $itk_component(legend) -fill x 
+                blt::table configure $itk_component(plotarea) r1 -resize none
+            } else {
+                blt::table forget $itk_component(legend)
+            }
+        }
+        "volume" {
+        }
+        "xcutplane" - "ycutplane" - "zcutplane" {
+            set axis [string range $what 0 0]
+            set bool $_settings($this-$what)
+            if { $bool } {
+                $itk_component(${axis}CutScale) configure -state normal \
+                    -troughcolor white
+            } else {
+                $itk_component(${axis}CutScale) configure -state disabled \
+                    -troughcolor grey82
+            }
+        }
+        default {
+            error "don't know how to fix $what"
+        }
+    }
+}
+
+if 0 {
+    #
+    # Create slicer controls...
+    #
+    itk_component add slicers {
+        frame $itk_component(controls).slicers
+    } {
+        usual
+        rename -background -controlbackground controlBackground Background
+    }
+    pack $itk_component(slicers) -side bottom -padx 4 -pady 4
+    grid rowconfigure $itk_component(slicers) 1 -weight 1
+
+    #
+    # X-value slicer...
+    #
+    itk_component add xslice {
+        label $itk_component(slicers).xslice \
+            -borderwidth 1 -relief raised -padx 1 -pady 1 \
+            -bitmap [Rappture::icon x]
+    } {
+        usual
+        ignore -borderwidth
+        rename -highlightbackground -controlbackground controlBackground Background
+    }
+    bind $itk_component(xslice) <ButtonPress> \
+        [itcl::code $this Slice axis x toggle]
+    Rappture::Tooltip::for $itk_component(xslice) \
+        "Toggle the X cut plane on/off"
+    grid $itk_component(xslice) -row 0 -column 0 -sticky ew -padx 1
+
+    itk_component add xslicer {
+        ::scale $itk_component(slicers).xval -from 100 -to 0 \
+            -width 10 -orient vertical -showvalue off -state disabled \
+            -borderwidth 1 -highlightthickness 0 \
+            -command [itcl::code $this Slice move x]
+    } {
+        usual
+        ignore -borderwidth
+        ignore -highlightthickness
+        rename -highlightbackground -controlbackground controlBackground Background
+        rename -troughcolor -controldarkbackground controlDarkBackground Background
+    }
+    grid $itk_component(xslicer) -row 1 -column 0 -padx 1
+    Rappture::Tooltip::for $itk_component(xslicer) \
+        "@[itcl::code $this Slicertip x]"
+
+    #
+    # Y-value slicer...
+    #
+    itk_component add yslice {
+        label $itk_component(slicers).yslice \
+            -borderwidth 1 -relief raised -padx 1 -pady 1 \
+            -bitmap [Rappture::icon y]
+    } {
+        usual
+        ignore -borderwidth
+        rename -highlightbackground -controlbackground controlBackground Background
+    }
+    bind $itk_component(yslice) <ButtonPress> \
+        [itcl::code $this Slice axis y toggle]
+    Rappture::Tooltip::for $itk_component(yslice) \
+        "Toggle the Y cut plane on/off"
+    grid $itk_component(yslice) -row 0 -column 1 -sticky ew -padx 1
+
+    itk_component add yslicer {
+        ::scale $itk_component(slicers).yval -from 100 -to 0 \
+            -width 10 -orient vertical -showvalue off -state disabled \
+            -borderwidth 1 -highlightthickness 0 \
+            -command [itcl::code $this Slice move y]
+    } {
+        usual
+        ignore -borderwidth
+        ignore -highlightthickness
+        rename -highlightbackground -controlbackground controlBackground Background
+        rename -troughcolor -controldarkbackground controlDarkBackground Background
+    }
+    grid $itk_component(yslicer) -row 1 -column 1 -padx 1
+    Rappture::Tooltip::for $itk_component(yslicer) \
+        "@[itcl::code $this Slicertip y]"
+
+    #
+    # Z-value slicer...
+    #
+    itk_component add zslice {
+        label $itk_component(slicers).zslice \
+            -borderwidth 1 -relief raised -padx 1 -pady 1 \
+            -bitmap [Rappture::icon z]
+    } {
+        usual
+        ignore -borderwidth
+        rename -highlightbackground -controlbackground controlBackground Background
+    }
+    grid $itk_component(zslice) -row 0 -column 2 -sticky ew -padx 1
+    bind $itk_component(zslice) <ButtonPress> \
+        [itcl::code $this Slice axis z toggle]
+    Rappture::Tooltip::for $itk_component(zslice) \
+        "Toggle the Z cut plane on/off"
+
+    itk_component add zslicer {
+        ::scale $itk_component(slicers).zval -from 100 -to 0 \
+            -width 10 -orient vertical -showvalue off -state disabled \
+            -borderwidth 1 -highlightthickness 0 \
+            -command [itcl::code $this Slice move z]
+    } {
+        usual
+        ignore -borderwidth
+        ignore -highlightthickness
+        rename -highlightbackground -controlbackground controlBackground Background
+        rename -troughcolor -controldarkbackground controlDarkBackground Background
+    }
+    grid $itk_component(zslicer) -row 1 -column 2 -padx 1
+    Rappture::Tooltip::for $itk_component(zslicer) \
+        "@[itcl::code $this Slicertip z]"
+
+}