Changeset 2466 for trunk

Timestamp:

Sep 4, 2011, 11:13:10 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/vtkviewer.tcl (modified) (31 diffs)

trunk/gui/scripts/vtkviewer.tcl

@@ -68 +68 @@
     protected method Disconnect {}
     protected method DoResize {}
-    protected method FixSettings {what {value ""}}
+    protected method AdjustSetting {what {value ""}}
+    protected method FixSettings { args  }
     protected method Pan {option x y}
     protected method Pick {x y}
@@ -74 +75 @@
     protected method ReceiveDataset { args }
     protected method ReceiveImage { args }
+    protected method ReceiveLegend { args }
     protected method Rotate {option x y}
     protected method SendCmd {string}
@@ -79 +81 @@
 
     # The following methods are only used by this class.
+    private method BuildAxisTab {}
     private method BuildCameraTab {}
+    private method BuildColormap { colormap dataobj comp }
+    private method BuildDownloadPopup { widget command } 
+    private method BuildStreamsTab {}
     private method BuildVolumeTab {}
-    private method BuildStreamsTab {}
-    private method BuildAxisTab {}
-    private method BuildColormap { colormap dataobj comp }
+    private method ConvertToVtkData { dataobj comp } 
+    private method DrawLegend {}
     private method EventuallyResize { w h } 
-    private method SetStyles { dataobj comp }
-    private method PanCamera {}
-    private method ConvertToVtkData { dataobj comp } 
     private method GetImage { args } 
     private method GetVtkData { args } 
-    private method BuildDownloadPopup { widget command } 
+    private method IsValidObject { dataobj } 
+    private method PanCamera {}
     private method SetObjectStyle { dataobj comp } 
-    private method IsValidObject { dataobj } 
+    private method SetStyles { dataobj comp }
+    private method RequestLegend {}
 
     private variable _arcball ""
@@ -116 +120 @@
                                     # to starting position.
     private variable _haveStreams 0
-    # Array of transfer functions in server.  If 0 the transfer has been
-    # defined but not loaded.  If 1 the transfer function has been named
-    # and loaded.
+
     private variable _first ""     ;# This is the topmost dataset.
     private variable _start 0
     private variable _buffering 0
     
-    # This indicates which isomarkers and transfer function to use when
-    # changing markers, opacity, or thickness.
     common _downloadPopup          ;# download options from popup
     private common _hardcopy
@@ -157 +157 @@
     $_parser alias image [itcl::code $this ReceiveImage]
     $_parser alias dataset [itcl::code $this ReceiveDataset]
+    $_parser alias legend [itcl::code $this ReceiveLegend]
 
     array set _outline {
@@ -181 +182 @@
     $_arcball quaternion $q
 
-    set _limits(vmin) 0.0
-    set _limits(vmax) 1.0
+    set _limits(zmin) 0.0
+    set _limits(zmax) 1.0
 
     array set _settings [subst {
         $this-axes              1
+        $this-legend            1
         $this-seeds             1
         $this-streamlines       1
@@ -262 +264 @@
     Rappture::Tooltip::for $itk_component(zoomout) "Zoom out"
 
-    if { [catch { 
-        BuildVolumeTab
-        BuildAxisTab
-        BuildStreamsTab
-        BuildCameraTab
-    } errs] != 0 } {
-        puts stderr err=$errs
+    BuildVolumeTab
+    BuildAxisTab
+    BuildStreamsTab
+    BuildCameraTab
+
+    # Legend
+
+    set _image(legend) [image create photo]
+    itk_component add legend {
+        canvas $itk_component(plotarea).legend -width 50 -highlightthickness 0
+    } {
+        usual
+        ignore -highlightthickness
+        rename -background -plotbackground plotBackground Background
     }
 
@@ -354 +363 @@
     image delete $_image(download)
     array unset _settings $this-*
-    catch { blt::arcball destroy $_arcball}
+    catch { blt::arcball destroy $_arcball }
 }
 
@@ -367 +376 @@
     set _start [clock clicks -milliseconds]
     SendCmd "screen size $_width $_height"
-
+    if { $_haveStreams } {
+        RequestLegend
+    }
     # Must reset camera to have object scaling to take effect.
     #SendCmd "camera reset"
@@ -547 +558 @@
     foreach dataobj $args {
         array set bounds [limits $dataobj]
- puts stderr bounds=[array get bounds]
         if {![info exists _limits(xmin)] || $_limits(xmin) > $bounds(xmin)} {
             set _limits(xmin) $bounds(xmin)
@@ -809 +819 @@
     DoResize
     
-    set _limits(vmin) ""
-    set _limits(vmax) ""
+    set _limits(zmin) ""
+    set _limits(zmax) ""
     set _first ""
     set _haveStreams 0
@@ -828 +838 @@
                 set _datasets($tag) 1
             }
+            SetStyles $dataobj $comp
             lappend _obj2datasets($dataobj) $tag
             SetObjectStyle $dataobj $comp
@@ -853 +864 @@
         set _reset 0
     }
-    FixSettings opacity
-    FixSettings grid-x
-    FixSettings grid-y
-    FixSettings grid-z
-    FixSettings volume
-    FixSettings lighting
-    FixSettings wireframe
-    FixSettings axes
-    FixSettings edges
-    FixSettings seeds
-    FixSettings streamlines
-    FixSettings axismode
+
+    FixSettings opacity grid-x grid-y grid-z volume lighting \
+        wireframe axes edges seeds streamlines axismode
 
     if { !$_haveStreams } {
@@ -1097 +1099 @@
 # to the back end.
 # ----------------------------------------------------------------------
-itcl::body Rappture::VtkViewer::FixSettings {what {value ""}} {
+itcl::body Rappture::VtkViewer::FixSettings { args } {
+    foreach setting $args {
+        AdjustSetting $setting
+    }
+}
+
+#
+# AdjustSetting --
+#
+#       Changes/updates a specific setting in the widget.  There are
+#       usually user-setable option.  Commands are sent to the render
+#       server.
+#
+itcl::body Rappture::VtkViewer::AdjustSetting {what {value ""}} {
     if { ![isconnected] } {
         return
@@ -1205 +1220 @@
 
 #
+# RequestLegend --
+#
+#       Request a new legend from the server.  The size of the legend
+#       is determined from the height of the canvas.  It will be rotated
+#       to be vertical when drawn.
+#
+itcl::body Rappture::VtkViewer::RequestLegend {} {
+    #puts stderr "RequestLegend _first=$_first"
+    set lineht [font metrics $itk_option(-font) -linespace]
+    set c $itk_component(legend)
+    set w [expr {$_height-20}]
+    set h 45;                           # Hard coding height of legend
+
+    if { $w == 0} {
+        return
+    }
+    # Set the legend on the first streamlines dataset.
+    foreach dataset [CurrentDatasets -visible] {
+        foreach {dataobj comp} [split $dataset -] break
+        if { [$dataobj type $comp] == "streamlines" && 
+             [info exists _dataset2style($dataset)] } {
+            SendCmd "legend $_dataset2style($dataset) scalar {} $w $h"
+            break;
+        }
+    }
+}
+
+#
 # SetStyles --
 #
@@ -1214 +1257 @@
     }
     set tag $dataobj-$comp
-    array set style [lindex [$dataobj components -style $comp] 0]
+    array set style [$dataobj style $comp]
     set colormap "$style(-color):$style(-levels):$style(-opacity)"
     if { [info exists _colormaps($colormap)] } {
@@ -1228 +1271 @@
         set _colormaps($colormap) 1
     }
-    #SendCmd "polydata add $style(-levels) $tag\n"
-    SendCmd "pseudocolor colormap $colormap $tag"
+    #SendCmd "pseudocolor colormap $colormap $tag"
+    SendCmd "streamlines colormap $colormap $tag"
     return $colormap
 }
@@ -1242 +1285 @@
         -opacity 1.0
     }
-    array set style [lindex [$dataobj components -style $comp] 0]
-
+    array set style [$dataobj style $comp]
     if {$style(-color) == "rainbow"} {
         set style(-color) "white:yellow:green:cyan:blue:magenta"
@@ -1340 +1382 @@
         -text "Visible" \
         -variable [itcl::scope _settings($this-volume)] \
-        -command [itcl::code $this FixSettings volume] \
+        -command [itcl::code $this AdjustSetting volume] \
         -font "Arial 9"
 
@@ -1346 +1388 @@
         -text "Wireframe" \
         -variable [itcl::scope _settings($this-wireframe)] \
-        -command [itcl::code $this FixSettings wireframe] \
+        -command [itcl::code $this AdjustSetting wireframe] \
         -font "Arial 9"
 
@@ -1352 +1394 @@
         -text "Lighting" \
         -variable [itcl::scope _settings($this-lighting)] \
-        -command [itcl::code $this FixSettings lighting] \
+        -command [itcl::code $this AdjustSetting lighting] \
         -font "Arial 9"
 
@@ -1358 +1400 @@
         -text "Edges" \
         -variable [itcl::scope _settings($this-edges)] \
-        -command [itcl::code $this FixSettings edges] \
+        -command [itcl::code $this AdjustSetting edges] \
         -font "Arial 9"
 
@@ -1365 +1407 @@
         -variable [itcl::scope _settings($this-opacity)] \
         -width 10 \
-        -showvalue off -command [itcl::code $this FixSettings opacity]
+        -showvalue off -command [itcl::code $this AdjustSetting opacity]
 
     blt::table $inner \
@@ -1393 +1435 @@
         -text "Visible" \
         -variable [itcl::scope _settings($this-streamlines)] \
-        -command [itcl::code $this FixSettings streamlines] \
+        -command [itcl::code $this AdjustSetting streamlines] \
         -font "Arial 9"
 
@@ -1399 +1441 @@
         -text "Show seeds" \
         -variable [itcl::scope _settings($this-seeds)] \
-        -command [itcl::code $this FixSettings seeds] \
+        -command [itcl::code $this AdjustSetting seeds] \
         -font "Arial 9"
 
@@ -1414 +1456 @@
     $itk_component(streammode) value "lines"
     bind $inner.streammode_combo <<Value>> \
-        [itcl::code $this FixSettings streammode]
+        [itcl::code $this AdjustSetting streammode]
 
     label $inner.opacity_l -text "Opacity" -font "Arial 9"
@@ -1420 +1462 @@
         -variable [itcl::scope _settings($this-opacity)] \
         -width 10 \
-        -showvalue off -command [itcl::code $this FixSettings opacity]
+        -showvalue off -command [itcl::code $this AdjustSetting opacity]
 
     blt::table $inner \
@@ -1447 +1489 @@
         -text "Visible" \
         -variable [itcl::scope _settings($this-axes)] \
-        -command [itcl::code $this FixSettings axes] \
+        -command [itcl::code $this AdjustSetting axes] \
         -font "Arial 9"
 
@@ -1455 +1497 @@
         -text "X" \
         -variable [itcl::scope _settings($this-grid-x)] \
-        -command [itcl::code $this FixSettings grid-x] \
+        -command [itcl::code $this AdjustSetting grid-x] \
         -font "Arial 9"
     checkbutton $f.y \
         -text "Y" \
         -variable [itcl::scope _settings($this-grid-y)] \
-        -command [itcl::code $this FixSettings grid-y] \
+        -command [itcl::code $this AdjustSetting grid-y] \
         -font "Arial 9"
     checkbutton $f.z \
         -text "Z" \
         -variable [itcl::scope _settings($this-grid-z)] \
-        -command [itcl::code $this FixSettings grid-z] \
+        -command [itcl::code $this AdjustSetting grid-z] \
         -font "Arial 9"
     pack $f.x $f.y $f.z -side left 
@@ -1481 +1523 @@
         "outer_edges"     "outer"         
     $itk_component(axismode) value "outer"
-    bind $inner.axismode_combo <<Value>> [itcl::code $this FixSettings axismode]
+    bind $inner.axismode_combo <<Value>> \
+        [itcl::code $this AdjustSetting axismode]
 
     blt::table $inner \
@@ -1703 +1746 @@
     return 1
 }
+
+# ----------------------------------------------------------------------
+# USAGE: ReceiveLegend <colormap> <size>>
+#
+# Invoked automatically whenever the "legend" command comes in from
+# the rendering server.  Indicates that binary image data with the
+# specified <size> will follow.
+# ----------------------------------------------------------------------
+itcl::body Rappture::VtkViewer::ReceiveLegend { colormap size } {
+    #puts stderr "ReceiveLegend colormap=$colormap size=$size"
+    if { [IsConnected] } {
+        set bytes [ReceiveBytes $size]
+        if { ![info exists _image(legend)] } {
+            set _image(legend) [image create photo]
+        }
+        #puts stderr "read $size bytes for [image width $_image(legend)]x[image height $_image(legend)] legend>"
+        set src [image create photo -data $bytes]
+        blt::winop image rotate $src $_image(legend) 90
+        set dst $_image(legend)
+        DrawLegend
+    }
+}
+
+#
+# DrawLegend --
+#
+#       Draws the legend in it's own canvas which resides to the right
+#       of the contour plot area.
+#
+itcl::body Rappture::VtkViewer::DrawLegend {} {
+    set c $itk_component(view)
+    set w [winfo width $c]
+    set h [winfo height $c]
+    set lineht [font metrics $itk_option(-font) -linespace]
+    
+    if { $_settings($this-legend) } {
+        set x 2
+        if { [$c find withtag "legend"] == "" } {
+            $c create image $x [expr {$lineht+2}] -anchor nw \
+                -image $_image(legend) -tags "transfunc legend"
+            $c create text $x 2 -anchor nw \
+                -fill $itk_option(-plotforeground) -tags "zmax legend" \
+                -font "Arial 6"
+            $c create text $x [expr {$h-2}] -anchor sw \
+                -fill $itk_option(-plotforeground) -tags "zmin legend" \
+                -font "Arial 6"
+        }
+        # Reset the item coordinates according the current size of the plot.
+        $c coords transfunc $x [expr {$lineht+2}]
+        if { $_limits(zmin) != "" } {
+            $c itemconfigure zmin -text [format %g $_limits(zmin)]
+        }
+        if { $_limits(zmax) != "" } {
+            $c itemconfigure zmax -text [format %g $_limits(zmax)]
+        }
+        $c coords zmin $x [expr {$h-2}]
+        $c coords zmax $x 2
+    }
+}