source: trunk/gui/scripts/resultviewer.tcl @ 2387

Last change on this file since 2387 was 2387, checked in by gah, 13 years ago
File size: 18.4 KB
Line 
1# ----------------------------------------------------------------------
2#  COMPONENT: ResultViewer - plots a collection of related results
3#
4#  This widget plots a collection of results that all represent
5#  the same quantity, but for various ranges of input values.  It
6#  is normally used as part of an Analyzer, to plot the various
7#  results selected by a ResultSet.
8# ======================================================================
9#  AUTHOR:  Michael McLennan, Purdue University
10#  Copyright (c) 2004-2005  Purdue Research Foundation
11#
12#  See the file "license.terms" for information on usage and
13#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14# ======================================================================
15package require Itk
16
17itcl::class Rappture::ResultViewer {
18    inherit itk::Widget
19
20    itk_option define -width width Width 4i
21    itk_option define -height height Height 4i
22    itk_option define -colors colors Colors ""
23    itk_option define -clearcommand clearCommand ClearCommand ""
24    itk_option define -simulatecommand simulateCommand SimulateCommand ""
25
26    constructor {args} { # defined below }
27    destructor { # defined below }
28
29    public method add {index xmlobj path}
30    public method clear {{index ""}}
31    public method value {xmlobj}
32
33    public method plot {option args}
34    public method download {option args}
35
36    protected method _plotAdd {xmlobj {settings ""}}
37    protected method _fixScale {args}
38    protected proc _xml2data {xmlobj path}
39
40    private variable _dispatcher ""  ;# dispatchers for !events
41    private variable _mode ""        ;# current plotting mode (xy, etc.)
42    private variable _mode2widget    ;# maps plotting mode => widget
43    private variable _dataslots ""   ;# list of all data objects in this widget
44}
45
46itk::usual ResultViewer {
47    keep -background -foreground -cursor -font
48}
49
50# ----------------------------------------------------------------------
51# CONSTRUCTOR
52# ----------------------------------------------------------------------
53itcl::body Rappture::ResultViewer::constructor {args} {
54    # create a dispatcher for events
55    Rappture::dispatcher _dispatcher
56    $_dispatcher register !scale
57    $_dispatcher dispatch $this !scale \
58        [itcl::code $this _fixScale]
59
60    eval itk_initialize $args
61}
62
63# ----------------------------------------------------------------------
64# DESTRUCTOR
65# ----------------------------------------------------------------------
66itcl::body Rappture::ResultViewer::destructor {} {
67    foreach slot $_dataslots {
68        foreach obj $slot {
69            itcl::delete object $obj
70        }
71    }
72}
73
74# ----------------------------------------------------------------------
75# USAGE: add <index> <xmlobj> <path>
76#
77# Adds a new result to this result viewer at the specified <index>.
78# Data is taken from the <xmlobj> object at the <path>.
79# ----------------------------------------------------------------------
80itcl::body Rappture::ResultViewer::add {index xmlobj path} {
81    set dobj [_xml2data $xmlobj $path]
82
83    #
84    # If the index doesn't exist, then fill in empty slots and
85    # make it exist.
86    #
87    for {set i [llength $_dataslots]} {$i <= $index} {incr i} {
88        lappend _dataslots ""
89    }
90    set slot [lindex $_dataslots $index]
91    lappend slot $dobj
92    set _dataslots [lreplace $_dataslots $index $index $slot]
93
94    $_dispatcher event -idle !scale
95}
96
97# ----------------------------------------------------------------------
98# USAGE: clear ?<index>?
99#
100# Clears one or all results in this result viewer.
101# ----------------------------------------------------------------------
102itcl::body Rappture::ResultViewer::clear {{index ""}} {
103    if {"" != $index} {
104        # clear one result
105        if {$index >= 0 && $index < [llength $_dataslots]} {
106            set slot [lindex $_dataslots $index]
107            foreach dobj $slot {
108                itcl::delete object $dobj
109            }
110            set _dataslots [lreplace $_dataslots $index $index ""]
111        }
112    } else {
113        # clear all results
114        plot clear
115        foreach slot $_dataslots {
116            foreach dobj $slot {
117                itcl::delete object $dobj
118            }
119        }
120        set _dataslots ""
121    }
122}
123
124# ----------------------------------------------------------------------
125# USAGE: value <xmlobj>
126#
127# Convenience method for showing a single value.  Loads the value
128# into the widget via add/clear, then immediately plots the value.
129# This makes the widget consistent with other widgets, such as
130# the DeviceEditor, etc.
131# ----------------------------------------------------------------------
132itcl::body Rappture::ResultViewer::value {xmlobj} {
133    clear
134    if {"" != $xmlobj} {
135        add 0 $xmlobj ""
136        plot add 0 ""
137    }
138}
139
140# ----------------------------------------------------------------------
141# USAGE: plot add ?<index> <settings> <index> <settings> ...?
142# USAGE: plot clear
143#
144# Used to manipulate the contents of this viewer.  The "plot clear"
145# command clears the current viewer.  Data is still stored in the
146# widget, but the results are not shown on screen.  The "plot add"
147# command adds the data at the specified <index> to the plot.  If
148# the optional <settings> are specified, then they are applied
149# to the plot; otherwise, default settings are used.
150# ----------------------------------------------------------------------
151itcl::body Rappture::ResultViewer::plot {option args} {
152    switch -- $option {
153        add {
154            set params ""
155            foreach {index opts} $args {
156                if {$index == "params"} {
157                    set params $opts
158                    continue
159                }
160                set reset "-color autoreset"
161                set slot [lindex $_dataslots $index]
162                foreach dobj $slot {
163                    set settings ""
164                    # start with color reset, only for first object in series
165                    if {"" != $reset} {
166                        set settings $reset
167                        set reset ""
168                    }
169                    # add default settings from data object
170                    if {[catch {$dobj hints style} style] == 0} {
171                        eval lappend settings $style
172                    }
173                    if {[catch {$dobj hints type} type] == 0} {
174                        if {"" != $type} {
175                            eval lappend settings "-type $type"
176                        }
177                    }
178                    # add override settings passed in here
179                    eval lappend settings $opts
180                    _plotAdd $dobj $settings
181                }
182            }
183            if {"" != $params && "" != $_mode} {
184                eval $_mode2widget($_mode) parameters $params
185            }
186        }
187        clear {
188            # clear the contents of the current mode
189            if {"" != $_mode} {
190                $_mode2widget($_mode) delete
191            }
192        }
193        default {
194            error "bad option \"$option\": should be add or clear"
195        }
196    }
197}
198
199# ----------------------------------------------------------------------
200# USAGE: _plotAdd <dataobj> <settings>
201#
202# Used internally to add a <dataobj> representing some data to
203# the plot at the top of this widget.  The data is added to the
204# current plot.  Use the "clear" function to clear before adding
205# new data.
206# ----------------------------------------------------------------------
207itcl::body Rappture::ResultViewer::_plotAdd {dataobj {settings ""}} {
208    switch -- [$dataobj info class] {
209        ::Rappture::DataTable {
210            set mode "datatable"
211            if {![info exists _mode2widget($mode)]} {
212                set w $itk_interior.datatable
213                Rappture::DataTableResult $w
214                set _mode2widget($mode) $w
215            }
216        }
217        ::Rappture::Drawing {
218            set mode "vtkviewer"
219            if {![info exists _mode2widget($mode)]} {
220                set servers [Rappture::VisViewer::GetServerList "vtkvis"]
221                set w $itk_interior.vtkviewer
222                catch { Rappture::VtkViewer $w $servers } errs
223                puts stderr errs=$errs
224                set _mode2widget($mode) $w
225            }
226        }
227        ::Rappture::Histogram {
228            set mode "histogram"
229            if {![info exists _mode2widget($mode)]} {
230                set w $itk_interior.histogram
231                Rappture::HistogramResult $w
232                set _mode2widget($mode) $w
233            }
234        }
235        ::Rappture::Curve {
236            set type [$dataobj hints type]
237            set mode "xy"
238            if { $type == "bars" } {
239                if {![info exists _mode2widget($mode)]} {
240                    set w $itk_interior.xy
241                    Rappture::BarResult $w
242                    set _mode2widget($mode) $w
243                }
244            } else {
245                if {![info exists _mode2widget($mode)]} {
246                    set w $itk_interior.xy
247                    Rappture::XyResult $w
248                    set _mode2widget($mode) $w
249                }
250            }
251        }
252        ::Rappture::Field {
253            set dims [lindex [lsort [$dataobj components -dimensions]] end]
254            switch -- $dims {
255                1D {
256                    set mode "xy"
257                    if {![info exists _mode2widget($mode)]} {
258                        set w $itk_interior.xy
259                        Rappture::XyResult $w
260                        set _mode2widget($mode) $w
261                    }
262                }
263                2D {
264                    set mode "contour"
265                    if {![info exists _mode2widget($mode)]} {
266                        if { [$dataobj isunirect2d] } {
267                            if { [$dataobj hints type] == "contour" } {
268                                set resultMode "vtkcontour"
269                            } else {
270                                set resultMode "heightmap"
271                            }
272                        } else {
273                            set resultMode "vtk"
274                        }
275                        set extents [$dataobj extents]
276                        if { $extents > 1 } {
277                            set resultMode "flowvis"
278                        }
279                        set w $itk_interior.contour
280                        if { ![winfo exists $w] } {
281                            Rappture::Field2DResult $w -mode $resultMode
282                        }
283                        set _mode2widget($mode) $w
284                    }
285                }
286                3D {
287                    set mode "field3D"
288                    if {![info exists _mode2widget($mode)]} {
289                        set mesh [$dataobj mesh]
290                        set fmt [expr {("" != $mesh) ? "vtk" : "nanovis"}]
291                        set extents [$dataobj extents]
292                        if { $extents > 1 } {
293                            set fmt "flowvis"
294                        }
295                        set w $itk_interior.field3D
296                        Rappture::Field3DResult $w -mode $fmt
297                        set _mode2widget($mode) $w
298                    }
299                }
300                default {
301                    error "can't handle \"$dims\" dimension field"
302                }
303            }
304        }
305        ::Rappture::Mesh {
306            switch -- [$dataobj dimensions] {
307                2 {
308                    set mode "mesh"
309                    if {![info exists _mode2widget($mode)]} {
310                        set w $itk_interior.mesh
311                        Rappture::MeshResult $w
312                        set _mode2widget($mode) $w
313                    }
314                }
315                default {
316                    error "can't handle [$dataobj dimensions]D field"
317                }
318            }
319        }
320        ::Rappture::Table {
321            set cols [Rappture::EnergyLevels::columns $dataobj]
322            if {"" != $cols} {
323                set mode "energies"
324                if {![info exists _mode2widget($mode)]} {
325                    set w $itk_interior.energies
326                    Rappture::EnergyLevels $w
327                    set _mode2widget($mode) $w
328                }
329            }
330        }
331        ::Rappture::LibraryObj {
332            switch -- [$dataobj element -as type] {
333                string - log {
334                    set mode "log"
335                    if {![info exists _mode2widget($mode)]} {
336                        set w $itk_interior.log
337                        Rappture::TextResult $w
338                        set _mode2widget($mode) $w
339                    }
340                }
341                structure {
342                    set mode "structure"
343                    if {![info exists _mode2widget($mode)]} {
344                        set w $itk_interior.struct
345                        Rappture::DeviceResult $w
346                        set _mode2widget($mode) $w
347                    }
348                }
349                number - integer {
350                    set mode "number"
351                    if {![info exists _mode2widget($mode)]} {
352                        set w $itk_interior.number
353                        Rappture::NumberResult $w
354                        set _mode2widget($mode) $w
355                    }
356                }
357                boolean - choice {
358                    set mode "value"
359                    if {![info exists _mode2widget($mode)]} {
360                        set w $itk_interior.value
361                        Rappture::ValueResult $w
362                        set _mode2widget($mode) $w
363                    }
364                }
365            }
366        }
367        ::Rappture::Image {
368            set mode "image"
369            if {![info exists _mode2widget($mode)]} {
370                set w $itk_interior.image
371                Rappture::ImageResult $w
372                set _mode2widget($mode) $w
373            }
374        }
375        ::Rappture::Sequence {
376            set mode "sequence"
377            if {![info exists _mode2widget($mode)]} {
378                set w $itk_interior.image
379                Rappture::SequenceResult $w
380                set _mode2widget($mode) $w
381            }
382        }
383        default {
384            error "don't know how to plot <$type> data [$dataobj info class]"
385        }
386    }
387
388    if {$mode != $_mode && $_mode != ""} {
389        set nactive [llength [$_mode2widget($_mode) get]]
390        if {$nactive > 0} {
391            return  ;# mixing data that doesn't mix -- ignore it!
392        }
393    }
394
395    # Are we plotting in a new mode? then change widgets
396    if {$_mode2widget($mode) != [pack slaves $itk_interior]} {
397        # remove any current window
398        foreach w [pack slaves $itk_interior] {
399            pack forget $w
400        }
401        pack $_mode2widget($mode) -expand yes -fill both
402
403        set _mode $mode
404        $_dispatcher event -idle !scale
405    }
406    $_mode2widget($mode) add $dataobj $settings
407}
408
409# ----------------------------------------------------------------------
410# USAGE: _fixScale ?<eventArgs>...?
411#
412# Invoked automatically whenever a new dataset is added to fix the
413# overall scales of the viewer.  This makes the visualizer consistent
414# across all <dataobj> in this widget, so that it can plot all
415# available data.
416# ----------------------------------------------------------------------
417itcl::body Rappture::ResultViewer::_fixScale {args} {
418    if {"" != $_mode} {
419        set dlist ""
420        foreach slot $_dataslots {
421            foreach dobj $slot {
422                lappend dlist $dobj
423            }
424        }
425        eval $_mode2widget($_mode) scale $dlist
426    }
427}
428
429# ----------------------------------------------------------------------
430# USAGE: download coming
431# USAGE: download controls <downloadCommand>
432# USAGE: download now
433#
434# Clients use this method to create a downloadable representation
435# of the plot.  Returns a list of the form {ext string}, where
436# "ext" is the file extension (indicating the type of data) and
437# "string" is the data itself.
438# ----------------------------------------------------------------------
439itcl::body Rappture::ResultViewer::download {option args} {
440    if {"" == $_mode} {
441        return ""
442    }
443    return [eval $_mode2widget($_mode) download $option $args]
444}
445
446# ----------------------------------------------------------------------
447# USAGE: _xml2data <xmlobj> <path>
448#
449# Used internally to create a data object for the data at the
450# specified <path> in the <xmlobj>.
451# ----------------------------------------------------------------------
452itcl::body Rappture::ResultViewer::_xml2data {xmlobj path} {
453    set type [$xmlobj element -as type $path]
454    switch -- $type {
455        curve {
456            return [Rappture::Curve ::#auto $xmlobj $path]
457        }
458        datatable {
459            return [Rappture::DataTable ::#auto $xmlobj $path]
460        }
461        histogram {
462            return [Rappture::Histogram ::#auto $xmlobj $path]
463        }
464        field {
465            return [Rappture::Field ::#auto $xmlobj $path]
466        }
467        mesh {
468            return [Rappture::Mesh ::#auto $xmlobj $path]
469        }
470        table {
471            return [Rappture::Table ::#auto $xmlobj $path]
472        }
473        image {
474            return [Rappture::Image ::#auto $xmlobj $path]
475        }
476        sequence {
477            return [Rappture::Sequence ::#auto $xmlobj $path]
478        }
479        string - log {
480            return [$xmlobj element -as object $path]
481        }
482        structure {
483            return [$xmlobj element -as object $path]
484        }
485        number - integer - boolean - choice {
486            return [$xmlobj element -as object $path]
487        }
488        drawing3d - drawing {
489            return [Rappture::Drawing ::#auto $xmlobj $path]
490        }
491        time - status {
492            return ""
493        }
494    }
495    error "don't know how to plot <$type> data path=$path"
496}
497
498# ----------------------------------------------------------------------
499# CONFIGURATION OPTION: -width
500# ----------------------------------------------------------------------
501itcl::configbody Rappture::ResultViewer::width {
502    set w [winfo pixels $itk_component(hull) $itk_option(-width)]
503    set h [winfo pixels $itk_component(hull) $itk_option(-height)]
504    if {$w == 0 || $h == 0} {
505        pack propagate $itk_component(hull) yes
506    } else {
507        component hull configure -width $w -height $h
508        pack propagate $itk_component(hull) no
509    }
510}
511
512# ----------------------------------------------------------------------
513# CONFIGURATION OPTION: -height
514# ----------------------------------------------------------------------
515itcl::configbody Rappture::ResultViewer::height {
516    set h [winfo pixels $itk_component(hull) $itk_option(-height)]
517    set w [winfo pixels $itk_component(hull) $itk_option(-width)]
518    if {$w == 0 || $h == 0} {
519        pack propagate $itk_component(hull) yes
520    } else {
521        component hull configure -width $w -height $h
522        pack propagate $itk_component(hull) no
523    }
524}
Note: See TracBrowser for help on using the repository browser.