Context Navigation

source: branches/uq/gui/scripts/vtksurfaceviewer.tcl @ 4797

Last change on this file since 4797 was 4797, checked in by gah, 9 years ago
sync with 1.4-pre
File size: 76.7 KB

Rev	Line
[4344]	1	# -- mode: tcl; indent-tabs-mode: nil --
	2	# ----------------------------------------------------------------------
	3	# COMPONENT: vtksurfaceviewer - Vtk 3D boundary surface viewer
	4	#
	5	# It connects to the Vtk server running on a rendering farm,
	6	# transmits data, and displays the results.
	7	# ======================================================================
	8	# AUTHOR: Michael McLennan, Purdue University
	9	# Copyright (c) 2004-2014 HUBzero Foundation, LLC
	10	#
	11	# See the file "license.terms" for information on usage and
	12	# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
	13	# ======================================================================
	14	package require Itk
	15	package require BLT
	16	#package require Img
	17
	18	option add *VtkSurfaceViewer.width 4i widgetDefault
	19	option add VtkSurfaceViewercursor crosshair widgetDefault
	20	option add *VtkSurfaceViewer.height 4i widgetDefault
	21	option add *VtkSurfaceViewer.foreground black widgetDefault
	22	option add *VtkSurfaceViewer.controlBackground gray widgetDefault
	23	option add *VtkSurfaceViewer.controlDarkBackground #999999 widgetDefault
	24	option add *VtkSurfaceViewer.plotBackground black widgetDefault
	25	option add *VtkSurfaceViewer.plotForeground white widgetDefault
	26	option add *VtkSurfaceViewer.font \
	27	--helvetica-medium-r-normal--12-* widgetDefault
	28
	29	# must use this name -- plugs into Rappture::resources::load
	30	proc VtkSurfaceViewer_init_resources {} {
	31	Rappture::resources::register \
	32	vtkvis_server Rappture::VtkSurfaceViewer::SetServerList
	33	}
	34
	35	itcl::class Rappture::VtkSurfaceViewer {
	36	inherit Rappture::VisViewer
	37
	38	itk_option define -plotforeground plotForeground Foreground ""
	39	itk_option define -plotbackground plotBackground Background ""
	40
	41	constructor { hostlist args } {
	42	Rappture::VisViewer::constructor $hostlist
	43	} {
	44	# defined below
	45	}
	46	destructor {
	47	# defined below
	48	}
	49	public proc SetServerList { namelist } {
	50	Rappture::VisViewer::SetServerList "vtkvis" $namelist
	51	}
	52	public method add {dataobj {settings ""}}
	53	public method camera {option args}
	54	public method delete {args}
	55	public method disconnect {}
	56	public method download {option args}
	57	public method get {args}
	58	public method isconnected {}
	59	public method parameters {title args} {
	60	# do nothing
	61	}
	62	public method scale {args}
	63
	64	protected method Connect {}
	65	protected method CurrentDatasets {args}
	66	protected method Disconnect {}
	67	protected method DoResize {}
	68	protected method DoRotate {}
	69	protected method AdjustSetting {what {value ""}}
	70	protected method InitSettings { args }
	71	protected method Pan {option x y}
	72	protected method Pick {x y}
	73	protected method Rebuild {}
	74	protected method ReceiveDataset { args }
	75	protected method ReceiveImage { args }
	76	protected method ReceiveLegend { colormap title vmin vmax size }
	77	protected method Rotate {option x y}
	78	protected method Zoom {option}
	79
	80	# The following methods are only used by this class.
	81	private method BuildAxisTab {}
	82	private method BuildCameraTab {}
	83	private method BuildColormap { name }
	84	private method BuildDownloadPopup { widget command }
	85	private method BuildSurfaceTab {}
	86	private method Combo { option }
	87	private method DrawLegend {}
	88	private method EnterLegend { x y }
	89	private method EventuallyResize { w h }
	90	private method EventuallyRotate { q }
	91	private method EventuallyRequestLegend {}
	92	private method GetImage { args }
	93	private method GetVtkData { args }
	94	private method IsValidObject { dataobj }
	95	private method LeaveLegend {}
	96	private method MotionLegend { x y }
	97	private method PanCamera {}
	98	private method RequestLegend {}
	99	private method SetLegendTip { x y }
	100	private method SetObjectStyle { dataobj comp }
	101	private method SetCurrentColormap { color }
	102	private method SetOrientation { side }
	103	private method UpdateContourList {}
	104
	105	private variable _arcball ""
	106
	107	private variable _dlist "" ; # list of data objects
	108	private variable _obj2datasets
	109	private variable _obj2ovride ; # maps dataobj => style override
	110	private variable _datasets ; # contains all the dataobj-component
	111	; # datasets in the server
	112	private variable _colormaps ; # contains all the colormaps
	113	; # in the server.
	114	# The name of the current colormap used. The colormap is global to all
	115	# heightmaps displayed.
	116	private variable _currentColormap ""
	117	private variable _currentNumContours -1
	118
	119	private variable _dataset2style ;# maps dataobj-component to transfunc
	120
	121	private variable _click ; # info used for rotate operations
	122	private variable _limits ; # autoscale min/max for all axes
	123	private variable _view ; # view params for 3D view
	124	private variable _settings
	125	private variable _style; # Array of current component styles.
	126	private variable _changed
	127	private variable _initialStyle; # Array of initial component styles.
	128	private variable _reset 1; # indicates if camera needs to be reset
	129	# to starting position.
	130
	131	private variable _first "" ; # This is the topmost dataset.
	132	private variable _start 0
	133	private variable _title ""
	134	private variable _isolines
	135	private variable _contourList ""
	136
	137	common _downloadPopup; # download options from popup
	138	private common _hardcopy
	139	private variable _width 0
	140	private variable _height 0
	141	private variable _resizePending 0
	142	private variable _rotatePending 0
	143	private variable _legendPending 0
	144	private variable _field ""
	145	private variable _colorMode "scalar"; # Mode of colormap (vmag or scalar)
	146	private variable _fieldNames {}
	147	private variable _fields
	148	private variable _curFldName ""
	149	private variable _curFldLabel ""
	150	}
	151
	152	itk::usual VtkSurfaceViewer {
	153	keep -background -foreground -cursor -font
	154	keep -plotbackground -plotforeground
	155	}
	156
	157	# ----------------------------------------------------------------------
	158	# CONSTRUCTOR
	159	# ----------------------------------------------------------------------
	160	itcl::body Rappture::VtkSurfaceViewer::constructor {hostlist args} {
	161	package require vtk
	162	set _serverType "vtkvis"
	163
	164	# Rebuild event
	165	$_dispatcher register !rebuild
	166	$_dispatcher dispatch $this !rebuild "[itcl::code $this Rebuild]; list"
	167
	168	# Resize event
	169	$_dispatcher register !resize
	170	$_dispatcher dispatch $this !resize "[itcl::code $this DoResize]; list"
	171
	172	# Rotate event
	173	$_dispatcher register !rotate
	174	$_dispatcher dispatch $this !rotate "[itcl::code $this DoRotate]; list"
	175
	176	# Legend event
	177	$_dispatcher register !legend
	178	$_dispatcher dispatch $this !legend "[itcl::code $this RequestLegend]; list"
	179
	180	#
	181	# Populate parser with commands handle incoming requests
	182	#
	183	$_parser alias image [itcl::code $this ReceiveImage]
	184	$_parser alias dataset [itcl::code $this ReceiveDataset]
	185	$_parser alias legend [itcl::code $this ReceiveLegend]
	186
	187	# Initialize the view to some default parameters.
	188	array set _view {
	189	qw 0.853553
	190	qx -0.353553
	191	qy 0.353553
	192	qz 0.146447
	193	zoom 1.0
	194	xpan 0
	195	ypan 0
	196	ortho 0
	197	}
	198	set _arcball [blt::arcball create 100 100]
	199	set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
	200	$_arcball quaternion $q
	201
	202	array set _settings {
[4797]	203	-axesvisible 1
	204	-axislabels 1
	205	-axisminorticks 1
	206	-background black
	207	-colormap BCGYR
	208	-colormapvisible 1
	209	-field "Default"
	210	-isolinecolor white
	211	-isolinesvisible 0
	212	-legendvisible 1
	213	-numcontours 10
	214	-surfaceedges 0
	215	-surfacelighting 1
	216	-surfaceopacity 100
	217	-outline 0
	218	-surfacevisible 1
	219	-surfacewireframe 0
	220	-xgrid 0
	221	-ygrid 0
	222	-zgrid 0
[4344]	223	}
	224	array set _changed {
	225	-colormap 0
	226	-numcontours 0
	227	-surfaceopacity 0
	228	}
	229
	230	itk_component add view {
	231	canvas $itk_component(plotarea).view \
	232	-highlightthickness 0 -borderwidth 0
	233	} {
	234	usual
	235	ignore -highlightthickness -borderwidth -background
	236	}
	237
	238	itk_component add fieldmenu {
	239	menu $itk_component(plotarea).menu -bg black -fg white -relief flat \
	240	-tearoff 0
	241	} {
	242	usual
	243	ignore -background -foreground -relief -tearoff
	244	}
	245	set c $itk_component(view)
	246	bind $c <Configure> [itcl::code $this EventuallyResize %w %h]
	247	bind $c <4> [itcl::code $this Zoom in 0.25]
	248	bind $c <5> [itcl::code $this Zoom out 0.25]
	249	bind $c <KeyPress-Left> [list %W xview scroll 10 units]
	250	bind $c <KeyPress-Right> [list %W xview scroll -10 units]
	251	bind $c <KeyPress-Up> [list %W yview scroll 10 units]
	252	bind $c <KeyPress-Down> [list %W yview scroll -10 units]
	253	bind $c <Enter> "focus %W"
	254	bind $c <Control-F1> [itcl::code $this ToggleConsole]
	255
	256	# Fix the scrollregion in case we go off screen
	257	$c configure -scrollregion [$c bbox all]
	258
	259	set _map(id) [$c create image 0 0 -anchor nw -image $_image(plot)]
	260	set _map(cwidth) -1
	261	set _map(cheight) -1
	262	set _map(zoom) 1.0
	263	set _map(original) ""
	264
	265	set f [$itk_component(main) component controls]
	266	itk_component add reset {
	267	button $f.reset -borderwidth 1 -padx 1 -pady 1 \
	268	-highlightthickness 0 \
	269	-image [Rappture::icon reset-view] \
	270	-command [itcl::code $this Zoom reset]
	271	} {
	272	usual
	273	ignore -highlightthickness
	274	}
	275	pack $itk_component(reset) -side top -padx 2 -pady 2
	276	Rappture::Tooltip::for $itk_component(reset) \
	277	"Reset the view to the default zoom level"
	278
	279	itk_component add zoomin {
	280	button $f.zin -borderwidth 1 -padx 1 -pady 1 \
	281	-highlightthickness 0 \
	282	-image [Rappture::icon zoom-in] \
	283	-command [itcl::code $this Zoom in]
	284	} {
	285	usual
	286	ignore -highlightthickness
	287	}
	288	pack $itk_component(zoomin) -side top -padx 2 -pady 2
	289	Rappture::Tooltip::for $itk_component(zoomin) "Zoom in"
	290
	291	itk_component add zoomout {
	292	button $f.zout -borderwidth 1 -padx 1 -pady 1 \
	293	-highlightthickness 0 \
	294	-image [Rappture::icon zoom-out] \
	295	-command [itcl::code $this Zoom out]
	296	} {
	297	usual
	298	ignore -highlightthickness
	299	}
	300	pack $itk_component(zoomout) -side top -padx 2 -pady 2
	301	Rappture::Tooltip::for $itk_component(zoomout) "Zoom out"
	302
	303	itk_component add surface {
	304	Rappture::PushButton $f.surface \
	305	-onimage [Rappture::icon volume-on] \
	306	-offimage [Rappture::icon volume-off] \
	307	-variable [itcl::scope _settings(-surfacevisible)] \
	308	-command [itcl::code $this AdjustSetting -surfacevisible]
	309	}
	310	$itk_component(surface) select
	311	Rappture::Tooltip::for $itk_component(surface) \
	312	"Don't display the surface"
	313	pack $itk_component(surface) -padx 2 -pady 2
	314
	315	if { [catch {
	316	BuildSurfaceTab
	317	BuildAxisTab
	318	BuildCameraTab
	319	} errs] != 0 } {
	320	puts stderr errs=$errs
	321	}
	322	# Legend
	323
	324	set _image(legend) [image create photo]
	325	itk_component add legend {
	326	canvas $itk_component(plotarea).legend -width 50 -highlightthickness 0
	327	} {
	328	usual
	329	ignore -highlightthickness
	330	rename -background -plotbackground plotBackground Background
	331	}
	332
	333	# Hack around the Tk panewindow. The problem is that the requested
	334	# size of the 3d view isn't set until an image is retrieved from
	335	# the server. So the panewindow uses the tiny size.
	336	set w 10000
	337	pack forget $itk_component(view)
	338	blt::table $itk_component(plotarea) \
	339	0,0 $itk_component(view) -fill both -reqwidth $w
	340	blt::table configure $itk_component(plotarea) c1 -resize none
	341
	342	# Bindings for rotation via mouse
	343	bind $itk_component(view) <ButtonPress-1> \
	344	[itcl::code $this Rotate click %x %y]
	345	bind $itk_component(view) <B1-Motion> \
	346	[itcl::code $this Rotate drag %x %y]
	347	bind $itk_component(view) <ButtonRelease-1> \
	348	[itcl::code $this Rotate release %x %y]
	349
	350	# Bindings for panning via mouse
	351	bind $itk_component(view) <ButtonPress-2> \
	352	[itcl::code $this Pan click %x %y]
	353	bind $itk_component(view) <B2-Motion> \
	354	[itcl::code $this Pan drag %x %y]
	355	bind $itk_component(view) <ButtonRelease-2> \
	356	[itcl::code $this Pan release %x %y]
	357
	358	#bind $itk_component(view) <ButtonRelease-3> \
	359	# [itcl::code $this Pick %x %y]
	360
	361	# Bindings for panning via keyboard
	362	bind $itk_component(view) <KeyPress-Left> \
	363	[itcl::code $this Pan set -10 0]
	364	bind $itk_component(view) <KeyPress-Right> \
	365	[itcl::code $this Pan set 10 0]
	366	bind $itk_component(view) <KeyPress-Up> \
	367	[itcl::code $this Pan set 0 -10]
	368	bind $itk_component(view) <KeyPress-Down> \
	369	[itcl::code $this Pan set 0 10]
	370	bind $itk_component(view) <Shift-KeyPress-Left> \
	371	[itcl::code $this Pan set -2 0]
	372	bind $itk_component(view) <Shift-KeyPress-Right> \
	373	[itcl::code $this Pan set 2 0]
	374	bind $itk_component(view) <Shift-KeyPress-Up> \
	375	[itcl::code $this Pan set 0 -2]
	376	bind $itk_component(view) <Shift-KeyPress-Down> \
	377	[itcl::code $this Pan set 0 2]
	378
	379	# Bindings for zoom via keyboard
	380	bind $itk_component(view) <KeyPress-Prior> \
	381	[itcl::code $this Zoom out]
	382	bind $itk_component(view) <KeyPress-Next> \
	383	[itcl::code $this Zoom in]
	384
	385	bind $itk_component(view) <Enter> "focus $itk_component(view)"
	386
	387	if {[string equal "x11" [tk windowingsystem]]} {
	388	# Bindings for zoom via mouse
	389	bind $itk_component(view) <4> [itcl::code $this Zoom out]
	390	bind $itk_component(view) <5> [itcl::code $this Zoom in]
	391	}
	392
	393	set _image(download) [image create photo]
	394
	395	eval itk_initialize $args
	396
	397	EnableWaitDialog 500
	398	Connect
	399	}
	400
	401	# ----------------------------------------------------------------------
	402	# DESTRUCTOR
	403	# ----------------------------------------------------------------------
	404	itcl::body Rappture::VtkSurfaceViewer::destructor {} {
	405	Disconnect
	406	image delete $_image(plot)
	407	image delete $_image(download)
	408	catch { blt::arcball destroy $_arcball }
	409	}
	410
	411	itcl::body Rappture::VtkSurfaceViewer::DoResize {} {
	412	if { $_width < 2 } {
	413	set _width 500
	414	}
	415	if { $_height < 2 } {
	416	set _height 500
	417	}
	418	set _start [clock clicks -milliseconds]
	419	SendCmd "screen size $_width $_height"
	420
	421	EventuallyRequestLegend
	422	set _resizePending 0
	423	}
	424
	425	itcl::body Rappture::VtkSurfaceViewer::DoRotate {} {
	426	set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
	427	SendCmd "camera orient $q"
	428	set _rotatePending 0
	429	}
	430
	431	itcl::body Rappture::VtkSurfaceViewer::EventuallyRequestLegend {} {
	432	if { !$_legendPending } {
	433	set _legendPending 1
	434	$_dispatcher event -idle !legend
	435	}
	436	}
	437
	438	itcl::body Rappture::VtkSurfaceViewer::EventuallyResize { w h } {
	439	set _width $w
	440	set _height $h
	441	$_arcball resize $w $h
	442	if { !$_resizePending } {
	443	set _resizePending 1
	444	$_dispatcher event -after 400 !resize
	445	}
	446	}
	447
	448	set rotate_delay 100
	449
	450	itcl::body Rappture::VtkSurfaceViewer::EventuallyRotate { q } {
	451	foreach { _view(qw) _view(qx) _view(qy) _view(qz) } $q break
	452	if { !$_rotatePending } {
	453	set _rotatePending 1
	454	global rotate_delay
	455	$_dispatcher event -after $rotate_delay !rotate
	456	}
	457	}
	458
	459	# ----------------------------------------------------------------------
	460	# USAGE: add <dataobj> ?<settings>?
	461	#
	462	# Clients use this to add a data object to the plot. The optional
	463	# <settings> are used to configure the plot. Allowed settings are
	464	# -color, -brightness, -width, -linestyle, and -raise.
	465	# ----------------------------------------------------------------------
	466	itcl::body Rappture::VtkSurfaceViewer::add {dataobj {settings ""}} {
	467	if { ![$dataobj isvalid] } {
	468	return; # Object doesn't contain valid data.
	469	}
	470	array set params {
	471	-color auto
	472	-width 1
	473	-linestyle solid
	474	-brightness 0
	475	-raise 0
	476	-description ""
	477	-param ""
	478	-type ""
	479	}
	480	array set params $settings
	481	set params(-description) ""
	482	set params(-param) ""
	483	array set params $settings
	484
	485	if {$params(-color) == "auto" \|\| $params(-color) == "autoreset"} {
	486	# can't handle -autocolors yet
	487	set params(-color) black
	488	}
	489	set pos [lsearch -exact $_dlist $dataobj]
	490	if {$pos < 0} {
	491	lappend _dlist $dataobj
	492	}
	493	set _obj2ovride($dataobj-color) $params(-color)
	494	set _obj2ovride($dataobj-width) $params(-width)
	495	set _obj2ovride($dataobj-raise) $params(-raise)
	496	$_dispatcher event -idle !rebuild
	497	}
	498
	499
	500	# ----------------------------------------------------------------------
	501	# USAGE: delete ?<dataobj1> <dataobj2> ...?
	502	#
	503	# Clients use this to delete a dataobj from the plot. If no dataobjs
	504	# are specified, then all dataobjs are deleted. No data objects are
	505	# deleted. They are only removed from the display list.
	506	#
	507	# ----------------------------------------------------------------------
	508	itcl::body Rappture::VtkSurfaceViewer::delete {args} {
	509	if { [llength $args] == 0} {
	510	set args $_dlist
	511	}
	512	# Delete all specified dataobjs
	513	set changed 0
	514	foreach dataobj $args {
	515	set pos [lsearch -exact $_dlist $dataobj]
	516	if { $pos < 0 } {
	517	continue; # Don't know anything about it.
	518	}
	519	# Remove it from the dataobj list.
	520	set _dlist [lreplace $_dlist $pos $pos]
	521	array unset _obj2ovride $dataobj-*
	522	array unset _settings $dataobj-*
	523	set changed 1
	524	}
	525	# If anything changed, then rebuild the plot
	526	if { $changed } {
	527	$_dispatcher event -idle !rebuild
	528	}
	529	}
	530
	531	# ----------------------------------------------------------------------
	532	# USAGE: get ?-objects?
	533	# USAGE: get ?-visible?
	534	# USAGE: get ?-image view?
	535	#
	536	# Clients use this to query the list of objects being plotted, in
	537	# order from bottom to top of this result. The optional "-image"
	538	# flag can also request the internal images being shown.
	539	# ----------------------------------------------------------------------
	540	itcl::body Rappture::VtkSurfaceViewer::get {args} {
	541	if {[llength $args] == 0} {
	542	set args "-objects"
	543	}
	544
	545	set op [lindex $args 0]
	546	switch -- $op {
	547	"-objects" {
	548	# put the dataobj list in order according to -raise options
	549	set dlist {}
	550	foreach dataobj $_dlist {
	551	if { ![IsValidObject $dataobj] } {
	552	continue
	553	}
	554	if {[info exists _obj2ovride($dataobj-raise)] &&
	555	$_obj2ovride($dataobj-raise)} {
	556	set dlist [linsert $dlist 0 $dataobj]
	557	} else {
	558	lappend dlist $dataobj
	559	}
	560	}
	561	return $dlist
	562	}
	563	"-visible" {
	564	set dlist {}
	565	foreach dataobj $_dlist {
	566	if { ![IsValidObject $dataobj] } {
	567	continue
	568	}
	569	if { ![info exists _obj2ovride($dataobj-raise)] } {
	570	# No setting indicates that the object isn't visible.
	571	continue
	572	}
	573	# Otherwise use the -raise parameter to put the object to
	574	# the front of the list.
	575	if { $_obj2ovride($dataobj-raise) } {
	576	set dlist [linsert $dlist 0 $dataobj]
	577	} else {
	578	lappend dlist $dataobj
	579	}
	580	}
	581	return $dlist
	582	}
	583	-image {
	584	if {[llength $args] != 2} {
	585	error "wrong # args: should be \"get -image view\""
	586	}
	587	switch -- [lindex $args end] {
	588	view {
	589	return $_image(plot)
	590	}
	591	default {
	592	error "bad image name \"[lindex $args end]\": should be view"
	593	}
	594	}
	595	}
	596	default {
	597	error "bad option \"$op\": should be -objects or -image"
	598	}
	599	}
	600	}
	601
	602	# ----------------------------------------------------------------------
	603	# USAGE: scale ?<data1> <data2> ...?
	604	#
	605	# Sets the default limits for the overall plot according to the
	606	# limits of the data for all of the given <data> objects. This
	607	# accounts for all objects--even those not showing on the screen.
	608	# Because of this, the limits are appropriate for all objects as
	609	# the user scans through data in the ResultSet viewer.
	610	# ----------------------------------------------------------------------
	611	itcl::body Rappture::VtkSurfaceViewer::scale { args } {
	612	foreach dataobj $args {
	613	if { ![$dataobj isvalid] } {
	614	continue; # Object doesn't contain valid data.
	615	}
	616	foreach axis { x y z } {
	617	set lim [$dataobj limits $axis]
	618	if { ![info exists _limits($axis)] } {
	619	set _limits($axis) $lim
	620	continue
	621	}
	622	foreach {min max} $lim break
	623	foreach {amin amax} $_limits($axis) break
	624	if { $amin > $min } {
	625	set amin $min
	626	}
	627	if { $amax < $max } {
	628	set amax $max
	629	}
	630	set _limits($axis) [list $amin $amax]
	631	}
	632	foreach { fname lim } [$dataobj fieldlimits] {
	633	if { ![info exists _limits($fname)] } {
	634	set _limits($fname) $lim
	635	continue
	636	}
	637	foreach {min max} $lim break
	638	foreach {fmin fmax} $_limits($fname) break
	639	if { $fmin > $min } {
	640	set fmin $min
	641	}
	642	if { $fmax < $max } {
	643	set fmax $max
	644	}
	645	set _limits($fname) [list $fmin $fmax]
	646	}
	647	}
	648	}
	649
	650	# ----------------------------------------------------------------------
	651	# USAGE: download coming
	652	# USAGE: download controls <downloadCommand>
	653	# USAGE: download now
	654	#
	655	# Clients use this method to create a downloadable representation
	656	# of the plot. Returns a list of the form {ext string}, where
	657	# "ext" is the file extension (indicating the type of data) and
	658	# "string" is the data itself.
	659	# ----------------------------------------------------------------------
	660	itcl::body Rappture::VtkSurfaceViewer::download {option args} {
	661	switch $option {
	662	coming {
	663	if {[catch {
	664	blt::winop snap $itk_component(plotarea) $_image(download)
	665	}]} {
	666	$_image(download) configure -width 1 -height 1
	667	$_image(download) put #000000
	668	}
	669	}
	670	controls {
	671	set popup .vtkviewerdownload
	672	if { ![winfo exists .vtkviewerdownload] } {
	673	set inner [BuildDownloadPopup $popup [lindex $args 0]]
	674	} else {
	675	set inner [$popup component inner]
	676	}
	677	set _downloadPopup(image_controls) $inner.image_frame
	678	set num [llength [get]]
	679	set num [expr {($num == 1) ? "1 result" : "$num results"}]
	680	set word [Rappture::filexfer::label downloadWord]
	681	$inner.summary configure -text "$word $num in the following format:"
	682	update idletasks ;# Fix initial sizes
	683	return $popup
	684	}
	685	now {
	686	set popup .vtkviewerdownload
	687	if {[winfo exists .vtkviewerdownload]} {
	688	$popup deactivate
	689	}
	690	switch -- $_downloadPopup(format) {
	691	"image" {
	692	return [$this GetImage [lindex $args 0]]
	693	}
	694	"vtk" {
	695	return [$this GetVtkData [lindex $args 0]]
	696	}
	697	}
	698	return ""
	699	}
	700	default {
	701	error "bad option \"$option\": should be coming, controls, now"
	702	}
	703	}
	704	}
	705
	706	# ----------------------------------------------------------------------
	707	# USAGE: Connect ?<host:port>,<host:port>...?
	708	#
	709	# Clients use this method to establish a connection to a new
	710	# server, or to reestablish a connection to the previous server.
	711	# Any existing connection is automatically closed.
	712	# ----------------------------------------------------------------------
	713	itcl::body Rappture::VtkSurfaceViewer::Connect {} {
	714	set _hosts [GetServerList "vtkvis"]
	715	if { "" == $_hosts } {
	716	return 0
	717	}
	718	set result [VisViewer::Connect $_hosts]
	719	if { $result } {
	720	if { $_reportClientInfo } {
	721	# Tell the server the viewer, hub, user and session.
	722	# Do this immediately on connect before buffering any commands
	723	global env
	724
	725	set info {}
	726	set user "???"
	727	if { [info exists env(USER)] } {
	728	set user $env(USER)
	729	}
	730	set session "???"
	731	if { [info exists env(SESSION)] } {
	732	set session $env(SESSION)
	733	}
[4797]	734	lappend info "version" "$Rappture::version"
	735	lappend info "build" "$Rappture::build"
	736	lappend info "svnurl" "$Rappture::svnurl"
	737	lappend info "installdir" "$Rappture::installdir"
[4344]	738	lappend info "hub" [exec hostname]
	739	lappend info "client" "vtksurfaceviewer"
	740	lappend info "user" $user
	741	lappend info "session" $session
	742	SendCmd "clientinfo [list $info]"
	743	}
	744
	745	set w [winfo width $itk_component(view)]
	746	set h [winfo height $itk_component(view)]
	747	EventuallyResize $w $h
	748	}
	749	return $result
	750	}
	751
	752	#
	753	# isconnected --
	754	#
	755	# Indicates if we are currently connected to the visualization server.
	756	#
	757	itcl::body Rappture::VtkSurfaceViewer::isconnected {} {
	758	return [VisViewer::IsConnected]
	759	}
	760
	761	#
	762	# disconnect --
	763	#
	764	itcl::body Rappture::VtkSurfaceViewer::disconnect {} {
	765	Disconnect
	766	set _reset 1
	767	}
	768
	769	#
	770	# Disconnect --
	771	#
	772	# Clients use this method to disconnect from the current rendering
	773	# server.
	774	#
	775	itcl::body Rappture::VtkSurfaceViewer::Disconnect {} {
	776	VisViewer::Disconnect
	777
	778	$_dispatcher cancel !rebuild
	779	$_dispatcher cancel !resize
	780	$_dispatcher cancel !rotate
	781	$_dispatcher cancel !legend
	782	# disconnected -- no more data sitting on server
	783	set _outbuf ""
	784	array unset _datasets
	785	array unset _data
	786	array unset _colormaps
	787	array unset _seeds
	788	array unset _dataset2style
	789	array unset _obj2datasets
	790	}
	791
	792	# ----------------------------------------------------------------------
	793	# USAGE: ReceiveImage -bytes <size> -type <type> -token <token>
	794	#
	795	# Invoked automatically whenever the "image" command comes in from
	796	# the rendering server. Indicates that binary image data with the
	797	# specified <size> will follow.
	798	# ----------------------------------------------------------------------
	799	itcl::body Rappture::VtkSurfaceViewer::ReceiveImage { args } {
	800	array set info {
	801	-token "???"
	802	-bytes 0
	803	-type image
	804	}
	805	array set info $args
	806	set bytes [ReceiveBytes $info(-bytes)]
	807	if { $info(-type) == "image" } {
	808	if 0 {
	809	set f [open "last.ppm" "w"]
	810	puts $f $bytes
	811	close $f
	812	}
	813	$_image(plot) configure -data $bytes
	814	#set time [clock seconds]
	815	#set date [clock format $time]
	816	#set w [image width $_image(plot)]
	817	#set h [image height $_image(plot)]
	818	#puts stderr "$date: received image ${w}x${h} image"
	819	if { $_start > 0 } {
	820	set finish [clock clicks -milliseconds]
	821	#puts stderr "round trip time [expr $finish -$_start] milliseconds"
	822	set _start 0
	823	}
	824	} elseif { $info(type) == "print" } {
	825	set tag $this-print-$info(-token)
	826	set _hardcopy($tag) $bytes
	827	}
	828	}
	829
	830	#
	831	# ReceiveDataset --
	832	#
	833	itcl::body Rappture::VtkSurfaceViewer::ReceiveDataset { args } {
	834	if { ![isconnected] } {
	835	return
	836	}
	837	set option [lindex $args 0]
	838	switch -- $option {
	839	"scalar" {
	840	set option [lindex $args 1]
	841	switch -- $option {
	842	"world" {
	843	foreach { x y z value tag } [lrange $args 2 end] break
	844	}
	845	"pixel" {
	846	foreach { x y value tag } [lrange $args 2 end] break
	847	}
	848	}
	849	}
	850	"vector" {
	851	set option [lindex $args 1]
	852	switch -- $option {
	853	"world" {
	854	foreach { x y z vx vy vz tag } [lrange $args 2 end] break
	855	}
	856	"pixel" {
	857	foreach { x y vx vy vz tag } [lrange $args 2 end] break
	858	}
	859	}
	860	}
	861	"names" {
	862	foreach { name } [lindex $args 1] {
	863	#puts stderr "Dataset: $name"
	864	}
	865	}
	866	default {
	867	error "unknown dataset option \"$option\" from server"
	868	}
	869	}
	870	}
	871
	872	# ----------------------------------------------------------------------
	873	# USAGE: Rebuild
	874	#
	875	# Called automatically whenever something changes that affects the
	876	# data in the widget. Clears any existing data and rebuilds the
	877	# widget to display new data.
	878	# ----------------------------------------------------------------------
	879	itcl::body Rappture::VtkSurfaceViewer::Rebuild {} {
	880	set w [winfo width $itk_component(view)]
	881	set h [winfo height $itk_component(view)]
	882	if { $w < 2 \|\| $h < 2 } {
	883	$_dispatcher event -idle !rebuild
	884	return
	885	}
	886
	887	# Turn on buffering of commands to the server. We don't want to
	888	# be preempted by a server disconnect/reconnect (which automatically
	889	# generates a new call to Rebuild).
	890	StartBufferingCommands
	891
	892	if { $_reset } {
	893	set _width $w
	894	set _height $h
	895	$_arcball resize $w $h
	896	DoResize
	897	#
	898	# Reset the camera and other view parameters
	899	#
	900	set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
	901	$_arcball quaternion $q
	902	if {$_view(ortho)} {
	903	SendCmd "camera mode ortho"
	904	} else {
	905	SendCmd "camera mode persp"
	906	}
	907	DoRotate
	908	PanCamera
	909	set _first ""
	910	InitSettings -xaxisgrid -yaxisgrid -zaxisgrid -axismode \
[4797]	911	-axesvisible -axislabels -axisminorticks
	912	#SendCmd "axis lformat all %g"
[4344]	913	StopBufferingCommands
	914	SendCmd "imgflush"
	915	StartBufferingCommands
	916	}
	917	set _first ""
	918	SendCmd "dataset visible 0"
	919	foreach dataobj [get -objects] {
	920	if { [info exists _obj2ovride($dataobj-raise)] && $_first == "" } {
	921	set _first $dataobj
	922	}
	923	set _obj2datasets($dataobj) ""
	924	foreach comp [$dataobj components] {
	925	set tag $dataobj-$comp
	926	if { ![info exists _datasets($tag)] } {
	927	set bytes [$dataobj vtkdata $comp]
	928	if 0 {
	929	set f [open "/tmp/surface.vtk" "w"]
	930	puts $f $bytes
	931	close $f
	932	}
	933	set length [string length $bytes]
	934	if { $_reportClientInfo } {
	935	set info {}
	936	lappend info "tool_id" [$dataobj hints toolId]
	937	lappend info "tool_name" [$dataobj hints toolName]
	938	lappend info "tool_version" [$dataobj hints toolRevision]
	939	lappend info "tool_title" [$dataobj hints toolTitle]
	940	lappend info "dataset_label" [$dataobj hints label]
	941	lappend info "dataset_size" $length
	942	lappend info "dataset_tag" $tag
	943	SendCmd "clientinfo [list $info]"
	944	}
	945	append _outbuf "dataset add $tag data follows $length\n"
	946	append _outbuf $bytes
	947	set _datasets($tag) 1
	948	SetObjectStyle $dataobj $comp
	949	}
	950	lappend _obj2datasets($dataobj) $tag
	951	if { [info exists _obj2ovride($dataobj-raise)] } {
	952	# Setting dataset visible enables outline
	953	# and contour2d
	954	SendCmd "dataset visible 1 $tag"
	955	}
	956	}
	957	}
	958
	959	if { $_first != "" } {
	960	$itk_component(field) choices delete 0 end
	961	$itk_component(fieldmenu) delete 0 end
	962	array unset _fields
	963	set _curFldName ""
	964	foreach cname [$_first components] {
	965	foreach fname [$_first fieldnames $cname] {
	966	if { [info exists _fields($fname)] } {
	967	continue
	968	}
	969	foreach { label units components } \
	970	[$_first fieldinfo $fname] break
	971	$itk_component(field) choices insert end "$fname" "$label"
	972	$itk_component(fieldmenu) add radiobutton -label "$label" \
	973	-value $label -variable [itcl::scope _curFldLabel] \
	974	-selectcolor red \
	975	-activebackground $itk_option(-plotbackground) \
	976	-activeforeground $itk_option(-plotforeground) \
	977	-font "Arial 8" \
	978	-command [itcl::code $this Combo invoke]
	979	set _fields($fname) [list $label $units $components]
	980	if { $_curFldName == "" } {
	981	set _curFldName $fname
	982	set _curFldLabel $label
	983	}
	984	}
	985	}
	986	$itk_component(field) value $_curFldLabel
	987	}
[4538]	988	InitSettings -isolinesvisible -surfacevisible -outline
[4344]	989	if { $_reset } {
	990	# These are settings that rely on a dataset being loaded.
	991	InitSettings \
	992	-surfacelighting \
	993	-field \
	994	-surfaceedges -surfacelighting -surfaceopacity \
	995	-surfacewireframe \
	996	-numcontours
	997
	998	Zoom reset
	999	foreach axis { x y z } {
	1000	# Another problem fixed by a <view>. We looking into a data
	1001	# object for the name of the axes. This should be global to
	1002	# the viewer itself.
	1003	set label [$_first hints ${axis}label]
	1004	if { $label == "" } {
	1005	set label [string toupper $axis]
	1006	}
	1007	# May be a space in the axis label.
	1008	SendCmd [list axis name $axis $label]
	1009	}
	1010	if { [array size _fields] < 2 } {
[4797]	1011	catch {blt::table forget $itk_component(field) $itk_component(field_l)}
[4344]	1012	}
	1013	set _reset 0
	1014	}
	1015
	1016	# Actually write the commands to the server socket. If it fails, we don't
	1017	# care. We're finished here.
	1018	blt::busy hold $itk_component(hull)
	1019	StopBufferingCommands; # Turn off buffering and send commands.
	1020	blt::busy release $itk_component(hull)
	1021	}
	1022
	1023	# ----------------------------------------------------------------------
	1024	# USAGE: CurrentDatasets ?-all -visible? ?dataobjs?
	1025	#
	1026	# Returns a list of server IDs for the current datasets being displayed. This
	1027	# is normally a single ID, but it might be a list of IDs if the current data
	1028	# object has multiple components.
	1029	# ----------------------------------------------------------------------
	1030	itcl::body Rappture::VtkSurfaceViewer::CurrentDatasets {args} {
	1031	set flag [lindex $args 0]
	1032	switch -- $flag {
	1033	"-all" {
	1034	if { [llength $args] > 1 } {
	1035	error "CurrentDatasets: can't specify dataobj after \"-all\""
	1036	}
	1037	set dlist [get -objects]
	1038	}
	1039	"-visible" {
	1040	if { [llength $args] > 1 } {
	1041	set dlist {}
	1042	set args [lrange $args 1 end]
	1043	foreach dataobj $args {
	1044	if { [info exists _obj2ovride($dataobj-raise)] } {
	1045	lappend dlist $dataobj
	1046	}
	1047	}
	1048	} else {
	1049	set dlist [get -visible]
	1050	}
	1051	}
	1052	default {
	1053	set dlist $args
	1054	}
	1055	}
	1056	set rlist ""
	1057	foreach dataobj $dlist {
	1058	foreach comp [$dataobj components] {
	1059	set tag $dataobj-$comp
	1060	if { [info exists _datasets($tag)] && $_datasets($tag) } {
	1061	lappend rlist $tag
	1062	}
	1063	}
	1064	}
	1065	return $rlist
	1066	}
	1067
	1068	# ----------------------------------------------------------------------
	1069	# USAGE: Zoom in
	1070	# USAGE: Zoom out
	1071	# USAGE: Zoom reset
	1072	#
	1073	# Called automatically when the user clicks on one of the zoom
	1074	# controls for this widget. Changes the zoom for the current view.
	1075	# ----------------------------------------------------------------------
	1076	itcl::body Rappture::VtkSurfaceViewer::Zoom {option} {
	1077	switch -- $option {
	1078	"in" {
	1079	set _view(zoom) [expr {$_view(zoom)*1.25}]
	1080	SendCmd "camera zoom $_view(zoom)"
	1081	}
	1082	"out" {
	1083	set _view(zoom) [expr {$_view(zoom)*0.8}]
	1084	SendCmd "camera zoom $_view(zoom)"
	1085	}
	1086	"reset" {
	1087	array set _view {
	1088	qw 0.853553
	1089	qx -0.353553
	1090	qy 0.353553
	1091	qz 0.146447
	1092	zoom 1.0
	1093	xpan 0
	1094	ypan 0
	1095	}
	1096	if { $_first != "" } {
	1097	set location [$_first hints camera]
	1098	if { $location != "" } {
	1099	array set _view $location
	1100	}
	1101	}
	1102	set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
	1103	$_arcball quaternion $q
	1104	DoRotate
	1105	SendCmd "camera reset"
	1106	}
	1107	}
	1108	}
	1109
	1110	itcl::body Rappture::VtkSurfaceViewer::PanCamera {} {
	1111	set x $_view(xpan)
	1112	set y $_view(ypan)
	1113	SendCmd "camera pan $x $y"
	1114	}
	1115
	1116
	1117	# ----------------------------------------------------------------------
	1118	# USAGE: Rotate click <x> <y>
	1119	# USAGE: Rotate drag <x> <y>
	1120	# USAGE: Rotate release <x> <y>
	1121	#
	1122	# Called automatically when the user clicks/drags/releases in the
	1123	# plot area. Moves the plot according to the user's actions.
	1124	# ----------------------------------------------------------------------
	1125	itcl::body Rappture::VtkSurfaceViewer::Rotate {option x y} {
	1126	switch -- $option {
	1127	"click" {
	1128	$itk_component(view) configure -cursor fleur
	1129	set _click(x) $x
	1130	set _click(y) $y
	1131	}
	1132	"drag" {
	1133	if {[array size _click] == 0} {
	1134	Rotate click $x $y
	1135	} else {
	1136	set w [winfo width $itk_component(view)]
	1137	set h [winfo height $itk_component(view)]
	1138	if {$w <= 0 \|\| $h <= 0} {
	1139	return
	1140	}
	1141
	1142	if {[catch {
	1143	# this fails sometimes for no apparent reason
	1144	set dx [expr {double($x-$_click(x))/$w}]
	1145	set dy [expr {double($y-$_click(y))/$h}]
	1146	}]} {
	1147	return
	1148	}
	1149	if { $dx == 0 && $dy == 0 } {
	1150	return
	1151	}
	1152	set q [$_arcball rotate $x $y $_click(x) $_click(y)]
	1153	EventuallyRotate $q
	1154	set _click(x) $x
	1155	set _click(y) $y
	1156	}
	1157	}
	1158	"release" {
	1159	Rotate drag $x $y
	1160	$itk_component(view) configure -cursor ""
	1161	catch {unset _click}
	1162	}
	1163	default {
	1164	error "bad option \"$option\": should be click, drag, release"
	1165	}
	1166	}
	1167	}
	1168
	1169	itcl::body Rappture::VtkSurfaceViewer::Pick {x y} {
	1170	foreach tag [CurrentDatasets -visible] {
	1171	SendCmdNoSplash "dataset getscalar pixel $x $y $tag"
	1172	}
	1173	}
	1174
	1175	# ----------------------------------------------------------------------
	1176	# USAGE: $this Pan click x y
	1177	# $this Pan drag x y
	1178	# $this Pan release x y
	1179	#
	1180	# Called automatically when the user clicks on one of the zoom
	1181	# controls for this widget. Changes the zoom for the current view.
	1182	# ----------------------------------------------------------------------
	1183	itcl::body Rappture::VtkSurfaceViewer::Pan {option x y} {
	1184	switch -- $option {
	1185	"set" {
	1186	set w [winfo width $itk_component(view)]
	1187	set h [winfo height $itk_component(view)]
	1188	set x [expr $x / double($w)]
	1189	set y [expr $y / double($h)]
	1190	set _view(xpan) [expr $_view(xpan) + $x]
	1191	set _view(ypan) [expr $_view(ypan) + $y]
	1192	PanCamera
	1193	return
	1194	}
	1195	"click" {
	1196	set _click(x) $x
	1197	set _click(y) $y
	1198	$itk_component(view) configure -cursor hand1
	1199	}
	1200	"drag" {
	1201	if { ![info exists _click(x)] } {
	1202	set _click(x) $x
	1203	}
	1204	if { ![info exists _click(y)] } {
	1205	set _click(y) $y
	1206	}
	1207	set w [winfo width $itk_component(view)]
	1208	set h [winfo height $itk_component(view)]
	1209	set dx [expr ($_click(x) - $x)/double($w)]
	1210	set dy [expr ($_click(y) - $y)/double($h)]
	1211	set _click(x) $x
	1212	set _click(y) $y
	1213	set _view(xpan) [expr $_view(xpan) - $dx]
	1214	set _view(ypan) [expr $_view(ypan) - $dy]
	1215	PanCamera
	1216	}
	1217	"release" {
	1218	Pan drag $x $y
	1219	$itk_component(view) configure -cursor ""
	1220	}
	1221	default {
	1222	error "unknown option \"$option\": should set, click, drag, or release"
	1223	}
	1224	}
	1225	}
	1226
	1227	# ----------------------------------------------------------------------
	1228	# USAGE: InitSettings <what> ?<value>?
	1229	#
	1230	# Used internally to update rendering settings whenever parameters
	1231	# change in the popup settings panel. Sends the new settings off
	1232	# to the back end.
	1233	# ----------------------------------------------------------------------
	1234	itcl::body Rappture::VtkSurfaceViewer::InitSettings { args } {
	1235	foreach spec $args {
	1236	if { [info exists _settings($_first-$spec)] } {
	1237	# Reset global setting with dataobj specific setting
	1238	set _settings($spec) $_settings($_first-$spec)
	1239	}
	1240	AdjustSetting $spec
	1241	}
	1242	}
	1243
	1244	#
	1245	# AdjustSetting --
	1246	#
	1247	# Changes/updates a specific setting in the widget. There are
	1248	# usually user-setable option. Commands are sent to the render
	1249	# server.
	1250	#
	1251	itcl::body Rappture::VtkSurfaceViewer::AdjustSetting {what {value ""}} {
	1252	if { ![isconnected] } {
	1253	return
	1254	}
	1255	switch -- $what {
	1256	"-background" {
	1257	set bgcolor [$itk_component(background) value]
	1258	array set fgcolors {
	1259	"black" "white"
	1260	"white" "black"
	1261	"grey" "black"
	1262	}
	1263	configure -plotbackground $bgcolor \
	1264	-plotforeground $fgcolors($bgcolor)
	1265	$itk_component(view) delete "legend"
	1266	DrawLegend
	1267	}
	1268	"-axesvisible" {
[4797]	1269	set bool $_settings($what)
[4344]	1270	SendCmd "axis visible all $bool"
	1271	}
[4797]	1272	"-axislabels" {
	1273	set bool $_settings($what)
[4344]	1274	SendCmd "axis labels all $bool"
	1275	}
[4797]	1276	"-axisminorticks" {
	1277	set bool $_settings($what)
	1278	SendCmd "axis minticks all $bool"
	1279	}
[4344]	1280	"-xaxisgrid" - "-yaxisgrid" - "-zaxisgrid" {
	1281	set axis [string tolower [string range $what 1 1]]
	1282	set bool $_settings($what)
	1283	SendCmd "axis grid $axis $bool"
	1284	}
	1285	"-axismode" {
	1286	set mode [$itk_component(axisMode) value]
	1287	set mode [$itk_component(axisMode) translate $mode]
	1288	set _settings($what) $mode
	1289	SendCmd "axis flymode $mode"
	1290	}
	1291	"-colormap" {
	1292	set _changed($what) 1
	1293	StartBufferingCommands
	1294	set color [$itk_component(colormap) value]
	1295	set _settings($what) $color
	1296	if { $color == "none" } {
	1297	if { $_settings(-colormapvisible) } {
	1298	SendCmd "contour2d colormode constant {}"
	1299	SendCmd "polydata colormode constant {}"
	1300	set _settings(-colormapvisible) 0
	1301	}
	1302	} else {
	1303	if { !$_settings(-colormapvisible) } {
	1304	#SendCmd "contour2d colormode $_colorMode $_curFldName"
	1305	SendCmd "polydata colormode $_colorMode $_curFldName"
	1306	set _settings(-colormapvisible) 1
	1307	}
	1308	SetCurrentColormap $color
	1309	if {$_settings(-colormapdiscrete)} {
	1310	set numColors [expr $_settings(-numcontours) + 1]
	1311	SendCmd "colormap res $numColors $color"
	1312	}
	1313	}
	1314	StopBufferingCommands
	1315	EventuallyRequestLegend
	1316	}
	1317	"-colormapdiscrete" {
	1318	set bool $_settings($what)
	1319	set numColors [expr $_settings(-numcontours) + 1]
	1320	StartBufferingCommands
	1321	if {$bool} {
	1322	SendCmd "colormap res $numColors"
	1323	# Discrete colormap requires preinterp on
	1324	SendCmd "polydata preinterp on"
	1325	} else {
	1326	SendCmd "colormap res default"
	1327	# FIXME: add setting for preinterp (default on)
	1328	SendCmd "polydata preinterp on"
	1329	}
	1330	StopBufferingCommands
	1331	EventuallyRequestLegend
	1332	}
	1333	"-numcontours" {
	1334	set _settings($what) [$itk_component(numcontours) value]
	1335	set _currentNumContours $_settings($what)
	1336	UpdateContourList
	1337	set _changed($what) 1
	1338	SendCmd "contour2d contourlist [list $_contourList]"
	1339	if {$_settings(-colormapdiscrete)} {
	1340	set numColors [expr $_settings($what) + 1]
	1341	SendCmd "colormap res $numColors"
	1342	EventuallyRequestLegend
	1343	} else {
	1344	DrawLegend
	1345	}
	1346	}
	1347	"-surfacewireframe" {
	1348	set bool $_settings($what)
	1349	SendCmd "polydata wireframe $bool"
	1350	}
	1351	"-isolinesvisible" {
	1352	set bool $_settings($what)
	1353	SendCmd "contour2d visible $bool"
	1354	DrawLegend
	1355	}
	1356	"-surfacevisible" {
	1357	set bool $_settings($what)
	1358	SendCmd "polydata visible $bool"
	1359	if { $bool } {
	1360	Rappture::Tooltip::for $itk_component(surface) \
	1361	"Hide the surface"
	1362	} else {
	1363	Rappture::Tooltip::for $itk_component(surface) \
	1364	"Show the surface"
	1365	}
	1366	DrawLegend
	1367	}
	1368	"-surfacelighting" {
	1369	set bool $_settings($what)
	1370	SendCmd "polydata lighting $bool"
	1371	}
	1372	"-surfaceedges" {
	1373	set bool $_settings($what)
	1374	SendCmd "polydata edges $bool"
	1375	}
[4538]	1376	"-outline" {
[4344]	1377	set bool $_settings($what)
	1378	SendCmd "outline visible $bool"
	1379	}
	1380	"-isolinecolor" {
	1381	set color [$itk_component(isolineColor) value]
	1382	set _settings($what) $color
	1383	SendCmd "contour2d linecolor [Color2RGB $color]"
	1384	DrawLegend
	1385	}
	1386	"-surfaceopacity" {
	1387	set val $_settings($what)
	1388	set sval [expr { 0.01 * double($val) }]
	1389	SendCmd "polydata opacity $sval"
	1390	}
	1391	"-field" {
	1392	set label [$itk_component(field) value]
	1393	set fname [$itk_component(field) translate $label]
	1394	set _settings($what) $fname
	1395	if { [info exists _fields($fname)] } {
	1396	foreach { label units components } $_fields($fname) break
	1397	if { $components > 1 } {
	1398	set _colorMode vmag
	1399	} else {
	1400	set _colorMode scalar
	1401	}
	1402	set _curFldName $fname
	1403	set _curFldLabel $label
	1404	} else {
	1405	puts stderr "unknown field \"$fname\""
	1406	return
	1407	}
	1408	SendCmd "dataset scalar $_curFldName"
	1409	if { ![info exists _limits($_curFldName)] } {
	1410	SendCmd "dataset maprange all"
	1411	} else {
	1412	SendCmd "dataset maprange explicit $_limits($_curFldName) $_curFldName"
	1413	}
	1414	#SendCmd "contour2d colormode $_colorMode $_curFldName"
	1415	SendCmd "polydata colormode $_colorMode $_curFldName"
	1416	SendCmd "camera reset"
	1417	UpdateContourList
	1418	DrawLegend
	1419	}
	1420	"-legendvisible" {
	1421	if { !$_settings($what) } {
	1422	$itk_component(view) delete legend
	1423	}
	1424	DrawLegend
	1425	}
	1426	default {
	1427	error "don't know how to fix $what"
	1428	}
	1429	}
	1430	}
	1431
	1432
	1433	#
	1434	# RequestLegend --
	1435	#
	1436	# Request a new legend from the server. The size of the legend
	1437	# is determined from the height of the canvas.
	1438	#
	1439	# This should be called when
	1440	# 1. A new current colormap is set.
	1441	# 2. Window is resized.
	1442	# 3. The limits of the data have changed. (Just need a redraw).
	1443	# 4. Number of isolines have changed. (Just need a redraw).
	1444	# 5. Legend becomes visible (Just need a redraw).
	1445	#
	1446	itcl::body Rappture::VtkSurfaceViewer::RequestLegend {} {
	1447	set _legendPending 0
	1448	if { ![info exists _fields($_curFldName)] } {
	1449	return
	1450	}
	1451	set fname $_curFldName
	1452	set font "Arial 8"
	1453	set lineht [font metrics $font -linespace]
	1454	set w 12
	1455	set h [expr {$_height - 2 * ($lineht + 2)}]
	1456	if { $h < 1 } {
	1457	return
	1458	}
	1459	if { [string match "component*" $fname] } {
	1460	set title ""
	1461	} else {
	1462	if { [info exists _fields($fname)] } {
	1463	foreach { title units } $_fields($fname) break
	1464	if { $units != "" } {
	1465	set title [format "%s (%s)" $title $units]
	1466	}
	1467	} else {
	1468	set title $fname
	1469	}
	1470	}
	1471	# If there's a title too, subtract one more line
	1472	if { $title != "" } {
	1473	incr h -$lineht
	1474	}
	1475	# Set the legend on the first heightmap dataset.
	1476	if { $_currentColormap != "" } {
	1477	set cmap $_currentColormap
	1478	SendCmdNoWait "legend $cmap scalar $_curFldName {} $w $h 0"
	1479	}
	1480	}
	1481
	1482	# ----------------------------------------------------------------------
	1483	# CONFIGURATION OPTION: -plotbackground
	1484	# ----------------------------------------------------------------------
	1485	itcl::configbody Rappture::VtkSurfaceViewer::plotbackground {
	1486	if { [isconnected] } {
	1487	set rgb [Color2RGB $itk_option(-plotbackground)]
	1488	SendCmd "screen bgcolor $rgb"
	1489	}
	1490	}
	1491
	1492	# ----------------------------------------------------------------------
	1493	# CONFIGURATION OPTION: -plotforeground
	1494	# ----------------------------------------------------------------------
	1495	itcl::configbody Rappture::VtkSurfaceViewer::plotforeground {
	1496	if { [isconnected] } {
	1497	set rgb [Color2RGB $itk_option(-plotforeground)]
	1498	SendCmd "axis color all $rgb"
	1499	SendCmd "outline color $rgb"
	1500	}
	1501	}
	1502
	1503	itcl::body Rappture::VtkSurfaceViewer::BuildSurfaceTab {} {
	1504
	1505	set fg [option get $itk_component(hull) font Font]
	1506	#set bfg [option get $itk_component(hull) boldFont Font]
	1507
	1508	set inner [$itk_component(main) insert end \
	1509	-title "Surface Settings" \
	1510	-icon [Rappture::icon volume-on]]
	1511	$inner configure -borderwidth 4
	1512
	1513	checkbutton $inner.surface \
	1514	-text "Surface" \
	1515	-variable [itcl::scope _settings(-surfacevisible)] \
	1516	-command [itcl::code $this AdjustSetting -surfacevisible] \
	1517	-font "Arial 9"
	1518
	1519	checkbutton $inner.isolines \
	1520	-text "Isolines" \
	1521	-variable [itcl::scope _settings(-isolinesvisible)] \
	1522	-command [itcl::code $this AdjustSetting -isolinesvisible] \
	1523	-font "Arial 9"
	1524
	1525	checkbutton $inner.colormapDiscrete \
	1526	-text "Discrete Colormap" \
	1527	-variable [itcl::scope _settings(-colormapdiscrete)] \
	1528	-command [itcl::code $this AdjustSetting -colormapdiscrete] \
	1529	-font "Arial 9"
	1530
	1531	checkbutton $inner.wireframe \
	1532	-text "Wireframe" \
	1533	-variable [itcl::scope _settings(-surfacewireframe)] \
	1534	-command [itcl::code $this AdjustSetting -surfacewireframe] \
	1535	-font "Arial 9"
	1536
	1537	checkbutton $inner.lighting \
	1538	-text "Enable Lighting" \
	1539	-variable [itcl::scope _settings(-surfacelighting)] \
	1540	-command [itcl::code $this AdjustSetting -surfacelighting] \
	1541	-font "Arial 9"
	1542
	1543	checkbutton $inner.edges \
	1544	-text "Edges" \
	1545	-variable [itcl::scope _settings(-surfaceedges)] \
	1546	-command [itcl::code $this AdjustSetting -surfaceedges] \
	1547	-font "Arial 9"
	1548
	1549	checkbutton $inner.outline \
	1550	-text "Outline" \
[4538]	1551	-variable [itcl::scope _settings(-outline)] \
	1552	-command [itcl::code $this AdjustSetting -outline] \
[4344]	1553	-font "Arial 9"
	1554
	1555	checkbutton $inner.legend \
	1556	-text "Legend" \
	1557	-variable [itcl::scope _settings(-legendvisible)] \
	1558	-command [itcl::code $this AdjustSetting -legendvisible] \
	1559	-font "Arial 9"
	1560
	1561	label $inner.linecolor_l -text "Isolines" -font "Arial 9"
	1562	itk_component add isolineColor {
	1563	Rappture::Combobox $inner.linecolor -width 10 -editable 0
	1564	}
	1565	$inner.linecolor choices insert end \
	1566	"black" "black" \
	1567	"blue" "blue" \
	1568	"cyan" "cyan" \
	1569	"green" "green" \
	1570	"grey" "grey" \
	1571	"magenta" "magenta" \
	1572	"orange" "orange" \
	1573	"red" "red" \
	1574	"white" "white" \
	1575	"none" "none"
	1576
	1577	$itk_component(isolineColor) value "white"
	1578	bind $inner.linecolor <<Value>> \
	1579	[itcl::code $this AdjustSetting -isolinecolor]
	1580
	1581	label $inner.background_l -text "Background" -font "Arial 9"
	1582	itk_component add background {
	1583	Rappture::Combobox $inner.background -width 10 -editable 0
	1584	}
	1585	$inner.background choices insert end \
	1586	"black" "black" \
	1587	"white" "white" \
	1588	"grey" "grey"
	1589
	1590	$itk_component(background) value $_settings(-background)
	1591	bind $inner.background <<Value>> \
	1592	[itcl::code $this AdjustSetting -background]
	1593
	1594	label $inner.opacity_l -text "Opacity" -font "Arial 9"
	1595	::scale $inner.opacity -from 0 -to 100 -orient horizontal \
	1596	-variable [itcl::scope _settings(-surfaceopacity)] \
	1597	-width 10 \
	1598	-showvalue off \
	1599	-command [itcl::code $this AdjustSetting -surfaceopacity]
	1600
	1601	itk_component add field_l {
	1602	label $inner.field_l -text "Field" -font "Arial 9"
	1603	} {
	1604	ignore -font
	1605	}
	1606	itk_component add field {
	1607	Rappture::Combobox $inner.field -width 10 -editable 0
	1608	}
	1609	bind $inner.field <<Value>> \
	1610	[itcl::code $this AdjustSetting -field]
	1611
	1612	label $inner.colormap_l -text "Colormap" -font "Arial 9"
	1613	itk_component add colormap {
	1614	Rappture::Combobox $inner.colormap -width 10 -editable 0
	1615	}
	1616	$inner.colormap choices insert end [GetColormapList]
	1617
	1618	$itk_component(colormap) value "BCGYR"
	1619	bind $inner.colormap <<Value>> \
	1620	[itcl::code $this AdjustSetting -colormap]
	1621
	1622	label $inner.numcontours_l -text "Number of Isolines" -font "Arial 9"
	1623	itk_component add numcontours {
	1624	Rappture::Spinint $inner.numcontours \
	1625	-min 0 -max 50 -font "arial 9"
	1626	}
	1627	$itk_component(numcontours) value $_settings(-numcontours)
	1628	bind $itk_component(numcontours) <<Value>> \
	1629	[itcl::code $this AdjustSetting -numcontours]
	1630
	1631	blt::table $inner \
	1632	0,0 $inner.field_l -anchor w -pady 2 \
	1633	0,1 $inner.field -anchor w -pady 2 -fill x \
	1634	1,0 $inner.colormap_l -anchor w -pady 2 \
	1635	1,1 $inner.colormap -anchor w -pady 2 -fill x \
	1636	2,0 $inner.linecolor_l -anchor w -pady 2 \
	1637	2,1 $inner.linecolor -anchor w -pady 2 -fill x \
	1638	3,0 $inner.background_l -anchor w -pady 2 \
	1639	3,1 $inner.background -anchor w -pady 2 -fill x \
	1640	4,0 $inner.numcontours_l -anchor w -pady 2 \
	1641	4,1 $inner.numcontours -anchor w -pady 2 \
	1642	5,0 $inner.colormapDiscrete -anchor w -pady 2 -cspan 2 \
	1643	6,0 $inner.isolines -anchor w -pady 2 -cspan 2 \
	1644	7,0 $inner.wireframe -anchor w -pady 2 -cspan 2 \
	1645	8,0 $inner.lighting -anchor w -pady 2 -cspan 2 \
	1646	9,0 $inner.edges -anchor w -pady 2 -cspan 2 \
	1647	10,0 $inner.outline -anchor w -pady 2 -cspan 2 \
	1648	11,0 $inner.legend -anchor w -pady 2 \
	1649	12,0 $inner.opacity_l -anchor w -pady 2 \
	1650	12,1 $inner.opacity -fill x -pady 2 -fill x \
	1651
	1652	blt::table configure $inner r* c* -resize none
	1653	blt::table configure $inner r13 c1 -resize expand
	1654	}
	1655
	1656	itcl::body Rappture::VtkSurfaceViewer::BuildAxisTab {} {
	1657
	1658	set fg [option get $itk_component(hull) font Font]
	1659	#set bfg [option get $itk_component(hull) boldFont Font]
	1660
	1661	set inner [$itk_component(main) insert end \
	1662	-title "Axis Settings" \
	1663	-icon [Rappture::icon axis2]]
	1664	$inner configure -borderwidth 4
	1665
	1666	checkbutton $inner.visible \
[4797]	1667	-text "Axes" \
[4344]	1668	-variable [itcl::scope _settings(-axesvisible)] \
	1669	-command [itcl::code $this AdjustSetting -axesvisible] \
	1670	-font "Arial 9"
	1671
	1672	checkbutton $inner.labels \
[4797]	1673	-text "Axis Labels" \
	1674	-variable [itcl::scope _settings(-axislabels)] \
	1675	-command [itcl::code $this AdjustSetting -axislabels] \
[4344]	1676	-font "Arial 9"
[4797]	1677	label $inner.grid_l -text "Grid" -font "Arial 9"
	1678	checkbutton $inner.xgrid \
	1679	-text "X" \
[4344]	1680	-variable [itcl::scope _settings(-xaxisgrid)] \
	1681	-command [itcl::code $this AdjustSetting -xaxisgrid] \
	1682	-font "Arial 9"
[4797]	1683	checkbutton $inner.ygrid \
	1684	-text "Y" \
[4344]	1685	-variable [itcl::scope _settings(-yaxisgrid)] \
	1686	-command [itcl::code $this AdjustSetting -yaxisgrid] \
	1687	-font "Arial 9"
[4797]	1688	checkbutton $inner.zgrid \
	1689	-text "Z" \
[4344]	1690	-variable [itcl::scope _settings(-zaxisgrid)] \
	1691	-command [itcl::code $this AdjustSetting -zaxisgrid] \
	1692	-font "Arial 9"
[4797]	1693	checkbutton $inner.minorticks \
	1694	-text "Minor Ticks" \
	1695	-variable [itcl::scope _settings(-axisminorticks)] \
	1696	-command [itcl::code $this AdjustSetting -axisminorticks] \
	1697	-font "Arial 9"
[4344]	1698
	1699	label $inner.mode_l -text "Mode" -font "Arial 9"
	1700
	1701	itk_component add axisMode {
	1702	Rappture::Combobox $inner.mode -width 10 -editable 0
	1703	}
	1704	$inner.mode choices insert end \
	1705	"static_triad" "static" \
	1706	"closest_triad" "closest" \
	1707	"furthest_triad" "farthest" \
	1708	"outer_edges" "outer"
	1709	$itk_component(axisMode) value "static"
	1710	bind $inner.mode <<Value>> [itcl::code $this AdjustSetting -axismode]
	1711
	1712	blt::table $inner \
[4797]	1713	0,0 $inner.visible -anchor w -cspan 4 \
	1714	1,0 $inner.labels -anchor w -cspan 4 \
	1715	2,0 $inner.minorticks -anchor w -cspan 4 \
	1716	4,0 $inner.grid_l -anchor w \
	1717	4,1 $inner.xgrid -anchor w \
	1718	4,2 $inner.ygrid -anchor w \
	1719	4,3 $inner.zgrid -anchor w \
	1720	5,0 $inner.mode_l -anchor w -padx { 2 0 } \
	1721	5,1 $inner.mode -fill x -cspan 3
[4344]	1722
	1723	blt::table configure $inner r* c* -resize none
[4797]	1724	blt::table configure $inner r7 c6 -resize expand
	1725	blt::table configure $inner r3 -height 0.125i
[4344]	1726	}
	1727
	1728	itcl::body Rappture::VtkSurfaceViewer::BuildCameraTab {} {
	1729	set inner [$itk_component(main) insert end \
	1730	-title "Camera Settings" \
	1731	-icon [Rappture::icon camera]]
	1732	$inner configure -borderwidth 4
	1733
	1734	label $inner.view_l -text "view" -font "Arial 9"
	1735	set f [frame $inner.view]
	1736	foreach side { front back left right top bottom } {
	1737	button $f.$side -image [Rappture::icon view$side] \
	1738	-command [itcl::code $this SetOrientation $side]
	1739	Rappture::Tooltip::for $f.$side "Change the view to $side"
	1740	pack $f.$side -side left
	1741	}
	1742
	1743	blt::table $inner \
	1744	0,0 $inner.view_l -anchor e -pady 2 \
	1745	0,1 $inner.view -anchor w -pady 2
	1746
	1747	set labels { qx qy qz qw xpan ypan zoom }
	1748	set row 1
	1749	foreach tag $labels {
	1750	label $inner.${tag}label -text $tag -font "Arial 9"
	1751	entry $inner.${tag} -font "Arial 9" -bg white \
	1752	-textvariable [itcl::scope _view($tag)]
	1753	bind $inner.${tag} <KeyPress-Return> \
	1754	[itcl::code $this camera set ${tag}]
	1755	blt::table $inner \
	1756	$row,0 $inner.${tag}label -anchor e -pady 2 \
	1757	$row,1 $inner.${tag} -anchor w -pady 2
	1758	blt::table configure $inner r$row -resize none
	1759	incr row
	1760	}
	1761	checkbutton $inner.ortho \
	1762	-text "Orthographic Projection" \
	1763	-variable [itcl::scope _view(ortho)] \
	1764	-command [itcl::code $this camera set ortho] \
	1765	-font "Arial 9"
	1766	blt::table $inner \
	1767	$row,0 $inner.ortho -cspan 2 -anchor w -pady 2
	1768	blt::table configure $inner r$row -resize none
	1769	incr row
	1770
	1771	blt::table configure $inner c* r* -resize none
	1772	blt::table configure $inner c2 -resize expand
	1773	blt::table configure $inner r$row -resize expand
	1774	}
	1775
	1776	#
	1777	# camera --
	1778	#
	1779	itcl::body Rappture::VtkSurfaceViewer::camera {option args} {
	1780	switch -- $option {
	1781	"show" {
	1782	puts [array get _view]
	1783	}
	1784	"set" {
	1785	set who [lindex $args 0]
	1786	set x $_view($who)
	1787	set code [catch { string is double $x } result]
	1788	if { $code != 0 \|\| !$result } {
	1789	return
	1790	}
	1791	switch -- $who {
	1792	"ortho" {
	1793	if {$_view(ortho)} {
	1794	SendCmd "camera mode ortho"
	1795	} else {
	1796	SendCmd "camera mode persp"
	1797	}
	1798	}
	1799	"xpan" - "ypan" {
	1800	PanCamera
	1801	}
	1802	"qx" - "qy" - "qz" - "qw" {
	1803	set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
	1804	$_arcball quaternion $q
	1805	EventuallyRotate $q
	1806	}
	1807	"zoom" {
	1808	SendCmd "camera zoom $_view(zoom)"
	1809	}
	1810	}
	1811	}
	1812	}
	1813	}
	1814
	1815	itcl::body Rappture::VtkSurfaceViewer::GetVtkData { args } {
	1816	set bytes ""
	1817	foreach dataobj [get] {
	1818	foreach cname [$dataobj components] {
	1819	set tag $dataobj-$cname
	1820	set contents [$dataobj vtkdata $cname]
	1821	append bytes "$contents\n"
	1822	}
	1823	}
	1824	return [list .vtk $bytes]
	1825	}
	1826
	1827	itcl::body Rappture::VtkSurfaceViewer::GetImage { args } {
	1828	if { [image width $_image(download)] > 0 &&
	1829	[image height $_image(download)] > 0 } {
	1830	set bytes [$_image(download) data -format "jpeg -quality 100"]
	1831	set bytes [Rappture::encoding::decode -as b64 $bytes]
	1832	return [list .jpg $bytes]
	1833	}
	1834	return ""
	1835	}
	1836
	1837	itcl::body Rappture::VtkSurfaceViewer::BuildDownloadPopup { popup command } {
	1838	Rappture::Balloon $popup \
	1839	-title "[Rappture::filexfer::label downloadWord] as..."
	1840	set inner [$popup component inner]
	1841	label $inner.summary -text "" -anchor w
	1842	radiobutton $inner.vtk_button -text "VTK data file" \
	1843	-variable [itcl::scope _downloadPopup(format)] \
	1844	-font "Arial 9 " \
	1845	-value vtk
	1846	Rappture::Tooltip::for $inner.vtk_button "Save as VTK data file."
	1847	radiobutton $inner.image_button -text "Image File" \
	1848	-variable [itcl::scope _downloadPopup(format)] \
	1849	-font "Arial 9 " \
	1850	-value image
	1851	Rappture::Tooltip::for $inner.image_button \
	1852	"Save as digital image."
	1853
	1854	button $inner.ok -text "Save" \
	1855	-highlightthickness 0 -pady 2 -padx 3 \
	1856	-command $command \
	1857	-compound left \
	1858	-image [Rappture::icon download]
	1859
	1860	button $inner.cancel -text "Cancel" \
	1861	-highlightthickness 0 -pady 2 -padx 3 \
	1862	-command [list $popup deactivate] \
	1863	-compound left \
	1864	-image [Rappture::icon cancel]
	1865
	1866	blt::table $inner \
	1867	0,0 $inner.summary -cspan 2 \
	1868	1,0 $inner.vtk_button -anchor w -cspan 2 -padx { 4 0 } \
	1869	2,0 $inner.image_button -anchor w -cspan 2 -padx { 4 0 } \
	1870	4,1 $inner.cancel -width .9i -fill y \
	1871	4,0 $inner.ok -padx 2 -width .9i -fill y
	1872	blt::table configure $inner r3 -height 4
	1873	blt::table configure $inner r4 -pady 4
	1874	raise $inner.image_button
	1875	$inner.vtk_button invoke
	1876	return $inner
	1877	}
	1878
	1879	itcl::body Rappture::VtkSurfaceViewer::SetObjectStyle { dataobj comp } {
	1880	# Parse style string.
	1881	set tag $dataobj-$comp
	1882	array set style {
	1883	-color BCGYR
	1884	-edgecolor black
	1885	-edges 0
	1886	-isolinecolor white
	1887	-isolinesvisible 0
	1888	-levels 10
	1889	-lighting 1
	1890	-linewidth 1.0
	1891	-opacity 1.0
	1892	-outline 0
	1893	-surfacevisible 1
	1894	-wireframe 0
	1895	}
	1896	array set style [$dataobj style $comp]
	1897	if { $dataobj != $_first \|\| $style(-levels) == 1 } {
	1898	set style(-opacity) 1
	1899	}
	1900
	1901	# This is too complicated. We want to set the colormap, number of
	1902	# isolines and opacity for the dataset. They can be the default values,
	1903	# the style hints loaded with the dataset, or set by user controls. As
	1904	# datasets get loaded, they first use the defaults that are overidden
	1905	# by the style hints. If the user changes the global controls, then that
	1906	# overrides everything else. I don't know what it means when global
	1907	# controls are specified as style hints by each dataset. It complicates
	1908	# the code to handle aberrant cases.
	1909
	1910	if { $_changed(-surfaceopacity) } {
[4487]	1911	set style(-opacity) [expr $_settings(-surfaceopacity) * 0.01]
[4344]	1912	}
	1913	if { $_changed(-numcontours) } {
	1914	set style(-levels) $_settings(-numcontours)
	1915	}
	1916	if { $_changed(-colormap) } {
	1917	set style(-color) $_settings(-colormap)
	1918	}
	1919	if { $_currentColormap == "" } {
	1920	SetCurrentColormap $style(-color)
	1921	$itk_component(colormap) value $style(-color)
	1922	}
	1923	if { $_currentNumContours != $style(-levels) } {
	1924	set _currentNumContours $style(-levels)
	1925	set _settings(-numcontours) $_currentNumContours
	1926	$itk_component(numcontours) value $_currentNumContours
	1927	UpdateContourList
	1928	DrawLegend
	1929	}
	1930	set _settings(-isolinesvisible) $style(-isolinesvisible)
	1931	set _settings(-surfacevisible) $style(-surfacevisible)
	1932
	1933	SendCmd "outline add $tag"
	1934	SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag"
	1935	SendCmd "outline visible $style(-outline) $tag"
[4538]	1936	set _settings(-outline) $style(-outline)
	1937
	1938	SendCmd "polydata add $tag"
	1939	SendCmd "polydata edges $style(-edges) $tag"
[4344]	1940	set _settings(-surfaceedges) $style(-edges)
	1941	#SendCmd "polydata color [Color2RGB $settings(-color)] $tag"
	1942	SendCmd "polydata lighting $style(-lighting) $tag"
	1943	set _settings(-surfacelighting) $style(-lighting)
	1944	SendCmd "polydata linecolor [Color2RGB $style(-edgecolor)] $tag"
	1945	SendCmd "polydata linewidth $style(-linewidth) $tag"
[4487]	1946	SendCmd "polydata opacity $style(-opacity) $tag"
	1947	set _settings(-surfaceopacity) [expr $style(-opacity) * 100.0]
[4344]	1948	SetCurrentColormap $style(-color)
	1949	SendCmd "polydata wireframe $style(-wireframe) $tag"
	1950	set _settings(-surfacewireframe) $style(-wireframe)
[4538]	1951
	1952	SendCmd [list contour2d add contourlist $_contourList $tag]
	1953	SendCmd "contour2d colormode constant {} $tag"
	1954	SendCmd "contour2d color [Color2RGB $style(-isolinecolor)] $tag"
[4344]	1955	}
	1956
	1957	itcl::body Rappture::VtkSurfaceViewer::IsValidObject { dataobj } {
	1958	if {[catch {$dataobj isa Rappture::Field} valid] != 0 \|\| !$valid} {
	1959	return 0
	1960	}
	1961	return 1
	1962	}
	1963
	1964	#
	1965	# EnterLegend --
	1966	#
	1967	itcl::body Rappture::VtkSurfaceViewer::EnterLegend { x y } {
	1968	SetLegendTip $x $y
	1969	}
	1970
	1971	#
	1972	# MotionLegend --
	1973	#
	1974	itcl::body Rappture::VtkSurfaceViewer::MotionLegend { x y } {
	1975	Rappture::Tooltip::tooltip cancel
	1976	set c $itk_component(view)
	1977	set cw [winfo width $c]
	1978	set ch [winfo height $c]
	1979	if { $x >= 0 && $x < $cw && $y >= 0 && $y < $ch } {
	1980	SetLegendTip $x $y
	1981	}
	1982	}
	1983
	1984	#
	1985	# LeaveLegend --
	1986	#
	1987	itcl::body Rappture::VtkSurfaceViewer::LeaveLegend { } {
	1988	Rappture::Tooltip::tooltip cancel
	1989	.rappturetooltip configure -icon ""
	1990	}
	1991
	1992	#
	1993	# SetLegendTip --
	1994	#
	1995	itcl::body Rappture::VtkSurfaceViewer::SetLegendTip { x y } {
	1996	set fname $_curFldName
	1997	set c $itk_component(view)
	1998	set w [winfo width $c]
	1999	set h [winfo height $c]
	2000
	2001	set font "Arial 8"
	2002	set lineht [font metrics $font -linespace]
	2003
	2004	set ih [image height $_image(legend)]
	2005	set iy [expr $y - ($lineht + 2)]
	2006
	2007	if { [string match "component*" $fname] } {
	2008	set title ""
	2009	} else {
	2010	if { [info exists _fields($fname)] } {
	2011	foreach { title units } $_fields($fname) break
	2012	if { $units != "" } {
	2013	set title [format "%s (%s)" $title $units]
	2014	}
	2015	} else {
	2016	set title $fname
	2017	}
	2018	}
	2019	# If there's a legend title, increase the offset by the line height.
	2020	if { $title != "" } {
	2021	incr iy -$lineht
	2022	}
	2023	# Make a swatch of the selected color
	2024	if { [catch { $_image(legend) get 10 $iy } pixel] != 0 } {
	2025	return
	2026	}
	2027	if { ![info exists _image(swatch)] } {
	2028	set _image(swatch) [image create photo -width 24 -height 24]
	2029	}
	2030	set color [eval format "\#%02x%02x%02x" $pixel]
	2031	$_image(swatch) put black -to 0 0 23 23
	2032	$_image(swatch) put $color -to 1 1 22 22
	2033	.rappturetooltip configure -icon $_image(swatch)
	2034
	2035	# Compute the value of the point
	2036	if { [info exists _limits($_curFldName)] } {
	2037	foreach { vmin vmax } $_limits($_curFldName) break
	2038	set t [expr 1.0 - (double($iy) / double($ih-1))]
	2039	set value [expr $t * ($vmax - $vmin) + $vmin]
	2040	} else {
	2041	set value 0.0
	2042	}
	2043	set tx [expr $x + 15]
	2044	set ty [expr $y - 5]
	2045	if { [info exists _isolines($y)] } {
	2046	Rappture::Tooltip::text $c [format "$title %g (isoline)" $_isolines($y)]
	2047	} else {
	2048	Rappture::Tooltip::text $c [format "$title %g" $value]
	2049	}
	2050	Rappture::Tooltip::tooltip show $c +$tx,+$ty
	2051	}
	2052
	2053	#
	2054	# ReceiveLegend --
	2055	#
	2056	# Invoked automatically whenever the "legend" command comes in from
	2057	# the rendering server. Indicates that binary image data with the
	2058	# specified <size> will follow.
	2059	#
	2060	itcl::body Rappture::VtkSurfaceViewer::ReceiveLegend { colormap title min max size } {
	2061	#puts stderr "ReceiveLegend colormap=$colormap title=$title range=$min,$max size=$size"
	2062	set _title $title
	2063	regsub {\(mag\)} $title "" _title
	2064	if { [IsConnected] } {
	2065	set bytes [ReceiveBytes $size]
	2066	if { ![info exists _image(legend)] } {
	2067	set _image(legend) [image create photo]
	2068	}
	2069	$_image(legend) configure -data $bytes
	2070	#puts stderr "read $size bytes for [image width $_image(legend)]x[image height $_image(legend)] legend>"
	2071	if { [catch {DrawLegend} errs] != 0 } {
	2072	global errorInfo
	2073	puts stderr "errs=$errs errorInfo=$errorInfo"
	2074	}
	2075	}
	2076	}
	2077
	2078	#
	2079	# DrawLegend --
	2080	#
	2081	# Draws the legend in the own canvas on the right side of the plot area.
	2082	#
	2083	itcl::body Rappture::VtkSurfaceViewer::DrawLegend {} {
	2084	set fname $_curFldName
	2085	set c $itk_component(view)
	2086	set w [winfo width $c]
	2087	set h [winfo height $c]
	2088	set font "Arial 8"
	2089	set lineht [font metrics $font -linespace]
	2090
	2091	if { [string match "component*" $fname] } {
	2092	set title ""
	2093	} else {
	2094	if { [info exists _fields($fname)] } {
	2095	foreach { title units } $_fields($fname) break
	2096	if { $units != "" } {
	2097	set title [format "%s (%s)" $title $units]
	2098	}
	2099	} else {
	2100	set title $fname
	2101	}
	2102	}
	2103	set x [expr $w - 2]
	2104	if { !$_settings(-legendvisible) } {
	2105	$c delete legend
	2106	return
	2107	}
	2108	if { [$c find withtag "legend"] == "" } {
	2109	set y 2
	2110	# If there's a legend title, create a text item for the title.
	2111	$c create text $x $y \
	2112	-anchor ne \
	2113	-fill $itk_option(-plotforeground) -tags "title legend" \
	2114	-font $font
	2115	if { $title != "" } {
	2116	incr y $lineht
	2117	}
	2118	$c create text $x $y \
	2119	-anchor ne \
	2120	-fill $itk_option(-plotforeground) -tags "vmax legend" \
	2121	-font $font
	2122	incr y $lineht
	2123	$c create image $x $y \
	2124	-anchor ne \
	2125	-image $_image(legend) -tags "colormap legend"
	2126	$c create rectangle $x $y 1 1 \
	2127	-fill "" -outline "" -tags "sensor legend"
	2128	$c create text $x [expr {$h-2}] \
	2129	-anchor se \
	2130	-fill $itk_option(-plotforeground) -tags "vmin legend" \
	2131	-font $font
	2132	$c bind sensor <Enter> [itcl::code $this EnterLegend %x %y]
	2133	$c bind sensor <Leave> [itcl::code $this LeaveLegend]
	2134	$c bind sensor <Motion> [itcl::code $this MotionLegend %x %y]
	2135	}
	2136	$c delete isoline
	2137	set x2 $x
	2138	set iw [image width $_image(legend)]
	2139	set ih [image height $_image(legend)]
	2140	set x1 [expr $x2 - ($iw*12)/10]
	2141	set color $_settings(-isolinecolor)
	2142	# Draw the isolines on the legend.
	2143	array unset _isolines
	2144	if { $color != "none" && [info exists _limits($_curFldName)] &&
	2145	$_settings(-isolinesvisible) && $_settings(-numcontours) > 0 } {
	2146
	2147	foreach { vmin vmax } $_limits($_curFldName) break
	2148	set range [expr double($vmax - $vmin)]
	2149	if { $range <= 0.0 } {
	2150	set range 1.0; # Min is greater or equal to max.
	2151	}
	2152	set tags "isoline legend"
	2153	set offset [expr 2 + $lineht]
	2154	if { $title != "" } {
	2155	incr offset $lineht
	2156	}
	2157	foreach value $_contourList {
	2158	set norm [expr 1.0 - (($value - $vmin) / $range)]
	2159	set y1 [expr int(round(($norm * $ih) + $offset))]
	2160	for { set off 0 } { $off < 3 } { incr off } {
	2161	set _isolines([expr $y1 + $off]) $value
	2162	set _isolines([expr $y1 - $off]) $value
	2163	}
	2164	$c create line $x1 $y1 $x2 $y1 -fill $color -tags $tags
	2165	}
	2166	}
	2167
	2168	$c bind title <ButtonPress> [itcl::code $this Combo post]
	2169	$c bind title <Enter> [itcl::code $this Combo activate]
	2170	$c bind title <Leave> [itcl::code $this Combo deactivate]
	2171	# Reset the item coordinates according the current size of the plot.
	2172	$c itemconfigure title -text $title
	2173	if { [info exists _limits($_curFldName)] } {
	2174	foreach { vmin vmax } $_limits($_curFldName) break
	2175	$c itemconfigure vmin -text [format %g $vmin]
	2176	$c itemconfigure vmax -text [format %g $vmax]
	2177	}
	2178	set y 2
	2179	# If there's a legend title, move the title to the correct position
	2180	if { $title != "" } {
	2181	$c itemconfigure title -text $title
	2182	$c coords title $x $y
	2183	incr y $lineht
	2184	$c raise title
	2185	}
	2186	$c coords vmax $x $y
	2187	incr y $lineht
	2188	$c coords colormap $x $y
	2189	$c coords sensor [expr $x - $iw] $y $x [expr $y + $ih]
	2190	$c raise sensor
	2191	$c coords vmin $x [expr {$h - 2}]
	2192	}
	2193
	2194	# ----------------------------------------------------------------------
	2195	# USAGE: _dropdown post
	2196	# USAGE: _dropdown unpost
	2197	# USAGE: _dropdown select
	2198	#
	2199	# Used internally to handle the dropdown list for this combobox. The
	2200	# post/unpost options are invoked when the list is posted or unposted
	2201	# to manage the relief of the controlling button. The select option
	2202	# is invoked whenever there is a selection from the list, to assign
	2203	# the value back to the gauge.
	2204	# ----------------------------------------------------------------------
	2205	itcl::body Rappture::VtkSurfaceViewer::Combo {option} {
	2206	set c $itk_component(view)
	2207	switch -- $option {
	2208	post {
	2209	foreach { x1 y1 x2 y2 } [$c bbox title] break
	2210	set cw [winfo width $itk_component(view)]
	2211	set mw [winfo reqwidth $itk_component(fieldmenu)]
	2212	set x1 [expr $cw - $mw]
	2213	set x [expr $x1 + [winfo rootx $itk_component(view)]]
	2214	set y [expr $y2 + [winfo rooty $itk_component(view)]]
	2215	tk_popup $itk_component(fieldmenu) $x $y
	2216	}
	2217	activate {
	2218	$c itemconfigure title -fill red
	2219	}
	2220	deactivate {
	2221	$c itemconfigure title -fill $itk_option(-plotforeground)
	2222	}
	2223	invoke {
	2224	$itk_component(field) value $_curFldLabel
	2225	AdjustSetting -field
	2226	}
	2227	default {
	2228	error "bad option \"$option\": should be post, unpost, select"
	2229	}
	2230	}
	2231	}
	2232
	2233	#
	2234	# SetCurrentColormap --
	2235	#
	2236	itcl::body Rappture::VtkSurfaceViewer::SetCurrentColormap { name } {
	2237	# Keep track of the colormaps that we build.
	2238	if { ![info exists _colormaps($name)] } {
	2239	BuildColormap $name
	2240	set _colormaps($name) 1
	2241	}
	2242	set _currentColormap $name
	2243	SendCmd "contour2d colormap $_currentColormap"
	2244	SendCmd "polydata colormap $_currentColormap"
	2245	}
	2246
	2247	#
	2248	# BuildColormap --
	2249	#
	2250	# Build the designated colormap on the server.
	2251	#
	2252	itcl::body Rappture::VtkSurfaceViewer::BuildColormap { name } {
	2253	set cmap [ColorsToColormap $name]
	2254	if { [llength $cmap] == 0 } {
	2255	set cmap "0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0"
	2256	}
	2257	set wmap "0.0 1.0 1.0 1.0"
	2258	SendCmd "colormap add $name { $cmap } { $wmap }"
	2259	}
	2260
	2261	itcl::body Rappture::VtkSurfaceViewer::SetOrientation { side } {
	2262	array set positions {
	2263	front "1 0 0 0"
	2264	back "0 0 1 0"
	2265	left "0.707107 0 -0.707107 0"
	2266	right "0.707107 0 0.707107 0"
	2267	top "0.707107 -0.707107 0 0"
	2268	bottom "0.707107 0.707107 0 0"
	2269	}
	2270	foreach name { qw qx qy qz } value $positions($side) {
	2271	set _view($name) $value
	2272	}
	2273	set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
	2274	$_arcball quaternion $q
	2275	SendCmd "camera orient $q"
	2276	SendCmd "camera reset"
	2277	set _view(xpan) 0
	2278	set _view(ypan) 0
	2279	set _view(zoom) 1.0
	2280	}
	2281
	2282	itcl::body Rappture::VtkSurfaceViewer::UpdateContourList {} {
	2283	if { ![info exists _limits($_curFldName)] } {
	2284	return
	2285	}
	2286	if { $_currentNumContours < 1 } {
	2287	set _contourList ""
	2288	return
	2289	}
	2290	foreach { vmin vmax } $_limits($_curFldName) break
	2291	set v [blt::vector create \#auto]
	2292	$v seq $vmin $vmax [expr $_currentNumContours+2]
	2293	$v delete end 0
	2294	set _contourList [$v range 0 end]
	2295	blt::vector destroy $v
	2296	}
	2297

Note: See TracBrowser for help on using the repository browser.

Download in other formats: