source: trunk/gui/scripts/field2dresult.tcl @ 1717

Last change on this file since 1717 was 1717, checked in by gah, 14 years ago
File size: 5.7 KB
Line 
1# ----------------------------------------------------------------------
2#  COMPONENT: field2dresult - plot a field in a ResultSet
3#
4#  This widget visualizes scalar/vector fields on 3D meshes.
5#  It is normally used in the ResultViewer to show results from the
6#  run of a Rappture tool.  Use the "add" and "delete" methods to
7#  control the dataobjs showing on the plot.
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# ======================================================================
15
16package require Itk
17
18option add *Field2DResult.width 4i widgetDefault
19option add *Field2DResult.height 4i widgetDefault
20option add *Field2DResult.foreground black widgetDefault
21option add *Field2DResult.controlBackground gray widgetDefault
22option add *Field2DResult.controlDarkBackground #999999 widgetDefault
23option add *Field2DResult.plotBackground black widgetDefault
24option add *Field2DResult.plotForeground white widgetDefault
25option add *Field2DResult.font \
26    -*-helvetica-medium-r-normal-*-12-* widgetDefault
27
28itcl::class Rappture::Field2DResult {
29    inherit itk::Widget
30
31    itk_option define -mode mode Mode "auto"
32
33    constructor {args} { # defined below }
34    destructor { # defined below }
35
36    public method add {dataobj {settings ""}}
37    public method get {}
38    public method delete {args}
39    public method scale {args}
40    public method snap {w h}
41    public method parameters {title args} { # do nothing }
42    public method download {option args}
43}
44
45itk::usual Field2DResult {
46    keep -background -foreground -cursor -font
47    keep -plotbackground -plotforeground
48}
49
50# ----------------------------------------------------------------------
51# CONSTRUCTOR
52# ----------------------------------------------------------------------
53itcl::body Rappture::Field2DResult::constructor {args} {
54    array set flags {
55        -mode auto
56    }
57    array set flags $args
58    set servers [Rappture::VisViewer::GetServerList "nanovis"]
59    if {"" != $servers && $flags(-mode) != "vtk"} {
60        switch -- $flags(-mode) {
61            "auto" - "heightmap" {
62                itk_component add renderer {
63                    Rappture::HeightmapViewer $itk_interior.ren $servers
64                }
65            }
66            "flowvis" {
67                itk_component add renderer {
68                    Rappture::FlowvisViewer $itk_interior.ren $servers
69                }
70            }
71            default {
72                puts stderr "unknown render mode \"$flags(-mode)\""
73            }
74        }               
75        pack $itk_component(renderer) -expand yes -fill both
76        # can't connect to rendering farm?  then fall back to older viewer
77        if {![$itk_component(renderer) isconnected]} {
78            #destroy $itk_component(renderer)
79        }
80    }
81
82    if {![info exists itk_component(renderer)]} {
83        itk_component add renderer {
84            Rappture::ContourResult $itk_interior.ren
85        }
86        pack $itk_component(renderer) -expand yes -fill both
87    }
88    eval itk_initialize $args
89}
90
91# ----------------------------------------------------------------------
92# DESTRUCTOR
93# ----------------------------------------------------------------------
94itcl::body Rappture::Field2DResult::destructor {} {
95}
96
97# ----------------------------------------------------------------------
98# USAGE: add <dataobj> ?<settings>?
99#
100# Clients use this to add a data object to the plot.  The optional
101# <settings> are used to configure the plot.  Allowed settings are
102# -color, -brightness, -width, -linestyle, and -raise.
103# ----------------------------------------------------------------------
104itcl::body Rappture::Field2DResult::add {dataobj {settings ""}} {
105    eval $itk_component(renderer) add $dataobj [list $settings]
106}
107
108# ----------------------------------------------------------------------
109# USAGE: get
110#
111# Clients use this to query the list of objects being plotted, in
112# order from bottom to top of this result.
113# ----------------------------------------------------------------------
114itcl::body Rappture::Field2DResult::get {} {
115    return [$itk_component(renderer) get]
116}
117
118# ----------------------------------------------------------------------
119# USAGE: delete ?<dataobj1> <dataobj2> ...?
120#
121# Clients use this to delete a dataobj from the plot.  If no dataobjs
122# are specified, then all dataobjs are deleted.
123# ----------------------------------------------------------------------
124itcl::body Rappture::Field2DResult::delete {args} {
125    eval $itk_component(renderer) delete $args
126}
127
128# ----------------------------------------------------------------------
129# USAGE: scale ?<data1> <data2> ...?
130#
131# Sets the default limits for the overall plot according to the
132# limits of the data for all of the given <data> objects.  This
133# accounts for all objects--even those not showing on the screen.
134# Because of this, the limits are appropriate for all objects as
135# the user scans through data in the ResultSet viewer.
136# ----------------------------------------------------------------------
137itcl::body Rappture::Field2DResult::scale {args} {
138    eval $itk_component(renderer) scale $args
139}
140
141# ----------------------------------------------------------------------
142# USAGE: download coming
143# USAGE: download controls <downloadCommand>
144# USAGE: download now
145#
146# Clients use this method to create a downloadable representation
147# of the plot.  Returns a list of the form {ext string}, where
148# "ext" is the file extension (indicating the type of data) and
149# "string" is the data itself.
150# ----------------------------------------------------------------------
151itcl::body Rappture::Field2DResult::download {option args} {
152    $itk_component(renderer) download $option
153}
154
155itcl::body Rappture::Field2DResult::snap { w h } {
156    return [$itk_component(renderer) snap $w $h]
157}
Note: See TracBrowser for help on using the repository browser.