Changeset 456 for trunk/gui/scripts/nanovisviewer.tcl

Timestamp:

Jun 2, 2006 9:40:16 PM (18 years ago)

Author:

mmc

Message:

Added the start of a legend component to the 3D field viewer.

Fixed problems with <sequence> objects when there's only 1 value
in the sequence. Also, added 3D fields as a recognized object
for sequences.

Fixed the 3D field viewer to fail more gracefully when it can't
make a connection to the viz server.

File:

• trunk/gui/scripts/nanovisviewer.tcl (modified) (26 diffs)

trunk/gui/scripts/nanovisviewer.tcl

@@ -51 +51 @@
     protected method _receive {}
     protected method _receive_image {option size}
+    protected method _receive_legend {ivol vmin vmax size}
 
     protected method _rebuild {}
@@ -60 +61 @@
     protected method _state {comp}
     protected method _fixSettings {what {value ""}}
+    protected method _fixLegend {}
     protected method _color2rgb {color}
     protected method _euler2xyz {theta phi psi}
+
+    private variable _dispatcher "" ;# dispatcher for !events
 
     private variable _nvhost ""    ;# host name for nanovis server
@@ -68 +72 @@
     private variable _parser ""    ;# interpreter for incoming commands
     private variable _buffer       ;# buffer for incoming/outgoing commands
-    private variable _image ""     ;# image displayed in plotting area
+    private variable _image        ;# image displayed in plotting area
 
     private variable _dlist ""     ;# list of data objects
     private variable _dims ""      ;# dimensionality of data objects
     private variable _obj2style    ;# maps dataobj => style settings
+    private variable _obj2ovride   ;# maps dataobj => style override
     private variable _obj2id       ;# maps dataobj => volume ID in server
     private variable _sendobjs ""  ;# list of data objs to send to server
@@ -90 +95 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::NanovisViewer::constructor {nvhost nvport args} {
-puts "nanovisviewer $nvhost $nvport = $this"
+    Rappture::dispatcher _dispatcher
+    $_dispatcher register !legend
+    $_dispatcher dispatch $this !legend "[itcl::code $this _fixLegend]; list"
+
     set _buffer(in) ""
     set _buffer(out) ""
@@ -102 +110 @@
     }
     $_parser alias image [itcl::code $this _receive_image]
+    $_parser alias legend [itcl::code $this _receive_legend]
 
     #
@@ -355 +364 @@
     # RENDERING AREA
     #
-    set _image [image create photo]
+    set _image(legend) [image create photo]
+    itk_component add legend {
+        canvas $itk_interior.legend -height 50 -highlightthickness 0
+    } {
+        usual
+        ignore -highlightthickness
+        rename -background -plotbackground plotBackground Background
+    }
+    pack $itk_component(legend) -side bottom -fill x
+    bind $itk_component(legend) <Configure> \
+        [list $_dispatcher event -idle !legend]
+
+    set _image(plot) [image create photo]
     itk_component add area {
-        label $itk_interior.area -image $_image
+        label $itk_interior.area -image $_image(plot) -highlightthickness 0
+    } {
+        usual
+        ignore -highlightthickness
     }
     pack $itk_component(area) -expand yes -fill both
@@ -383 +407 @@
     after cancel [itcl::code $this _send_dataobjs]
     after cancel [itcl::code $this _rebuild]
-    image delete $_image
+    image delete $_image(plot)
+    image delete $_image(legend)
     interp delete $_parser
 }
@@ -416 +441 @@
     if {$pos < 0} {
         lappend _dlist $dataobj
-        set _obj2style($dataobj-color) $params(-color)
-        set _obj2style($dataobj-width) $params(-width)
-        set _obj2style($dataobj-raise) $params(-raise)
+        set _obj2ovride($dataobj-color) $params(-color)
+        set _obj2ovride($dataobj-width) $params(-width)
+        set _obj2ovride($dataobj-raise) $params(-raise)
 
         after cancel [itcl::code $this _rebuild]
@@ -435 +460 @@
     set dlist $_dlist
     foreach obj $dlist {
-        if {[info exists _obj2style($obj-raise)] && $_obj2style($obj-raise)} {
+        if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} {
             set i [lsearch -exact $dlist $obj]
             if {$i >= 0} {
@@ -463 +488 @@
         if {$pos >= 0} {
             set _dlist [lreplace $_dlist $pos $pos]
-            foreach key [array names _obj2style $dataobj-*] {
-                unset _obj2style($key)
+            foreach key [array names _obj2ovride $dataobj-*] {
+                unset _obj2ovride($key)
             }
             set changed 1
@@ -530 +555 @@
             #
             set tmpfile /tmp/image[pid].jpg
-            $_image write $tmpfile -format jpeg
+            $_image(plot) write $tmpfile -format jpeg
             set fid [open $tmpfile r]
             fconfigure $fid -encoding binary -translation binary
@@ -553 +578 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::NanovisViewer::connect {{host ""} {port ""}} {
-puts " connecting... $host $port"
     disconnect
 
@@ -572 +596 @@
     #
     while {1} {
-puts "connecting to $_nvhost:$_nvport"
         if {[catch {socket $_nvhost $_nvport} sid]} {
             return 0
@@ -593 +616 @@
             [expr {$b4 & 0xff}]]
 
-puts "  got back $addr"
         if {[string equal $addr "0.0.0.0"]} {
             fconfigure $sid -buffering line
             fileevent $sid readable [itcl::code $this _receive]
             set _sid $sid
+tk_messageBox -message "Continue?"
             return 1
         }
@@ -668 +691 @@
             append _buffer(out) $args "\n"
         } else {
-puts "send: $args"
+set fid [open /tmp/debug a]
+puts $fid "send: $args"
+close $fid
             puts $_sid $args
         }
@@ -696 +721 @@
                 return
             }
+set fid [open /tmp/debug a]
+puts $fid $cmdstr
+puts $fid $data
+close $fid
 
             while {[string length $data] > 0} {
@@ -716 +745 @@
             set _obj2id($dataobj-$comp) $_obj2id(count)
             incr _obj2id(count)
+
+            #
+            # Determine the transfer function needed for this volume
+            # and make sure that it's defined on the server.
+            #
+            catch {unset style}
+            array set style {
+                -color rainbow
+                -levels 6
+                -opacity 0.5
+            }
+            array set style [lindex [$dataobj components -style $comp] 0]
+            set sname "$style(-color):$style(-levels):$style(-opacity)"
+
+            if {$style(-color) == "rainbow"} {
+                set style(-color) "white:yellow:green:cyan:blue:magenta"
+            }
+            set clist [split $style(-color) :]
+            set cmap "0.0 [_color2rgb white] "
+            for {set i 0} {$i < [llength $clist]} {incr i} {
+                set xval [expr {double($i+1)/([llength $clist]+1)}]
+                set color [lindex $clist $i]
+                append cmap "$xval [_color2rgb $color] "
+            }
+            append cmap "1.0 [_color2rgb $color]"
+
+            set max $style(-opacity)
+            set levels $style(-levels)
+            set wmap "0.0 0.0 "
+            set delta [expr {0.125/($levels+1)}]
+            for {set i 1} {$i <= $levels} {incr i} {
+                # add spikes in the middle
+                set xval [expr {double($i)/($levels+1)}]
+                append wmap "[expr {$xval-$delta-0.01}] 0.0  [expr {$xval-$delta}] $max [expr {$xval+$delta}] $max  [expr {$xval+$delta+0.01}] 0.0 "
+            }
+            append wmap "1.0 0.0 "
+
+            set cmdstr [list transfunc define $sname $cmap $wmap]
+puts "send: $cmdstr"
+set fid [open /tmp/debug a]
+puts $fid $cmdstr
+close $fid
+            if {[catch {puts $_sid $cmdstr} err]} {
+                disconnect
+                set x [expr {[winfo rootx $itk_component(area)]+10}]
+                set y [expr {[winfo rooty $itk_component(area)]+10}]
+                Rappture::Tooltip::cue @$x,$y "Lost connection to visualization server"
+puts "oops: $err"
+                return
+            }
+
+            set _obj2style($dataobj-$comp) $sname
         }
     }
@@ -725 +806 @@
         set state [string match $first-* $key]
         _send volume state $state $_obj2id($key)
+        if {[info exists _obj2style($key)]} {
+            _send volume shading transfunc $_obj2style($key) $_obj2id($key)
+        }
     }
 
@@ -735 +819 @@
 
     # if there are any commands in the buffer, send them now that we're done
+set fid [open /tmp/debug a]
+puts $fid $_buffer(out)
+close $fid
     if {[catch {puts $_sid $_buffer(out)} err]} {
         disconnect
@@ -742 +829 @@
     }
     set _buffer(out) ""
+
+    $_dispatcher event -idle !legend
 }
 
@@ -779 +868 @@
     if {"" != $_sid} {
         set bytes [read $_sid $size]
-        $_image configure -data $bytes
+        $_image(plot) configure -data $bytes
 puts "--IMAGE"
+    }
+}
+
+# ----------------------------------------------------------------------
+# USAGE: _receive_legend <volume> <vmin> <vmax> <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::NanovisViewer::_receive_legend {ivol vmin vmax size} {
+    if {"" != $_sid} {
+        set bytes [read $_sid $size]
+        $_image(legend) configure -data $bytes
+puts "--LEGEND $vmin - $vmax"
+
+        set c $itk_component(legend)
+        set w [winfo width $c]
+        set h [winfo height $c]
+        if {"" == [$c find withtag transfunc]} {
+            $c create image [expr {$w/2}] [expr {$h/2}] -anchor c \
+                 -image $_image(legend) -tags transfunc
+        } else {
+            $c coords transfunc [expr {$w/2}] [expr {$h/2}]
+        }
     }
 }
@@ -821 +935 @@
             set state [string match $first-* $key]
             _send volume state $state $_obj2id($key)
+            if {[info exists _obj2style($key)]} {
+                _send volume shading transfunc $_obj2style($key) $_obj2id($key)
+            }
         }
 
@@ -829 +946 @@
         }
         eval _send volume data state [_state volume] [_currentVolumeIds]
+        $_dispatcher event -idle !legend
     }
 
@@ -862 +980 @@
     set first [lindex [get] 0]
     foreach key [array names _obj2id *-*] {
-        set state [string match $first-* $key]
-        lappend rlist $_obj2id($key)
+        if {[string match $first-* $key]} {
+            lappend rlist $_obj2id($key)
+        }
     }
     return $rlist
@@ -893 +1012 @@
             eval _send camera angle [_euler2xyz $_view(theta) $_view(phi) $_view(psi)]
             _send camera zoom $_view(zoom)
-
-            _send transfunc define default { 0 0 0 1 0.5  1 1 0 0 0.8 }
         }
     }
@@ -1117 +1234 @@
 
 # ----------------------------------------------------------------------
+# USAGE: _fixLegend
+#
+# Used internally to update the legend area whenever it changes size
+# or when the field changes.  Asks the server to send a new legend
+# for the current field.
+# ----------------------------------------------------------------------
+itcl::body Rappture::NanovisViewer::_fixLegend {} {
+    set w [expr {[winfo width $itk_component(legend)]-20}]
+    set h [expr {[winfo height $itk_component(legend)]-20}]
+    set ivol ""
+
+    set dataobj [lindex [get] 0]
+    set comp [lindex [$dataobj components] 0]
+    if {[info exists _obj2id($dataobj-$comp)]} {
+        set ivol $_obj2id($dataobj-$comp)
+    }
+puts "fixLegend $w $h $ivol in [get]"
+
+    if {$w > 0 && $h > 0 && "" != $ivol} {
+        _send legend $ivol $w $h
+    } else {
+        $itk_component(legend) delete all
+    }
+}
+
+# ----------------------------------------------------------------------
 # USAGE: _color2rgb <color>
 #