Context Navigation

source: branches/1.3/gui/scripts/nanovisviewer.tcl @ 4772

Last change on this file since 4772 was 4772, checked in by ldelgass, 10 years ago
merge r4771 from trunk
File size: 87.9 KB

Line
1	# -- mode: tcl; indent-tabs-mode: nil --
2	# ----------------------------------------------------------------------
3	# COMPONENT: nanovisviewer - 3D volume rendering
4	#
5	# This widget performs volume rendering on 3D scalar/vector datasets.
6	# It connects to the Nanovis server running on a rendering farm,
7	# transmits data, and displays the results.
8	# ======================================================================
9	# AUTHOR: Michael McLennan, Purdue University
10	# Copyright (c) 2004-2012 HUBzero Foundation, LLC
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	package require Itk
16	package require BLT
17	package require Img
18
19	#
20	# FIXME:
21	# Need to Add DX readers this client to examine the data before
22	# it's sent to the server. This will eliminate 90% of the insanity in
23	# computing the limits of all the volumes. I can rip out all the
24	# "receive data" "send transfer function" event crap.
25	#
26	# This means we can compute the transfer function (relative values) and
27	# draw the legend min/max values without waiting for the information to
28	# come from the server. This will also prevent the flashing that occurs
29	# when a new volume is drawn (using the default transfer function) and
30	# then when the correct transfer function has been sent and linked to
31	# the volume.
32	#
33	option add *NanovisViewer.width 4i widgetDefault
34	option add NanovisViewercursor crosshair widgetDefault
35	option add *NanovisViewer.height 4i widgetDefault
36	option add *NanovisViewer.foreground black widgetDefault
37	option add *NanovisViewer.controlBackground gray widgetDefault
38	option add *NanovisViewer.controlDarkBackground #999999 widgetDefault
39	option add *NanovisViewer.plotBackground black widgetDefault
40	option add *NanovisViewer.plotForeground white widgetDefault
41	option add *NanovisViewer.plotOutline gray widgetDefault
42	option add *NanovisViewer.font \
43	--helvetica-medium-r-normal--12-* widgetDefault
44
45	# must use this name -- plugs into Rappture::resources::load
46	proc NanovisViewer_init_resources {} {
47	Rappture::resources::register \
48	nanovis_server Rappture::NanovisViewer::SetServerList
49	}
50
51	itcl::class Rappture::NanovisViewer {
52	inherit Rappture::VisViewer
53
54	itk_option define -plotforeground plotForeground Foreground ""
55	itk_option define -plotbackground plotBackground Background ""
56	itk_option define -plotoutline plotOutline PlotOutline ""
57
58	constructor { hostlist args } {
59	Rappture::VisViewer::constructor $hostlist
60	} {
61	# defined below
62	}
63	destructor {
64	# defined below
65	}
66	public proc SetServerList { namelist } {
67	Rappture::VisViewer::SetServerList "nanovis" $namelist
68	}
69	public method add {dataobj {settings ""}}
70	public method camera {option args}
71	public method delete {args}
72	public method disconnect {}
73	public method download {option args}
74	public method get {args}
75	public method isconnected {}
76	public method limits { tf }
77	public method parameters {title args} {
78	# do nothing
79	}
80	public method scale {args}
81	public method updateTransferFunctions {}
82
83	# The following methods are only used by this class.
84
85	private method AddNewMarker { x y }
86	private method AdjustSetting {what {value ""}}
87	private method BuildCameraTab {}
88	private method BuildCutplanesTab {}
89	private method BuildViewTab {}
90	private method BuildVolumeComponents {}
91	private method BuildVolumeTab {}
92	private method ComputeAlphamap { cname }
93	private method ComputeTransferFunction { cname }
94	private method Connect {}
95	private method CurrentDatasets {{what -all}}
96	private method Disconnect {}
97	private method DoResize {}
98	private method DrawLegend { cname }
99	private method EventuallyRedrawLegend { }
100	private method EventuallyResize { w h }
101	private method FixLegend {}
102	private method GetAlphamap { cname color }
103	private method GetColormap { cname color }
104	private method GetDatasetsWithComponent { cname }
105	private method GetVolumeInfo { w }
106	private method HideAllMarkers {}
107	private method InitComponentSettings { cname }
108	private method InitSettings { args }
109	private method NameToAlphamap { name }
110	private method NameTransferFunction { dataobj comp }
111	private method Pan {option x y}
112	private method PanCamera {}
113	private method ParseLevelsOption { cname levels }
114	private method ParseMarkersOption { cname markers }
115	private method QuaternionToView { q } {
116	foreach { _view(-qw) _view(-qx) _view(-qy) _view(-qz) } $q break
117	}
118	private method Rebuild {}
119	private method ReceiveData { args }
120	private method ReceiveImage { args }
121	private method ReceiveLegend { tf vmin vmax size }
122	private method RemoveMarker { x y }
123	private method ResetColormap { cname color }
124	private method Rotate {option x y}
125	private method SendTransferFunctions {}
126	private method SetObjectStyle { dataobj cname }
127	private method SetOrientation { side }
128	private method Slice {option args}
129	private method SlicerTip {axis}
130	private method SwitchComponent { cname }
131	private method ToggleVolume { tag name }
132	private method ViewToQuaternion {} {
133	return [list $_view(-qw) $_view(-qx) $_view(-qy) $_view(-qz)]
134	}
135	private method Zoom {option}
136
137	private variable _arcball ""
138
139	private variable _dlist "" ;# list of data objects
140	private variable _obj2ovride ;# maps dataobj => style override
141	private variable _serverDatasets ;# contains all the dataobj-component
142	;# to volumes in the server
143	private variable _recvdDatasets; # list of data objs to send to server
144	private variable _dataset2style; # maps dataobj-component to transfunc
145	private variable _style2datasets; # maps tf back to list of
146	# dataobj-components using the tf.
147
148	private variable _reset 1; # Connection to server has been reset.
149	private variable _click; # Info used for rotate operations.
150	private variable _limits; # Autoscale min/max for all axes
151	private variable _view; # View params for 3D view
152	private variable _parsedFunction
153	private variable _transferFunctionEditors
154	private variable _settings
155	private variable _widget
156
157	private variable _first "" ; # This is the topmost volume.
158	private variable _current ""; # Currently selected component
159	private variable _volcomponents ; # Array of components found
160	private variable _componentsList ; # Array of components found
161	private variable _cname2style
162	private variable _cname2transferFunction
163	private variable _cname2defaultcolormap
164	private variable _cname2defaultalphamap
165
166	common _downloadPopup ;# download options from popup
167	private common _hardcopy
168	private variable _width 0
169	private variable _height 0
170	private variable _resizePending 0
171	private variable _resizeLegendPending 0
172	}
173
174	itk::usual NanovisViewer {
175	keep -background -foreground -cursor -font
176	keep -plotbackground -plotforeground
177	}
178
179	# ----------------------------------------------------------------------
180	# CONSTRUCTOR
181	# ----------------------------------------------------------------------
182	itcl::body Rappture::NanovisViewer::constructor {hostlist args} {
183	set _serverType "nanovis"
184
185	# Draw legend event
186	$_dispatcher register !legend
187	$_dispatcher dispatch $this !legend "[itcl::code $this FixLegend]; list"
188
189	# Send transfer functions event
190	$_dispatcher register !send_transfunc
191	$_dispatcher dispatch $this !send_transfunc \
192	"[itcl::code $this SendTransferFunctions]; list"
193
194	# Rebuild event
195	$_dispatcher register !rebuild
196	$_dispatcher dispatch $this !rebuild "[itcl::code $this Rebuild]; list"
197
198	# Resize event
199	$_dispatcher register !resize
200	$_dispatcher dispatch $this !resize "[itcl::code $this DoResize]; list"
201
202	#
203	# Populate parser with commands handle incoming requests
204	#
205	$_parser alias image [itcl::code $this ReceiveImage]
206	$_parser alias legend [itcl::code $this ReceiveLegend]
207	$_parser alias data [itcl::code $this ReceiveData]
208
209	# Initialize the view to some default parameters.
210	array set _view {
211	-qw 0.853553
212	-qx -0.353553
213	-qy 0.353553
214	-qz 0.146447
215	-xpan 0
216	-ypan 0
217	-zoom 1.0
218	}
219	set _arcball [blt::arcball create 100 100]
220	$_arcball quaternion [ViewToQuaternion]
221
222	set _limits(v) [list 0.0 1.0]
223	set _reset 1
224
225	array set _settings {
226	-axesvisible 1
227	-background black
228	-colormap "default"
229	-cutplanesvisible 0
230	-gridvisible 0
231	-isosurfaceshading 0
232	-legendvisible 1
233	-light 40
234	-light2side 1
235	-outlinevisible 0
236	-qw 0.853553
237	-qx -0.353553
238	-qy 0.353553
239	-qz 0.146447
240	-thickness 350
241	-volume 1
242	-volumeopacity 0.5
243	-volumevisible 1
244	-xcutplaneposition 50
245	-xcutplanevisible 1
246	-xpan 0
247	-ycutplaneposition 50
248	-ycutplanevisible 1
249	-ypan 0
250	-zcutplaneposition 50
251	-zcutplanevisible 1
252	-zoom 1.0
253	}
254	array set _widget {
255	-volumeopacity 50
256	}
257	itk_component add 3dview {
258	label $itk_component(plotarea).view -image $_image(plot) \
259	-highlightthickness 0 -borderwidth 0
260	} {
261	usual
262	ignore -highlightthickness -borderwidth -background
263	}
264	bind $itk_component(3dview) <Control-F1> [itcl::code $this ToggleConsole]
265
266	set f [$itk_component(main) component controls]
267	itk_component add reset {
268	button $f.reset -borderwidth 1 -padx 1 -pady 1 \
269	-highlightthickness 0 \
270	-image [Rappture::icon reset-view] \
271	-command [itcl::code $this Zoom reset]
272	} {
273	usual
274	ignore -highlightthickness
275	}
276	pack $itk_component(reset) -side top -padx 2 -pady 2
277	Rappture::Tooltip::for $itk_component(reset) \
278	"Reset the view to the default zoom level"
279
280	itk_component add zoomin {
281	button $f.zin -borderwidth 1 -padx 1 -pady 1 \
282	-highlightthickness 0 \
283	-image [Rappture::icon zoom-in] \
284	-command [itcl::code $this Zoom in]
285	} {
286	usual
287	ignore -highlightthickness
288	}
289	pack $itk_component(zoomin) -side top -padx 2 -pady 2
290	Rappture::Tooltip::for $itk_component(zoomin) "Zoom in"
291
292	itk_component add zoomout {
293	button $f.zout -borderwidth 1 -padx 1 -pady 1 \
294	-highlightthickness 0 \
295	-image [Rappture::icon zoom-out] \
296	-command [itcl::code $this Zoom out]
297	} {
298	usual
299	ignore -highlightthickness
300	}
301	pack $itk_component(zoomout) -side top -padx 2 -pady 2
302	Rappture::Tooltip::for $itk_component(zoomout) "Zoom out"
303
304	itk_component add volume {
305	Rappture::PushButton $f.volume \
306	-onimage [Rappture::icon volume-on] \
307	-offimage [Rappture::icon volume-off] \
308	-command [itcl::code $this AdjustSetting -volume] \
309	-variable [itcl::scope _settings(-volume)]
310	}
311	$itk_component(volume) select
312	Rappture::Tooltip::for $itk_component(volume) \
313	"Toggle the volume cloud on/off"
314	pack $itk_component(volume) -padx 2 -pady 2
315
316	itk_component add cutplane {
317	Rappture::PushButton $f.cutplane \
318	-onimage [Rappture::icon cutbutton] \
319	-offimage [Rappture::icon cutbutton] \
320	-variable [itcl::scope _settings(-cutplanesvisible)] \
321	-command [itcl::code $this AdjustSetting -cutplanesvisible]
322	}
323	Rappture::Tooltip::for $itk_component(cutplane) \
324	"Show/Hide cutplanes"
325	pack $itk_component(cutplane) -padx 2 -pady 2
326
327	if { [catch {
328	BuildViewTab
329	BuildVolumeTab
330	BuildCutplanesTab
331	BuildCameraTab
332	} errs] != 0 } {
333	global errorInfo
334	puts stderr "errs=$errs errorInfo=$errorInfo"
335	}
336
337	# Legend
338	set _image(legend) [image create photo]
339	itk_component add legend {
340	canvas $itk_component(plotarea).legend -height 50 -highlightthickness 0
341	} {
342	usual
343	ignore -highlightthickness
344	rename -background -plotbackground plotBackground Background
345	}
346	bind $itk_component(legend) <Configure> \
347	[itcl::code $this EventuallyRedrawLegend]
348	bind $itk_component(legend) <KeyPress-Delete> \
349	[itcl::code $this RemoveMarker %x %y]
350	bind $itk_component(legend) <Enter> \
351	[list focus $itk_component(legend)]
352
353	# Hack around the Tk panewindow. The problem is that the requested
354	# size of the 3d view isn't set until an image is retrieved from
355	# the server. So the panewindow uses the tiny size.
356	set w 10000
357	pack forget $itk_component(3dview)
358	blt::table $itk_component(plotarea) \
359	0,0 $itk_component(3dview) -fill both -reqwidth $w \
360	1,0 $itk_component(legend) -fill x
361	blt::table configure $itk_component(plotarea) r1 -resize none
362
363	# Bindings for rotation via mouse
364	bind $itk_component(3dview) <ButtonPress-1> \
365	[itcl::code $this Rotate click %x %y]
366	bind $itk_component(3dview) <B1-Motion> \
367	[itcl::code $this Rotate drag %x %y]
368	bind $itk_component(3dview) <ButtonRelease-1> \
369	[itcl::code $this Rotate release %x %y]
370	bind $itk_component(3dview) <Configure> \
371	[itcl::code $this EventuallyResize %w %h]
372
373	# Bindings for panning via mouse
374	bind $itk_component(3dview) <ButtonPress-2> \
375	[itcl::code $this Pan click %x %y]
376	bind $itk_component(3dview) <B2-Motion> \
377	[itcl::code $this Pan drag %x %y]
378	bind $itk_component(3dview) <ButtonRelease-2> \
379	[itcl::code $this Pan release %x %y]
380
381	# Bindings for panning via keyboard
382	bind $itk_component(3dview) <KeyPress-Left> \
383	[itcl::code $this Pan set -10 0]
384	bind $itk_component(3dview) <KeyPress-Right> \
385	[itcl::code $this Pan set 10 0]
386	bind $itk_component(3dview) <KeyPress-Up> \
387	[itcl::code $this Pan set 0 -10]
388	bind $itk_component(3dview) <KeyPress-Down> \
389	[itcl::code $this Pan set 0 10]
390	bind $itk_component(3dview) <Shift-KeyPress-Left> \
391	[itcl::code $this Pan set -2 0]
392	bind $itk_component(3dview) <Shift-KeyPress-Right> \
393	[itcl::code $this Pan set 2 0]
394	bind $itk_component(3dview) <Shift-KeyPress-Up> \
395	[itcl::code $this Pan set 0 -2]
396	bind $itk_component(3dview) <Shift-KeyPress-Down> \
397	[itcl::code $this Pan set 0 2]
398
399	# Bindings for zoom via keyboard
400	bind $itk_component(3dview) <KeyPress-Prior> \
401	[itcl::code $this Zoom out]
402	bind $itk_component(3dview) <KeyPress-Next> \
403	[itcl::code $this Zoom in]
404
405	bind $itk_component(3dview) <Enter> "focus $itk_component(3dview)"
406
407	if {[string equal "x11" [tk windowingsystem]]} {
408	# Bindings for zoom via mouse
409	bind $itk_component(3dview) <4> [itcl::code $this Zoom out]
410	bind $itk_component(3dview) <5> [itcl::code $this Zoom in]
411	}
412
413	set _image(download) [image create photo]
414
415	eval itk_initialize $args
416
417	Connect
418	}
419
420	# ----------------------------------------------------------------------
421	# DESTRUCTOR
422	# ----------------------------------------------------------------------
423	itcl::body Rappture::NanovisViewer::destructor {} {
424	$_dispatcher cancel !rebuild
425	$_dispatcher cancel !send_transfunc
426	$_dispatcher cancel !resize
427	image delete $_image(plot)
428	image delete $_image(legend)
429	image delete $_image(download)
430	foreach name [array names _transferFunctionEditors] {
431	itcl::delete object $_transferFunctionEditors($cname)
432	}
433	catch { blt::arcball destroy $_arcball }
434	array unset _settings
435	}
436
437	# ----------------------------------------------------------------------
438	# USAGE: add <dataobj> ?<settings>?
439	#
440	# Clients use this to add a data object to the plot. The optional
441	# <settings> are used to configure the plot. Allowed settings are
442	# -color, -brightness, -width, -linestyle, and -raise.
443	# ----------------------------------------------------------------------
444	itcl::body Rappture::NanovisViewer::add {dataobj {settings ""}} {
445	if { ![$dataobj isvalid] } {
446	return; # Object doesn't contain valid data.
447	}
448	array set params {
449	-color auto
450	-width 1
451	-linestyle solid
452	-brightness 0
453	-raise 0
454	-description ""
455	-param ""
456	}
457	array set params $settings
458
459	if {$params(-color) == "auto" \|\| $params(-color) == "autoreset"} {
460	# can't handle -autocolors yet
461	set params(-color) black
462	}
463	set pos [lsearch -exact $_dlist $dataobj]
464	if {$pos < 0} {
465	lappend _dlist $dataobj
466	set _obj2ovride($dataobj-color) $params(-color)
467	set _obj2ovride($dataobj-width) $params(-width)
468	set _obj2ovride($dataobj-raise) $params(-raise)
469	$_dispatcher event -idle !rebuild
470	}
471	}
472
473	# ----------------------------------------------------------------------
474	# USAGE: get ?-objects?
475	# USAGE: get ?-image 3dview\|legend?
476	#
477	# Clients use this to query the list of objects being plotted, in
478	# order from bottom to top of this result. The optional "-image"
479	# flag can also request the internal images being shown.
480	# ----------------------------------------------------------------------
481	itcl::body Rappture::NanovisViewer::get {args} {
482	if {[llength $args] == 0} {
483	set args "-objects"
484	}
485
486	set op [lindex $args 0]
487	switch -- $op {
488	-objects {
489	# put the dataobj list in order according to -raise options
490	set dlist $_dlist
491	foreach obj $dlist {
492	if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} {
493	set i [lsearch -exact $dlist $obj]
494	if {$i >= 0} {
495	set dlist [lreplace $dlist $i $i]
496	lappend dlist $obj
497	}
498	}
499	}
500	return $dlist
501	}
502	-image {
503	if {[llength $args] != 2} {
504	error "wrong # args: should be \"get -image 3dview\|legend\""
505	}
506	switch -- [lindex $args end] {
507	3dview {
508	return $_image(plot)
509	}
510	legend {
511	return $_image(legend)
512	}
513	default {
514	error "bad image name \"[lindex $args end]\": should be 3dview or legend"
515	}
516	}
517	}
518	default {
519	error "bad option \"$op\": should be -objects or -image"
520	}
521	}
522	}
523
524	# ----------------------------------------------------------------------
525	# USAGE: delete ?<dataobj1> <dataobj2> ...?
526	#
527	# Clients use this to delete a dataobj from the plot. If no dataobjs
528	# are specified, then all dataobjs are deleted. No data objects are
529	# deleted. They are only removed from the display list.
530	#
531	# ----------------------------------------------------------------------
532	itcl::body Rappture::NanovisViewer::delete {args} {
533	if {[llength $args] == 0} {
534	set args $_dlist
535	}
536	# Delete all specified dataobjs
537	set changed 0
538	foreach dataobj $args {
539	set pos [lsearch -exact $_dlist $dataobj]
540	if { $pos >= 0 } {
541	set _dlist [lreplace $_dlist $pos $pos]
542	array unset _obj2ovride $dataobj-*
543	array unset _dataset2style $dataobj-*
544	set changed 1
545	}
546	}
547	# If anything changed, then rebuild the plot
548	if {$changed} {
549	$_dispatcher event -idle !rebuild
550	}
551	}
552
553	# ----------------------------------------------------------------------
554	# USAGE: scale ?<data1> <data2> ...?
555	#
556	# Sets the default limits for the overall plot according to the
557	# limits of the data for all of the given <data> objects. This
558	# accounts for all objects--even those not showing on the screen.
559	# Because of this, the limits are appropriate for all objects as
560	# the user scans through data in the ResultSet viewer.
561	# ----------------------------------------------------------------------
562	itcl::body Rappture::NanovisViewer::scale {args} {
563	array set styles {
564	-color BCGYR
565	-levels 6
566	-markers ""
567	}
568	array unset _limits
569	array unset _volcomponents
570	foreach dataobj $args {
571	if { ![$dataobj isvalid] } {
572	continue; # Object doesn't contain valid data.
573	}
574	foreach cname [$dataobj components] {
575	if { ![info exists _volcomponents($cname)] } {
576	lappend _componentsList $cname
577	array set styles [lindex [$dataobj components -style $cname] 0]
578	set cmap [ColorsToColormap $styles(-color)]
579	set _cname2defaultcolormap($cname) $cmap
580	set _settings($cname-colormap) $styles(-color)
581	}
582	lappend _volcomponents($cname) $dataobj-$cname
583	array unset limits
584	array set limits [$dataobj valueLimits $cname]
585	set _limits($cname) $limits(v)
586	}
587	foreach axis {x y z v} {
588	foreach { min max } [$dataobj limits $axis] break
589	if {"" != $min && "" != $max} {
590	if { ![info exists _limits($axis)] } {
591	set _limits($axis) [list $min $max]
592	} else {
593	foreach {amin amax} $_limits($axis) break
594	if {$min < $amin} {
595	set amin $min
596	}
597	if {$max > $amax} {
598	set amax $max
599	}
600	set _limits($axis) [list $amin $amax]
601	}
602	}
603	}
604	}
605	BuildVolumeComponents
606	}
607
608	# ----------------------------------------------------------------------
609	# USAGE: download coming
610	# USAGE: download controls <downloadCommand>
611	# USAGE: download now
612	#
613	# Clients use this method to create a downloadable representation
614	# of the plot. Returns a list of the form {ext string}, where
615	# "ext" is the file extension (indicating the type of data) and
616	# "string" is the data itself.
617	# ----------------------------------------------------------------------
618	itcl::body Rappture::NanovisViewer::download {option args} {
619	switch $option {
620	coming {
621	if {[catch {
622	blt::winop snap $itk_component(plotarea) $_image(download)
623	}]} {
624	$_image(download) configure -width 1 -height 1
625	$_image(download) put #000000
626	}
627	}
628	controls {
629	# no controls for this download yet
630	return ""
631	}
632	now {
633	# Get the image data (as base64) and decode it back to binary.
634	# This is better than writing to temporary files. When we switch
635	# to the BLT picture image it won't be necessary to decode the
636	# image data.
637	if { [image width $_image(plot)] > 0 &&
638	[image height $_image(plot)] > 0 } {
639	set bytes [$_image(plot) data -format "jpeg -quality 100"]
640	set bytes [Rappture::encoding::decode -as b64 $bytes]
641	return [list .jpg $bytes]
642	}
643	return ""
644	}
645	default {
646	error "bad option \"$option\": should be coming, controls, now"
647	}
648	}
649	}
650
651	# ----------------------------------------------------------------------
652	# USAGE: Connect ?<host:port>,<host:port>...?
653	#
654	# Clients use this method to establish a connection to a new
655	# server, or to reestablish a connection to the previous server.
656	# Any existing connection is automatically closed.
657	# ----------------------------------------------------------------------
658	itcl::body Rappture::NanovisViewer::Connect {} {
659	set _hosts [GetServerList "nanovis"]
660	if { "" == $_hosts } {
661	return 0
662	}
663	set _reset 1
664	set result [VisViewer::Connect $_hosts]
665	if { $result } {
666	if { $_reportClientInfo } {
667	# Tell the server the viewer, hub, user and session.
668	# Do this immediately on connect before buffering any commands
669	global env
670
671	set info {}
672	set user "???"
673	if { [info exists env(USER)] } {
674	set user $env(USER)
675	}
676	set session "???"
677	if { [info exists env(SESSION)] } {
678	set session $env(SESSION)
679	}
680	lappend info "version" "$Rappture::version"
681	lappend info "build" "$Rappture::build"
682	lappend info "svnurl" "$Rappture::svnurl"
683	lappend info "installdir" "$Rappture::installdir"
684	lappend info "hub" [exec hostname]
685	lappend info "client" "nanovisviewer"
686	lappend info "user" $user
687	lappend info "session" $session
688	SendCmd "clientinfo [list $info]"
689	}
690
691	set w [winfo width $itk_component(3dview)]
692	set h [winfo height $itk_component(3dview)]
693	EventuallyResize $w $h
694	}
695	return $result
696	}
697
698	#
699	# isconnected --
700	#
701	# Indicates if we are currently connected to the visualization server.
702	#
703	itcl::body Rappture::NanovisViewer::isconnected {} {
704	return [VisViewer::IsConnected]
705	}
706
707	#
708	# disconnect --
709	#
710	itcl::body Rappture::NanovisViewer::disconnect {} {
711	Disconnect
712	}
713
714	#
715	# Disconnect --
716	#
717	# Clients use this method to disconnect from the current rendering
718	# server.
719	#
720	itcl::body Rappture::NanovisViewer::Disconnect {} {
721	VisViewer::Disconnect
722
723	# disconnected -- no more data sitting on server
724	array unset _serverDatasets
725	}
726
727	# ----------------------------------------------------------------------
728	# USAGE: SendTransferFunctions
729	# ----------------------------------------------------------------------
730	itcl::body Rappture::NanovisViewer::SendTransferFunctions {} {
731	foreach cname [array names _volcomponents] {
732	ComputeTransferFunction $cname
733	}
734	FixLegend
735	}
736
737	# ----------------------------------------------------------------------
738	# USAGE: ReceiveImage -bytes <size> -type <type> -token <token>
739	#
740	# Invoked automatically whenever the "image" command comes in from
741	# the rendering server. Indicates that binary image data with the
742	# specified <size> will follow.
743	# ----------------------------------------------------------------------
744	itcl::body Rappture::NanovisViewer::ReceiveImage { args } {
745	array set info {
746	-token "???"
747	-bytes 0
748	-type image
749	}
750	array set info $args
751	set bytes [ReceiveBytes $info(-bytes)]
752	ReceiveEcho <<line "<read $info(-bytes) bytes"
753	if { $info(-type) == "image" } {
754	ReceiveEcho "for [image width $_image(plot)]x[image height $_image(plot)] image>"
755	$_image(plot) configure -data $bytes
756	} elseif { $info(-type) == "print" } {
757	set tag $this-print-$info(-token)
758	set _hardcopy($tag) $bytes
759	}
760	}
761
762	#
763	# DrawLegend --
764	#
765	itcl::body Rappture::NanovisViewer::DrawLegend { cname } {
766	set c $itk_component(legend)
767	set w [winfo width $c]
768	set h [winfo height $c]
769	set lx 10
770	set ly [expr {$h - 1}]
771	if {"" == [$c find withtag colorbar]} {
772	$c create image 10 10 -anchor nw \
773	-image $_image(legend) -tags colorbar
774	$c create text $lx $ly -anchor sw \
775	-fill $itk_option(-plotforeground) -tags "limits text vmin"
776	$c create text [expr {$w-$lx}] $ly -anchor se \
777	-fill $itk_option(-plotforeground) -tags "limits text vmax"
778	$c create text [expr {$w/2}] $ly -anchor s \
779	-fill $itk_option(-plotforeground) -tags "limits text title"
780	$c lower colorbar
781	$c bind colorbar <ButtonRelease-1> [itcl::code $this AddNewMarker %x %y]
782	}
783
784	# Display the markers used by the current transfer function.
785	HideAllMarkers
786	$_transferFunctionEditors($cname) showMarkers $_limits($cname)
787
788	foreach {min max} $_limits($cname) break
789	$c itemconfigure vmin -text [format %g $min]
790	$c coords vmin $lx $ly
791
792	$c itemconfigure vmax -text [format %g $max]
793	$c coords vmax [expr {$w-$lx}] $ly
794
795	set title [$_first hints label]
796	set units [$_first hints units]
797	if { $units != "" } {
798	set title "$title ($units)"
799	}
800	$c itemconfigure title -text $title
801	$c coords title [expr {$w/2}] $ly
802
803	# The colormap may have changed. Resync the slicers with the colormap.
804	InitSettings -cutplanesvisible -xcutplanevisible -ycutplanevisible \
805	-zcutplanevisible
806	}
807
808	#
809	#
810	# ReceiveLegend --
811	#
812	# The procedure is the response from the render server to each "legend"
813	# command. The server sends back a "legend" command invoked our
814	# the slave interpreter. The purpose is to collect data of the image
815	# representing the legend in the canvas. In addition, the
816	# active transfer function is displayed.
817	#
818	#
819	itcl::body Rappture::NanovisViewer::ReceiveLegend { cname vmin vmax size } {
820	if { ![isconnected] } {
821	return
822	}
823	set bytes [ReceiveBytes $size]
824	$_image(legend) configure -data $bytes
825	ReceiveEcho <<line "<read $size bytes for [image width $_image(legend)]x[image height $_image(legend)] legend>"
826
827	DrawLegend $_current
828	}
829
830	#
831	# ReceiveData --
832	#
833	# The procedure is the response from the render server to each "data
834	# follows" command. The server sends back a "data" command invoked our
835	# the slave interpreter. The purpose is to collect the min/max of the
836	# volume sent to the render server. Since the client (nanovisviewer)
837	# doesn't parse 3D data formats, we rely on the server (nanovis) to
838	# tell us what the limits are. Once we've received the limits to all
839	# the data we've sent (tracked by _recvdDatasets) we can then determine
840	# what the transfer functions are for these volumes.
841	#
842	#
843	# Note: There is a considerable tradeoff in having the server report
844	# back what the data limits are. It means that much of the code
845	# having to do with transfer-functions has to wait for the data
846	# to come back, since the isomarkers are calculated based upon
847	# the data limits. The client code is much messier because of
848	# this. The alternative is to parse any of the 3D formats on the
849	# client side.
850	#
851	itcl::body Rappture::NanovisViewer::ReceiveData { args } {
852	if { ![isconnected] } {
853	return
854	}
855
856	# Arguments from server are name value pairs. Stuff them in an array.
857	array set info $args
858
859	set tag $info(tag)
860	set parts [split $tag -]
861
862	#
863	# Volumes don't exist until we're told about them.
864	#
865	set dataobj [lindex $parts 0]
866	set _serverDatasets($tag) 1
867	if { $_settings(-volumevisible) && $dataobj == $_first } {
868	SendCmd "volume state 1 $tag"
869	}
870	set _limits($tag) [list $info(min) $info(max)]
871	set _limits(v) [list $info(vmin) $info(vmax)]
872
873	unset _recvdDatasets($tag)
874	if { [array size _recvdDatasets] == 0 } {
875	updateTransferFunctions
876	}
877	}
878
879	# ----------------------------------------------------------------------
880	# USAGE: Rebuild
881	#
882	# Called automatically whenever something changes that affects the
883	# data in the widget. Clears any existing data and rebuilds the
884	# widget to display new data.
885	# ----------------------------------------------------------------------
886	itcl::body Rappture::NanovisViewer::Rebuild {} {
887	set w [winfo width $itk_component(3dview)]
888	set h [winfo height $itk_component(3dview)]
889	if { $w < 2 \|\| $h < 2 } {
890	$_dispatcher event -idle !rebuild
891	return
892	}
893
894	# Turn on buffering of commands to the server. We don't want to
895	# be preempted by a server disconnect/reconnect (which automatically
896	# generates a new call to Rebuild).
897	StartBufferingCommands
898
899	if { $_width != $w \|\| $_height != $h \|\| $_reset } {
900	set _width $w
901	set _height $h
902	$_arcball resize $w $h
903	DoResize
904	}
905
906	foreach dataobj [get] {
907	foreach cname [$dataobj components] {
908	set tag $dataobj-$cname
909	if { ![info exists _serverDatasets($tag)] } {
910	# Send the data as one huge base64-encoded mess -- yuck!
911	if { [$dataobj type] == "dx" } {
912	if { ![$dataobj isvalid] } {
913	puts stderr "??? $dataobj is invalid"
914	}
915	set data [$dataobj blob $cname]
916	} else {
917	set data [$dataobj vtkdata $cname]
918	if 0 {
919	set f [open "/tmp/volume.vtk" "w"]
920	fconfigure $f -translation binary -encoding binary
921	puts -nonewline $f $data
922	close $f
923	}
924	}
925	set nbytes [string length $data]
926	if { $_reportClientInfo } {
927	set info {}
928	lappend info "tool_id" [$dataobj hints toolid]
929	lappend info "tool_name" [$dataobj hints toolname]
930	lappend info "tool_title" [$dataobj hints tooltitle]
931	lappend info "tool_command" [$dataobj hints toolcommand]
932	lappend info "tool_revision" [$dataobj hints toolrevision]
933	lappend info "dataset_label" [$dataobj hints label]
934	lappend info "dataset_size" $nbytes
935	lappend info "dataset_tag" $tag
936	SendCmd "clientinfo [list $info]"
937	}
938	SendCmd "volume data follows $nbytes $tag"
939	append _outbuf $data
940	set _recvdDatasets($tag) 1
941	set _serverDatasets($tag) 0
942	}
943	SetObjectStyle $dataobj $cname
944	}
945	}
946
947	# Outline seems to need to be reset every update.
948	InitSettings -outlinevisible -cutplanesvisible -current
949
950	set _first [lindex [get] 0]
951	if { $_reset } {
952	#
953	# Reset the camera and other view parameters
954	#
955	set _settings(-qw) $_view(-qw)
956	set _settings(-qx) $_view(-qx)
957	set _settings(-qy) $_view(-qy)
958	set _settings(-qz) $_view(-qz)
959	set _settings(-xpan) $_view(-xpan)
960	set _settings(-ypan) $_view(-ypan)
961	set _settings(-zoom) $_view(-zoom)
962
963	set q [ViewToQuaternion]
964	$_arcball quaternion $q
965	SendCmd "camera orient $q"
966	SendCmd "camera reset"
967	PanCamera
968	SendCmd "camera zoom $_view(-zoom)"
969
970	#cutplane state 0 all
971	foreach axis {x y z} {
972	# Turn off cutplanes for all volumes
973	SendCmd "cutplane state 0 $axis"
974	}
975
976	InitSettings -light2side -light -volumeopacity \
977	-isosurfaceshading -gridvisible -axesvisible \
978
979	if {"" != $_first} {
980	set axis [$_first hints updir]
981	if { "" != $axis } {
982	SendCmd "up $axis"
983	}
984	set location [$_first hints camera]
985	if { $location != "" } {
986	array set _view $location
987	}
988	}
989	}
990
991	# nothing to send -- activate the proper ivol
992	SendCmd "volume state 0"
993	if {"" != $_first} {
994	set datasets [array names _serverDatasets $_first-*]
995	if { $datasets != "" } {
996	SendCmd "volume state 1 $datasets"
997	}
998	# If the first volume already exists on the server, then make sure
999	# we display the proper transfer function in the legend.
1000	set cname [lindex [$_first components] 0]
1001	if { [info exists _serverDatasets($_first-$cname)] } {
1002	updateTransferFunctions
1003	}
1004	}
1005	# Actually write the commands to the server socket. If it fails, we don't
1006	# care. We're finished here.
1007	blt::busy hold $itk_component(hull)
1008	StopBufferingCommands
1009	blt::busy release $itk_component(hull)
1010	set _reset 0
1011	}
1012
1013	# ----------------------------------------------------------------------
1014	# USAGE: CurrentDatasets ?-cutplanes?
1015	#
1016	# Returns a list of volume server IDs for the current volume being
1017	# displayed. This is normally a single ID, but it might be a list
1018	# of IDs if the current data object has multiple components.
1019	# ----------------------------------------------------------------------
1020	itcl::body Rappture::NanovisViewer::CurrentDatasets {{what -all}} {
1021	set rlist ""
1022	if { $_first == "" } {
1023	return
1024	}
1025	foreach cname [$_first components] {
1026	set tag $_first-$cname
1027	if { [info exists _serverDatasets($tag)] && $_serverDatasets($tag) } {
1028	array set styles {
1029	-cutplanes 1
1030	}
1031	array set styles [lindex [$_first components -style $cname] 0]
1032	if { $what != "-cutplanes" \|\| $styles(-cutplanes) } {
1033	lappend rlist $tag
1034	}
1035	}
1036	}
1037	return $rlist
1038	}
1039
1040	# ----------------------------------------------------------------------
1041	# USAGE: Zoom in
1042	# USAGE: Zoom out
1043	# USAGE: Zoom reset
1044	#
1045	# Called automatically when the user clicks on one of the zoom
1046	# controls for this widget. Changes the zoom for the current view.
1047	# ----------------------------------------------------------------------
1048	itcl::body Rappture::NanovisViewer::Zoom {option} {
1049	switch -- $option {
1050	"in" {
1051	set _view(-zoom) [expr {$_view(-zoom)*1.25}]
1052	set _settings(-zoom) $_view(-zoom)
1053	SendCmd "camera zoom $_view(-zoom)"
1054	}
1055	"out" {
1056	set _view(-zoom) [expr {$_view(-zoom)*0.8}]
1057	set _settings(-zoom) $_view(-zoom)
1058	SendCmd "camera zoom $_view(-zoom)"
1059	}
1060	"reset" {
1061	array set _view {
1062	-qw 0.853553
1063	-qx -0.353553
1064	-qy 0.353553
1065	-qz 0.146447
1066	-xpan 0
1067	-ypan 0
1068	-zoom 1.0
1069	}
1070	if { $_first != "" } {
1071	set location [$_first hints camera]
1072	if { $location != "" } {
1073	array set _view $location
1074	}
1075	}
1076	set q [ViewToQuaternion]
1077	$_arcball quaternion $q
1078	SendCmd "camera orient $q"
1079	SendCmd "camera reset"
1080	set _settings(-qw) $_view(-qw)
1081	set _settings(-qx) $_view(-qx)
1082	set _settings(-qy) $_view(-qy)
1083	set _settings(-qz) $_view(-qz)
1084	set _settings(-xpan) $_view(-xpan)
1085	set _settings(-ypan) $_view(-ypan)
1086	set _settings(-zoom) $_view(-zoom)
1087	}
1088	}
1089	}
1090
1091	itcl::body Rappture::NanovisViewer::PanCamera {} {
1092	set x $_view(-xpan)
1093	set y $_view(-ypan)
1094	SendCmd "camera pan $x $y"
1095	}
1096
1097
1098	# ----------------------------------------------------------------------
1099	# USAGE: Rotate click <x> <y>
1100	# USAGE: Rotate drag <x> <y>
1101	# USAGE: Rotate release <x> <y>
1102	#
1103	# Called automatically when the user clicks/drags/releases in the
1104	# plot area. Moves the plot according to the user's actions.
1105	# ----------------------------------------------------------------------
1106	itcl::body Rappture::NanovisViewer::Rotate {option x y} {
1107	switch -- $option {
1108	click {
1109	$itk_component(3dview) configure -cursor fleur
1110	set _click(x) $x
1111	set _click(y) $y
1112	}
1113	drag {
1114	if {[array size _click] == 0} {
1115	Rotate click $x $y
1116	} else {
1117	set w [winfo width $itk_component(3dview)]
1118	set h [winfo height $itk_component(3dview)]
1119	if {$w <= 0 \|\| $h <= 0} {
1120	return
1121	}
1122
1123	if {[catch {
1124	# this fails sometimes for no apparent reason
1125	set dx [expr {double($x-$_click(x))/$w}]
1126	set dy [expr {double($y-$_click(y))/$h}]
1127	}]} {
1128	return
1129	}
1130
1131	set q [$_arcball rotate $x $y $_click(x) $_click(y)]
1132	QuaternionToView $q
1133	set _settings(-qw) $_view(-qw)
1134	set _settings(-qx) $_view(-qx)
1135	set _settings(-qy) $_view(-qy)
1136	set _settings(-qz) $_view(-qz)
1137	SendCmd "camera orient $q"
1138
1139	set _click(x) $x
1140	set _click(y) $y
1141	}
1142	}
1143	release {
1144	Rotate drag $x $y
1145	$itk_component(3dview) configure -cursor ""
1146	catch {unset _click}
1147	}
1148	default {
1149	error "bad option \"$option\": should be click, drag, release"
1150	}
1151	}
1152	}
1153
1154	# ----------------------------------------------------------------------
1155	# USAGE: $this Pan click x y
1156	# $this Pan drag x y
1157	# $this Pan release x y
1158	#
1159	# Called automatically when the user clicks on one of the zoom
1160	# controls for this widget. Changes the zoom for the current view.
1161	# ----------------------------------------------------------------------
1162	itcl::body Rappture::NanovisViewer::Pan {option x y} {
1163	# Experimental stuff
1164	set w [winfo width $itk_component(3dview)]
1165	set h [winfo height $itk_component(3dview)]
1166	if { $option == "set" } {
1167	set x [expr $x / double($w)]
1168	set y [expr $y / double($h)]
1169	set _view(-xpan) [expr $_view(-xpan) + $x]
1170	set _view(-ypan) [expr $_view(-ypan) + $y]
1171	PanCamera
1172	set _settings(-xpan) $_view(-xpan)
1173	set _settings(-ypan) $_view(-ypan)
1174	return
1175	}
1176	if { $option == "click" } {
1177	set _click(x) $x
1178	set _click(y) $y
1179	$itk_component(3dview) configure -cursor hand1
1180	}
1181	if { $option == "drag" \|\| $option == "release" } {
1182	set dx [expr ($_click(x) - $x)/double($w)]
1183	set dy [expr ($_click(y) - $y)/double($h)]
1184	set _click(x) $x
1185	set _click(y) $y
1186	set _view(-xpan) [expr $_view(-xpan) - $dx]
1187	set _view(-ypan) [expr $_view(-ypan) - $dy]
1188	PanCamera
1189	set _settings(-xpan) $_view(-xpan)
1190	set _settings(-ypan) $_view(-ypan)
1191	}
1192	if { $option == "release" } {
1193	$itk_component(3dview) configure -cursor ""
1194	}
1195	}
1196
1197	# ----------------------------------------------------------------------
1198	# USAGE: InitSettings <what> ?<value>?
1199	#
1200	# Used internally to update rendering settings whenever parameters
1201	# change in the popup settings panel. Sends the new settings off
1202	# to the back end.
1203	# ----------------------------------------------------------------------
1204	itcl::body Rappture::NanovisViewer::InitSettings { args } {
1205	foreach arg $args {
1206	AdjustSetting $arg
1207	}
1208	}
1209
1210	# ----------------------------------------------------------------------
1211	# USAGE: AdjustSetting <what> ?<value>?
1212	#
1213	# Used internally to update rendering settings whenever parameters
1214	# change in the popup settings panel. Sends the new settings off
1215	# to the back end.
1216	# ----------------------------------------------------------------------
1217	itcl::body Rappture::NanovisViewer::AdjustSetting {what {value ""}} {
1218	if {![isconnected]} {
1219	return
1220	}
1221	switch -- $what {
1222	"-axesvisible" {
1223	SendCmd "axis visible $_settings($what)"
1224	}
1225	"-background" {
1226	set bgcolor [$itk_component(background) value]
1227	array set fgcolors {
1228	"black" "white"
1229	"white" "black"
1230	"grey" "black"
1231	}
1232	configure -plotbackground $bgcolor \
1233	-plotforeground $fgcolors($bgcolor)
1234	DrawLegend $_current
1235	}
1236	"-colormap" {
1237	set color [$itk_component(colormap) value]
1238	set _settings($what) $color
1239	set _settings($_current${what}) $color
1240	ResetColormap $_current $color
1241	}
1242	"-current" {
1243	set cname [$itk_component(volcomponents) value]
1244	SwitchComponent $cname
1245	}
1246	"-cutplanesvisible" {
1247	set bool $_settings($what)
1248	# We only set cutplanes on the first dataset.
1249	set datasets [CurrentDatasets -cutplanes]
1250	set tag [lindex $datasets 0]
1251	if { $bool } {
1252	foreach axis { x y z } {
1253	if { $_settings(-${axis}cutplanevisible) } {
1254	SendCmd "cutplane state 1 $axis $tag"
1255	}
1256	}
1257	} else {
1258	foreach axis { x y z } {
1259	SendCmd "cutplane state 0 $axis $tag"
1260	}
1261	}
1262	}
1263	"-gridvisible" {
1264	SendCmd "grid visible $_settings($what)"
1265	}
1266	"-isosurfaceshading" {
1267	SendCmd "volume shading isosurface $_settings($what)"
1268	}
1269	"-legendvisible" {
1270	if { $_settings($what) } {
1271	blt::table $itk_component(plotarea) \
1272	0,0 $itk_component(3dview) -fill both \
1273	1,0 $itk_component(legend) -fill x
1274	blt::table configure $itk_component(plotarea) r1 -resize none
1275	} else {
1276	blt::table forget $itk_component(legend)
1277	}
1278	}
1279	"-light" {
1280	set _settings($_current${what}) $_settings($what)
1281	set val $_settings($what)
1282	set diffuse [expr {0.01*$val}]
1283	set ambient [expr {1.0-$diffuse}]
1284	set specularLevel 0.3
1285	set specularExp 90.0
1286	foreach tag [GetDatasetsWithComponent $_current] {
1287	SendCmd "volume shading ambient $ambient $tag"
1288	SendCmd "volume shading diffuse $diffuse $tag"
1289	SendCmd "volume shading specularLevel $specularLevel $tag"
1290	SendCmd "volume shading specularExp $specularExp $tag"
1291	}
1292	}
1293	"-light2side" {
1294	set _settings($_current${what}) $_settings($what)
1295	set val $_settings($what)
1296	foreach tag [GetDatasetsWithComponent $_current] {
1297	SendCmd "volume shading light2side $val $tag"
1298	}
1299	}
1300	"-outlinevisible" {
1301	SendCmd "volume outline state $_settings($what)"
1302	}
1303	"-thickness" {
1304	set val $_settings($what)
1305	set _settings($_current${what}) $val
1306	updateTransferFunctions
1307	}
1308	"-volume" {
1309	# This is the global volume visibility control. It controls the
1310	# visibility of all the all volumes. Whenever it's changed, you
1311	# have to synchronize each of the local controls (see below) with
1312	# this.
1313	set datasets [CurrentDatasets]
1314	set bool $_settings($what)
1315	SendCmd "volume data state $bool $datasets"
1316	foreach cname $_componentsList {
1317	set _settings($cname-volumevisible) $bool
1318	}
1319	set _settings(-volumevisible) $bool
1320	}
1321	"-volumeopacity" {
1322	set _settings($what) [expr $_widget($what) * 0.01]
1323	set _settings($_current${what}) $_settings($what)
1324	foreach tag [GetDatasetsWithComponent $_current] {
1325	SendCmd "volume shading opacity $_settings($what) $tag"
1326	}
1327	}
1328	"-volumevisible" {
1329	# This is the component specific control. It changes the
1330	# visibility of only the current component.
1331	set _settings($_current${what}) $_settings($what)
1332	foreach tag [GetDatasetsWithComponent $_current] {
1333	SendCmd "volume data state $_settings($what) $tag"
1334	}
1335	}
1336	"-xcutplanevisible" - "-ycutplanevisible" - "-zcutplanevisible" {
1337	set axis [string range $what 1 1]
1338	set bool $_settings($what)
1339	# We only set cutplanes on the first dataset.
1340	set datasets [CurrentDatasets -cutplanes]
1341	set tag [lindex $datasets 0]
1342	if { $_settings(-cutplanesvisible) } {
1343	SendCmd "cutplane state $bool $axis $tag"
1344	}
1345	if { $bool } {
1346	$itk_component(${axis}CutScale) configure -state normal \
1347	-troughcolor white
1348	} else {
1349	$itk_component(${axis}CutScale) configure -state disabled \
1350	-troughcolor grey82
1351	}
1352	}
1353	default {
1354	error "don't know how to fix $what"
1355	}
1356	}
1357	}
1358
1359	# ----------------------------------------------------------------------
1360	# USAGE: FixLegend
1361	#
1362	# Used internally to update the legend area whenever it changes size
1363	# or when the field changes. Asks the server to send a new legend
1364	# for the current field.
1365	# ----------------------------------------------------------------------
1366	itcl::body Rappture::NanovisViewer::FixLegend {} {
1367	set _resizeLegendPending 0
1368	set lineht [font metrics $itk_option(-font) -linespace]
1369	set w [expr {$_width-20}]
1370	set h [expr {[winfo height $itk_component(legend)]-20-$lineht}]
1371	if {$w > 0 && $h > 0 && $_first != "" } {
1372	if { [info exists _cname2transferFunction($_current)] } {
1373	SendCmd "legend $_current $w $h"
1374	}
1375	}
1376	}
1377
1378	#
1379	# NameTransferFunction --
1380	#
1381	# Creates a transfer function name based on the <style> settings in the
1382	# library run.xml file. This placeholder will be used later to create
1383	# and send the actual transfer function once the data info has been sent
1384	# to us by the render server. [We won't know the volume limits until the
1385	# server parses the 3D data and sends back the limits via ReceiveData.]
1386	#
1387	itcl::body Rappture::NanovisViewer::NameTransferFunction { dataobj cname } {
1388	array set styles {
1389	-color BCGYR
1390	-levels 6
1391	-markers ""
1392	}
1393	set tag $dataobj-$cname
1394	array set styles [lindex [$dataobj components -style $cname] 0]
1395	if { ![info exists _cname2transferFunction($cname)] } {
1396	# Get the colormap right now, since it doesn't change with marker
1397	# changes.
1398	set cmap [ColorsToColormap $styles(-color)]
1399	set wmap [list 0.0 0.0 1.0 1.0]
1400	set _cname2transferFunction($cname) [list $cmap $wmap]
1401	SendCmd [list transfunc define $cname $cmap $wmap]
1402	}
1403	SendCmd "volume shading transfunc $cname $tag"
1404	if { ![info exists _transferFunctionEditors($cname)] } {
1405	set _transferFunctionEditors($cname) \
1406	[Rappture::TransferFunctionEditor ::\#auto $itk_component(legend) \
1407	$cname \
1408	-command [itcl::code $this updateTransferFunctions]]
1409	}
1410	set _dataset2style($tag) $cname
1411	lappend _style2datasets($cname) $tag
1412	return $cname
1413	}
1414
1415	#
1416	# ComputeTransferFunction --
1417	#
1418	# Computes and sends the transfer function to the render server. It's
1419	# assumed that the volume data limits are known and that the global
1420	# transfer-functions slider values have been set up. Both parts are
1421	# needed to compute the relative value (location) of the marker, and
1422	# the alpha map of the transfer function.
1423	#
1424	itcl::body Rappture::NanovisViewer::ComputeTransferFunction { cname } {
1425	foreach {cmap wmap} $_cname2transferFunction($cname) break
1426
1427	# We have to parse the style attributes for a volume using this
1428	# transfer-function once. This sets up the initial isomarkers for the
1429	# transfer function. The user may add/delete markers, so we have to
1430	# maintain a list of markers for each transfer-function. We use the one
1431	# of the volumes (the first in the list) using the transfer-function as a
1432	# reference.
1433	if { ![info exists _parsedFunction($cname)] } {
1434	array set styles {
1435	-color BCGYR
1436	-levels 6
1437	-markers ""
1438	}
1439	# Accumulate the style from all the datasets using it.
1440	foreach tag [GetDatasetsWithComponent $cname] {
1441	foreach {dataobj cname} [split [lindex $tag 0] -] break
1442	array set styles [lindex [$dataobj components -style $cname] 0]
1443	}
1444	eval $_transferFunctionEditors($cname) limits $_limits($cname)
1445	# Have to defer creation of isomarkers until we have data limits
1446	if { [info exists styles(-markers)] &&
1447	[llength $styles(-markers)] > 0 } {
1448	ParseMarkersOption $cname $styles(-markers)
1449	} else {
1450	ParseLevelsOption $cname $styles(-levels)
1451	}
1452
1453	}
1454	set wmap [ComputeAlphamap $cname]
1455	set _cname2transferFunction($cname) [list $cmap $wmap]
1456	SendCmd [list transfunc define $cname $cmap $wmap]
1457	}
1458
1459	itcl::body Rappture::NanovisViewer::AddNewMarker { x y } {
1460	if { ![info exists _transferFunctionEditors($_current)] } {
1461	continue
1462	}
1463	# Add a new marker to the current transfer function
1464	$_transferFunctionEditors($_current) newMarker $x $y normal
1465	$itk_component(legend) itemconfigure labels -fill $itk_option(-plotforeground)
1466	}
1467
1468	itcl::body Rappture::NanovisViewer::RemoveMarker { x y } {
1469	if { ![info exists _transferFunctionEditors($_current)] } {
1470	continue
1471	}
1472	# Add a new marker to the current transfer function
1473	$_transferFunctionEditors($_current) deleteMarker $x $y
1474	}
1475
1476	# ----------------------------------------------------------------------
1477	# CONFIGURATION OPTION: -plotbackground
1478	# ----------------------------------------------------------------------
1479	itcl::configbody Rappture::NanovisViewer::plotbackground {
1480	if { [isconnected] } {
1481	set color $itk_option(-plotbackground)
1482	set rgb [Color2RGB $color]
1483	SendCmd "screen bgcolor $rgb"
1484	$itk_component(legend) configure -background $color
1485	}
1486	}
1487
1488	# ----------------------------------------------------------------------
1489	# CONFIGURATION OPTION: -plotforeground
1490	# ----------------------------------------------------------------------
1491	itcl::configbody Rappture::NanovisViewer::plotforeground {
1492	if { [isconnected] } {
1493	set color $itk_option(-plotforeground)
1494	set rgb [Color2RGB $color]
1495	SendCmd "volume outline color $rgb"
1496	SendCmd "grid axiscolor $rgb"
1497	SendCmd "grid linecolor $rgb"
1498	$itk_component(legend) itemconfigure labels -fill $color
1499	$itk_component(legend) itemconfigure limits -fill $color
1500	}
1501	}
1502
1503	# ----------------------------------------------------------------------
1504	# CONFIGURATION OPTION: -plotoutline
1505	# ----------------------------------------------------------------------
1506	itcl::configbody Rappture::NanovisViewer::plotoutline {
1507	# Must check if we are connected because this routine is called from the
1508	# class body when the -plotoutline itk_option is defined. At that point
1509	# the NanovisViewer class constructor hasn't been called, so we can't
1510	# start sending commands to visualization server.
1511	if { [isconnected] } {
1512	if {"" == $itk_option(-plotoutline)} {
1513	SendCmd "volume outline state off"
1514	} else {
1515	SendCmd "volume outline state on"
1516	SendCmd "volume outline color [Color2RGB $itk_option(-plotoutline)]"
1517	}
1518	}
1519	}
1520
1521	#
1522	# The -levels option takes a single value that represents the number
1523	# of evenly distributed markers based on the current data range. Each
1524	# marker is a relative value from 0.0 to 1.0.
1525	#
1526	itcl::body Rappture::NanovisViewer::ParseLevelsOption { cname levels } {
1527	set c $itk_component(legend)
1528	set list {}
1529	regsub -all "," $levels " " levels
1530	if {[string is int $levels]} {
1531	for {set i 1} { $i <= $levels } {incr i} {
1532	lappend list [expr {double($i)/($levels+1)}]
1533	}
1534	} else {
1535	foreach x $levels {
1536	lappend list $x
1537	}
1538	}
1539	set _parsedFunction($cname) 1
1540	$_transferFunctionEditors($cname) addMarkers $list
1541	$itk_component(legend) itemconfigure labels -fill $itk_option(-plotforeground)
1542	}
1543
1544	#
1545	# The -markers option takes a list of zero or more values (the values
1546	# may be separated either by spaces or commas) that have the following
1547	# format:
1548	#
1549	# N% Percent of current total data range. Converted to
1550	# to a relative value between 0.0 and 1.0.
1551	# N Absolute value of marker. If the marker is outside of
1552	# the current range, it will be displayed on the outer
1553	# edge of the legends, but it range it represents will
1554	# not be seen.
1555	#
1556	itcl::body Rappture::NanovisViewer::ParseMarkersOption { cname markers } {
1557	set c $itk_component(legend)
1558	set list {}
1559	foreach { min max } $_limits($cname) break
1560	regsub -all "," $markers " " markers
1561	foreach marker $markers {
1562	set n [scan $marker "%g%s" value suffix]
1563	if { $n == 2 && $suffix == "%" } {
1564	# $n% : Set relative value (0..1).
1565	lappend list [expr {$value * 0.01}]
1566	} else {
1567	# $n : absolute value, compute relative
1568	lappend list [expr {(double($value)-$min)/($max-$min)]}
1569	}
1570	}
1571	set _parsedFunction($cname) 1
1572	$_transferFunctionEditors($cname) addMarkers $list
1573	$itk_component(legend) itemconfigure labels -fill $itk_option(-plotforeground)
1574	}
1575
1576	# ----------------------------------------------------------------------
1577	# USAGE: UndateTransferFuncs
1578	# ----------------------------------------------------------------------
1579	itcl::body Rappture::NanovisViewer::updateTransferFunctions {} {
1580	$_dispatcher event -idle !send_transfunc
1581	}
1582
1583	itcl::body Rappture::NanovisViewer::limits { cname } {
1584	set _limits(min) 0.0
1585	set _limits(max) 1.0
1586	if { ![info exists _style2datasets($cname)] } {
1587	return [array get _limits]
1588	}
1589	set min ""; set max ""
1590	foreach tag [GetDatasetsWithComponent $cname] {
1591	if { ![info exists _limits($tag)] } {
1592	continue
1593	}
1594	foreach {amin amax} $_limits($tag) break
1595	if { $min == "" \|\| $min > $amin } {
1596	set min $amin
1597	}
1598	if { $max == "" \|\| $max < $amax } {
1599	set max $amax
1600	}
1601	}
1602	if { $min != "" } {
1603	set _limits(min) $min
1604	}
1605	if { $max != "" } {
1606	set _limits(max) $max
1607	}
1608	return [list $_limits(min) $_limits(max)]
1609	}
1610
1611
1612	itcl::body Rappture::NanovisViewer::BuildViewTab {} {
1613	set fg [option get $itk_component(hull) font Font]
1614	#set bfg [option get $itk_component(hull) boldFont Font]
1615
1616	set inner [$itk_component(main) insert end \
1617	-title "View Settings" \
1618	-icon [Rappture::icon wrench]]
1619	$inner configure -borderwidth 4
1620
1621	set ::Rappture::NanovisViewer::_settings(-isosurfaceshading) 0
1622	checkbutton $inner.isosurface \
1623	-text "Isosurface shading" \
1624	-variable [itcl::scope _settings(-isosurfaceshading)] \
1625	-command [itcl::code $this AdjustSetting -isosurfaceshading] \
1626	-font "Arial 9"
1627
1628	checkbutton $inner.axes \
1629	-text "Axes" \
1630	-variable [itcl::scope _settings(-axesvisible)] \
1631	-command [itcl::code $this AdjustSetting -axesvisible] \
1632	-font "Arial 9"
1633
1634	checkbutton $inner.grid \
1635	-text "Grid" \
1636	-variable [itcl::scope _settings(-gridvisible)] \
1637	-command [itcl::code $this AdjustSetting -gridvisible] \
1638	-font "Arial 9"
1639
1640	checkbutton $inner.outline \
1641	-text "Outline" \
1642	-variable [itcl::scope _settings(-outlinevisible)] \
1643	-command [itcl::code $this AdjustSetting -outlinevisible] \
1644	-font "Arial 9"
1645
1646	checkbutton $inner.legend \
1647	-text "Legend" \
1648	-variable [itcl::scope _settings(-legendvisible)] \
1649	-command [itcl::code $this AdjustSetting -legendvisible] \
1650	-font "Arial 9"
1651
1652	checkbutton $inner.volume \
1653	-text "Volume" \
1654	-variable [itcl::scope _settings(-volume)] \
1655	-command [itcl::code $this AdjustSetting -volume] \
1656	-font "Arial 9"
1657
1658	label $inner.background_l -text "Background" -font "Arial 9"
1659	itk_component add background {
1660	Rappture::Combobox $inner.background -width 10 -editable no
1661	}
1662	$inner.background choices insert end \
1663	"black" "black" \
1664	"white" "white" \
1665	"grey" "grey"
1666
1667	$itk_component(background) value $_settings(-background)
1668	bind $inner.background <<Value>> \
1669	[itcl::code $this AdjustSetting -background]
1670
1671	blt::table $inner \
1672	0,0 $inner.axes -cspan 2 -anchor w \
1673	1,0 $inner.grid -cspan 2 -anchor w \
1674	2,0 $inner.outline -cspan 2 -anchor w \
1675	3,0 $inner.volume -cspan 2 -anchor w \
1676	4,0 $inner.legend -cspan 2 -anchor w \
1677	5,0 $inner.background_l -anchor e -pady 2 \
1678	5,1 $inner.background -fill x \
1679
1680	if 0 {
1681	bind $inner <Map> [itcl::code $this GetVolumeInfo $inner]
1682	}
1683	blt::table configure $inner r* -resize none
1684	blt::table configure $inner r6 -resize expand
1685	}
1686
1687	itcl::body Rappture::NanovisViewer::BuildVolumeTab {} {
1688	set inner [$itk_component(main) insert end \
1689	-title "Volume Settings" \
1690	-icon [Rappture::icon volume-on]]
1691	$inner configure -borderwidth 4
1692
1693	set fg [option get $itk_component(hull) font Font]
1694	#set bfg [option get $itk_component(hull) boldFont Font]
1695
1696	label $inner.shading -text "Shading:" -font $fg
1697
1698	checkbutton $inner.light2side -text "Two-sided lighting" -font $fg \
1699	-variable [itcl::scope _settings(-light2side)] \
1700	-command [itcl::code $this AdjustSetting -light2side]
1701
1702	checkbutton $inner.visibility -text "Visible" -font $fg \
1703	-variable [itcl::scope _settings(-volumevisible)] \
1704	-command [itcl::code $this AdjustSetting -volumevisible]
1705
1706	label $inner.dim -text "Glow" -font $fg
1707	::scale $inner.light -from 0 -to 100 -orient horizontal \
1708	-variable [itcl::scope _settings(-light)] \
1709	-width 10 \
1710	-showvalue off -command [itcl::code $this AdjustSetting -light]
1711	label $inner.bright -text "Surface" -font $fg
1712
1713	# Opacity
1714	label $inner.fog -text "Clear" -font $fg
1715	::scale $inner.transp -from 0 -to 100 -orient horizontal \
1716	-variable [itcl::scope _widget(-volumeopacity)] \
1717	-width 10 \
1718	-showvalue off -command [itcl::code $this AdjustSetting -volumeopacity]
1719	label $inner.plastic -text "Opaque" -font $fg
1720
1721	# Tooth thickness
1722	label $inner.thin -text "Thin" -font $fg
1723	::scale $inner.thickness -from 0 -to 1000 -orient horizontal \
1724	-variable [itcl::scope _settings(-thickness)] \
1725	-width 10 \
1726	-showvalue off -command [itcl::code $this AdjustSetting -thickness]
1727	label $inner.thick -text "Thick" -font $fg
1728
1729	# Colormap
1730	label $inner.colormap_l -text "Colormap" -font $fg
1731	itk_component add colormap {
1732	Rappture::Combobox $inner.colormap -width 10 -editable no
1733	}
1734
1735	$inner.colormap choices insert end [GetColormapList -includeDefault -includeNone]
1736	bind $inner.colormap <<Value>> \
1737	[itcl::code $this AdjustSetting -colormap]
1738	$itk_component(colormap) value "default"
1739	set _settings(-colormap) "default"
1740
1741	# Component
1742	label $inner.volcomponents_l -text "Component" -font $fg
1743	itk_component add volcomponents {
1744	Rappture::Combobox $inner.volcomponents -editable no
1745	}
1746	bind $inner.volcomponents <<Value>> \
1747	[itcl::code $this AdjustSetting -current]
1748
1749	blt::table $inner \
1750	0,0 $inner.volcomponents_l -anchor e -cspan 2 \
1751	0,2 $inner.volcomponents -cspan 3 -fill x \
1752	1,0 $inner.shading -cspan 4 -anchor w -pady {10 2} \
1753	2,0 $inner.light2side -cspan 4 -anchor w -pady 2 \
1754	3,0 $inner.visibility -cspan 4 -anchor w -pady 2 \
1755	4,0 $inner.dim -anchor e -pady 2 \
1756	4,1 $inner.light -cspan 2 -pady 2 -fill x \
1757	4,3 $inner.bright -anchor w -pady 2 \
1758	5,0 $inner.fog -anchor e -pady 2 \
1759	5,1 $inner.transp -cspan 2 -pady 2 -fill x \
1760	5,3 $inner.plastic -anchor w -pady 2 \
1761	6,0 $inner.thin -anchor e -pady 2 \
1762	6,1 $inner.thickness -cspan 2 -pady 2 -fill x\
1763	6,3 $inner.thick -anchor w -pady 2
1764
1765	blt::table configure $inner c0 c1 c3 r* -resize none
1766	blt::table configure $inner r7 -resize expand
1767	}
1768
1769	itcl::body Rappture::NanovisViewer::BuildCutplanesTab {} {
1770	set inner [$itk_component(main) insert end \
1771	-title "Cutplane Settings" \
1772	-icon [Rappture::icon cutbutton]]
1773	$inner configure -borderwidth 4
1774
1775	checkbutton $inner.visible \
1776	-text "Show Cutplanes" \
1777	-variable [itcl::scope _settings(-cutplanesvisible)] \
1778	-command [itcl::code $this AdjustSetting -cutplanesvisible] \
1779	-font "Arial 9"
1780
1781	# X-value slicer...
1782	itk_component add xCutButton {
1783	Rappture::PushButton $inner.xbutton \
1784	-onimage [Rappture::icon x-cutplane] \
1785	-offimage [Rappture::icon x-cutplane] \
1786	-command [itcl::code $this AdjustSetting -xcutplanevisible] \
1787	-variable [itcl::scope _settings(-xcutplanevisible)]
1788	}
1789	Rappture::Tooltip::for $itk_component(xCutButton) \
1790	"Toggle the X cut plane on/off"
1791	$itk_component(xCutButton) select
1792
1793	itk_component add xCutScale {
1794	::scale $inner.xval -from 100 -to 0 \
1795	-width 10 -orient vertical -showvalue off \
1796	-borderwidth 1 -highlightthickness 0 \
1797	-command [itcl::code $this Slice move x] \
1798	-variable [itcl::scope _settings(-xcutplaneposition)]
1799	} {
1800	usual
1801	ignore -borderwidth -highlightthickness
1802	}
1803	# Set the default cutplane value before disabling the scale.
1804	$itk_component(xCutScale) set 50
1805	$itk_component(xCutScale) configure -state disabled
1806	Rappture::Tooltip::for $itk_component(xCutScale) \
1807	"@[itcl::code $this SlicerTip x]"
1808
1809	# Y-value slicer...
1810	itk_component add yCutButton {
1811	Rappture::PushButton $inner.ybutton \
1812	-onimage [Rappture::icon y-cutplane] \
1813	-offimage [Rappture::icon y-cutplane] \
1814	-command [itcl::code $this AdjustSetting -ycutplanevisible] \
1815	-variable [itcl::scope _settings(-ycutplanevisible)]
1816	}
1817	Rappture::Tooltip::for $itk_component(yCutButton) \
1818	"Toggle the Y cut plane on/off"
1819	$itk_component(yCutButton) select
1820
1821	itk_component add yCutScale {
1822	::scale $inner.yval -from 100 -to 0 \
1823	-width 10 -orient vertical -showvalue off \
1824	-borderwidth 1 -highlightthickness 0 \
1825	-command [itcl::code $this Slice move y] \
1826	-variable [itcl::scope _settings(-ycutplaneposition)]
1827	} {
1828	usual
1829	ignore -borderwidth -highlightthickness
1830	}
1831	Rappture::Tooltip::for $itk_component(yCutScale) \
1832	"@[itcl::code $this SlicerTip y]"
1833	# Set the default cutplane value before disabling the scale.
1834	$itk_component(yCutScale) set 50
1835	$itk_component(yCutScale) configure -state disabled
1836
1837	# Z-value slicer...
1838	itk_component add zCutButton {
1839	Rappture::PushButton $inner.zbutton \
1840	-onimage [Rappture::icon z-cutplane] \
1841	-offimage [Rappture::icon z-cutplane] \
1842	-command [itcl::code $this AdjustSetting -zcutplanevisible] \
1843	-variable [itcl::scope _settings(-zcutplanevisible)]
1844	}
1845	Rappture::Tooltip::for $itk_component(zCutButton) \
1846	"Toggle the Z cut plane on/off"
1847	$itk_component(zCutButton) select
1848
1849	itk_component add zCutScale {
1850	::scale $inner.zval -from 100 -to 0 \
1851	-width 10 -orient vertical -showvalue off \
1852	-borderwidth 1 -highlightthickness 0 \
1853	-command [itcl::code $this Slice move z] \
1854	-variable [itcl::scope _settings(-zcutplaneposition)]
1855	} {
1856	usual
1857	ignore -borderwidth -highlightthickness
1858	}
1859	$itk_component(zCutScale) set 50
1860	$itk_component(zCutScale) configure -state disabled
1861	Rappture::Tooltip::for $itk_component(zCutScale) \
1862	"@[itcl::code $this SlicerTip z]"
1863
1864	blt::table $inner \
1865	0,1 $inner.visible -anchor w -pady 2 -cspan 4 \
1866	1,1 $itk_component(xCutScale) \
1867	1,2 $itk_component(yCutScale) \
1868	1,3 $itk_component(zCutScale) \
1869	2,1 $itk_component(xCutButton) \
1870	2,2 $itk_component(yCutButton) \
1871	2,3 $itk_component(zCutButton)
1872
1873	blt::table configure $inner r0 r1 r2 c* -resize none
1874	blt::table configure $inner r3 c4 -resize expand
1875	blt::table configure $inner c0 -width 2
1876	blt::table configure $inner c1 c2 c3 -padx 2
1877	}
1878
1879	itcl::body Rappture::NanovisViewer::BuildCameraTab {} {
1880	set inner [$itk_component(main) insert end \
1881	-title "Camera Settings" \
1882	-icon [Rappture::icon camera]]
1883	$inner configure -borderwidth 4
1884
1885	label $inner.view_l -text "view" -font "Arial 9"
1886	set f [frame $inner.view]
1887	foreach side { front back left right top bottom } {
1888	button $f.$side -image [Rappture::icon view$side] \
1889	-command [itcl::code $this SetOrientation $side]
1890	Rappture::Tooltip::for $f.$side "Change the view to $side"
1891	pack $f.$side -side left
1892	}
1893
1894	blt::table $inner \
1895	0,0 $inner.view_l -anchor e -pady 2 \
1896	0,1 $inner.view -anchor w -pady 2
1897	blt::table configure $inner r0 -resize none
1898
1899	set row 1
1900	set labels { qw qx qy qz xpan ypan zoom }
1901	foreach tag $labels {
1902	label $inner.${tag}label -text $tag -font "Arial 9"
1903	entry $inner.${tag} -font "Arial 9" -bg white \
1904	-textvariable [itcl::scope _settings(-$tag)]
1905	bind $inner.${tag} <Return> \
1906	[itcl::code $this camera set -${tag}]
1907	bind $inner.${tag} <KP_Enter> \
1908	[itcl::code $this camera set -${tag}]
1909	blt::table $inner \
1910	$row,0 $inner.${tag}label -anchor e -pady 2 \
1911	$row,1 $inner.${tag} -anchor w -pady 2
1912	blt::table configure $inner r$row -resize none
1913	incr row
1914	}
1915
1916	blt::table configure $inner c* -resize none
1917	blt::table configure $inner c2 -resize expand
1918	blt::table configure $inner r$row -resize expand
1919	}
1920
1921	# ----------------------------------------------------------------------
1922	# USAGE: Slice move x\|y\|z <newval>
1923	#
1924	# Called automatically when the user drags the slider to move the
1925	# cut plane that slices 3D data. Gets the current value from the
1926	# slider and moves the cut plane to the appropriate point in the
1927	# data set.
1928	# ----------------------------------------------------------------------
1929	itcl::body Rappture::NanovisViewer::Slice {option args} {
1930	switch -- $option {
1931	move {
1932	if {[llength $args] != 2} {
1933	error "wrong # args: should be \"Slice move x\|y\|z newval\""
1934	}
1935	set axis [lindex $args 0]
1936	set newval [lindex $args 1]
1937
1938	set newpos [expr {0.01*$newval}]
1939	set datasets [CurrentDatasets -cutplanes]
1940	set tag [lindex $datasets 0]
1941	SendCmd "cutplane position $newpos $axis $tag"
1942	}
1943	default {
1944	error "bad option \"$option\": should be axis, move, or volume"
1945	}
1946	}
1947	}
1948
1949	# ----------------------------------------------------------------------
1950	# USAGE: SlicerTip <axis>
1951	#
1952	# Used internally to generate a tooltip for the x/y/z slicer controls.
1953	# Returns a message that includes the current slicer value.
1954	# ----------------------------------------------------------------------
1955	itcl::body Rappture::NanovisViewer::SlicerTip {axis} {
1956	set val [$itk_component(${axis}CutScale) get]
1957	return "Move the [string toupper $axis] cut plane.\nCurrently: $axis = $val%"
1958	}
1959
1960
1961	itcl::body Rappture::NanovisViewer::DoResize {} {
1962	$_arcball resize $_width $_height
1963	SendCmd "screen size $_width $_height"
1964	set _resizePending 0
1965	}
1966
1967	itcl::body Rappture::NanovisViewer::EventuallyResize { w h } {
1968	set _width $w
1969	set _height $h
1970	$_arcball resize $w $h
1971	if { !$_resizePending } {
1972	$_dispatcher event -idle !resize
1973	set _resizePending 1
1974	}
1975	}
1976
1977	itcl::body Rappture::NanovisViewer::EventuallyRedrawLegend {} {
1978	if { !$_resizeLegendPending } {
1979	$_dispatcher event -idle !legend
1980	set _resizeLegendPending 1
1981	}
1982	}
1983
1984	# camera --
1985	#
1986	itcl::body Rappture::NanovisViewer::camera {option args} {
1987	switch -- $option {
1988	"show" {
1989	puts [array get _view]
1990	}
1991	"set" {
1992	set what [lindex $args 0]
1993	set x $_settings($what)
1994	set code [catch { string is double $x } result]
1995	if { $code != 0 \|\| !$result } {
1996	set _settings($what) $_view($what)
1997	return
1998	}
1999	switch -- $what {
2000	"-xpan" - "-ypan" {
2001	set _view($what) $_settings($what)
2002	PanCamera
2003	}
2004	"-qx" - "-qy" - "-qz" - "-qw" {
2005	set _view($what) $_settings($what)
2006	set q [ViewToQuaternion]
2007	$_arcball quaternion $q
2008	SendCmd "camera orient $q"
2009	}
2010	"-zoom" {
2011	set _view($what) $_settings($what)
2012	SendCmd "camera zoom $_view($what)"
2013	}
2014	}
2015	}
2016	}
2017	}
2018
2019	itcl::body Rappture::NanovisViewer::GetVolumeInfo { w } {
2020	set flowobj ""
2021	foreach key [array names _obj2flow] {
2022	set flowobj $_obj2flow($key)
2023	break
2024	}
2025	if { $flowobj == "" } {
2026	return
2027	}
2028	if { [winfo exists $w.frame] } {
2029	destroy $w.frame
2030	}
2031	set inner [frame $w.frame]
2032	blt::table $w \
2033	5,0 $inner -fill both -cspan 2 -anchor nw
2034	array set hints [$dataobj hints]
2035
2036	label $inner.volumes -text "Volumes" -font "Arial 9 bold"
2037	blt::table $inner \
2038	1,0 $inner.volumes -anchor w \
2039	blt::table configure $inner c0 c1 -resize none
2040	blt::table configure $inner c2 -resize expand
2041
2042	set row 3
2043	set volumes [get]
2044	if { [llength $volumes] > 0 } {
2045	blt::table $inner $row,0 $inner.volumes -anchor w
2046	incr row
2047	}
2048	foreach vol $volumes {
2049	array unset info
2050	array set info $vol
2051	set name $info(name)
2052	if { ![info exists _settings(-volumevisible-$name)] } {
2053	set _settings(-volumevisible-$name) $info(hide)
2054	}
2055	checkbutton $inner.vol$row -text $info(label) \
2056	-variable [itcl::scope _settings(-volumevisible-$name)] \
2057	-onvalue 0 -offvalue 1 \
2058	-command [itcl::code $this ToggleVolume $key $name] \
2059	-font "Arial 9"
2060	Rappture::Tooltip::for $inner.vol$row $info(description)
2061	blt::table $inner $row,0 $inner.vol$row -anchor w
2062	if { !$_settings(-volume-$name) } {
2063	$inner.vol$row select
2064	}
2065	incr row
2066	}
2067	blt::table configure $inner r* -resize none
2068	blt::table configure $inner r$row -resize expand
2069	blt::table configure $inner c3 -resize expand
2070	event generate [winfo parent [winfo parent $w]] <Configure>
2071	}
2072
2073	itcl::body Rappture::NanovisViewer::ToggleVolume { tag name } {
2074	set bool $_settings(-volumevisible-$name)
2075	SendCmd "volume state $bool $name"
2076	}
2077
2078	itcl::body Rappture::NanovisViewer::SetOrientation { side } {
2079	array set positions {
2080	front "1 0 0 0"
2081	back "0 0 1 0"
2082	left "0.707107 0 -0.707107 0"
2083	right "0.707107 0 0.707107 0"
2084	top "0.707107 -0.707107 0 0"
2085	bottom "0.707107 0.707107 0 0"
2086	}
2087	foreach name { -qw -qx -qy -qz } value $positions($side) {
2088	set _view($name) $value
2089	}
2090	set q [ViewToQuaternion]
2091	$_arcball quaternion $q
2092	SendCmd "camera orient $q"
2093	SendCmd "camera reset"
2094	set _view(-xpan) 0
2095	set _view(-ypan) 0
2096	set _view(-zoom) 1.0
2097	set _settings(-xpan) $_view(-xpan)
2098	set _settings(-ypan) $_view(-ypan)
2099	set _settings(-zoom) $_view(-zoom)
2100	}
2101
2102
2103	#
2104	# InitComponentSettings --
2105	#
2106	# Initializes the volume settings for a specific component. This should
2107	# match what's used as global settings above. This is called the first
2108	# time we try to switch to a given component in SwitchComponent below.
2109	#
2110	itcl::body Rappture::NanovisViewer::InitComponentSettings { cname } {
2111	foreach {key value} {
2112	-colormap "default"
2113	-light 40
2114	-light2side 1
2115	-thickness 350
2116	-volumeopacity 1.0
2117	-volumevisible 1
2118	} {
2119	if { ![info exists _settings($cname${key})] } {
2120	# Don't override existing component settings
2121	set _settings($cname${key}) $value
2122	}
2123	}
2124	}
2125
2126	#
2127	# SwitchComponent --
2128	#
2129	# This is called when the current component is changed by the dropdown
2130	# menu in the volume tab. It synchronizes the global volume settings
2131	# with the settings of the new current component.
2132	#
2133	itcl::body Rappture::NanovisViewer::SwitchComponent { cname } {
2134	if { ![info exists _settings($cname-light)] } {
2135	InitComponentSettings $cname
2136	}
2137	if { $_settings(-colormap) != $_settings($cname-colormap) } {
2138	set _settings(-colormap) $_settings($cname-colormap)
2139	EventuallyRedrawLegend
2140	}
2141	# _settings variables change widgets, except for colormap
2142	set _settings(-light) $_settings($cname-light)
2143	set _settings(-light2side) $_settings($cname-light2side)
2144	set _settings(-volumeopacity) $_settings($cname-volumeopacity)
2145	set _settings(-thickness) $_settings($cname-thickness)
2146	set _settings(-volumevisible) $_settings($cname-volumevisible)
2147	$itk_component(colormap) value $_settings($cname-colormap)
2148
2149	set _widget(-volumeopacity) [expr $_settings(-volumeopacity) * 100.0]
2150
2151	set _current $cname; # Reset the current component
2152	}
2153
2154	#
2155	# BuildVolumeComponents --
2156	#
2157	# This is called from the "scale" method which is called when a new
2158	# dataset is added or deleted. It repopulates the dropdown menu of
2159	# volume component names. It sets the current component to the first
2160	# component in the list (of components found). Finally, if there is
2161	# only one component, don't display the label or the combobox in the
2162	# volume settings tab.
2163	#
2164	itcl::body Rappture::NanovisViewer::BuildVolumeComponents {} {
2165	$itk_component(volcomponents) choices delete 0 end
2166	foreach name $_componentsList {
2167	$itk_component(volcomponents) choices insert end $name $name
2168	}
2169	set _current [lindex $_componentsList 0]
2170	$itk_component(volcomponents) value $_current
2171	set parent [winfo parent $itk_component(volcomponents)]
2172	if { [llength $_componentsList] <= 1 } {
2173	# Unpack the components label and dropdown if there's only one
2174	# component.
2175	blt::table forget $parent.volcomponents_l $parent.volcomponents
2176	} else {
2177	# Pack the components label and dropdown into the table there's
2178	# more than one component to select.
2179	blt::table $parent \
2180	0,0 $parent.volcomponents_l -anchor e -cspan 2 \
2181	0,2 $parent.volcomponents -cspan 3 -fill x
2182	}
2183	}
2184
2185	#
2186	# GetDatasetsWithComponents --
2187	#
2188	# Returns a list of all the datasets (known by the combination of their
2189	# data object and component name) that match the given component name.
2190	# For example, this is used where we want to change the settings of
2191	# volumes that have the current component.
2192	#
2193	itcl::body Rappture::NanovisViewer::GetDatasetsWithComponent { cname } {
2194	if { ![info exists _volcomponents($cname)] } {
2195	return ""
2196	}
2197	set list ""
2198	foreach tag $_volcomponents($cname) {
2199	if { ![info exists _serverDatasets($tag)] } {
2200	continue
2201	}
2202	lappend list $tag
2203	}
2204	return $list
2205	}
2206
2207	#
2208	# HideAllMarkers --
2209	#
2210	# Hide all the markers in all the transfer functions. Can't simply
2211	# delete and recreate markers from the <style> since the user may have
2212	# created, deleted, or moved markers.
2213	#
2214	itcl::body Rappture::NanovisViewer::HideAllMarkers {} {
2215	foreach cname [array names _transferFunctionEditors] {
2216	$_transferFunctionEditors($cname) hideMarkers
2217	}
2218	}
2219
2220	itcl::body Rappture::NanovisViewer::GetColormap { cname color } {
2221	if { $color == "default" } {
2222	return $_cname2defaultcolormap($cname)
2223	}
2224	return [ColorsToColormap $color]
2225	}
2226
2227	itcl::body Rappture::NanovisViewer::GetAlphamap { cname name } {
2228	if { $name == "default" } {
2229	return $_cname2defaultalphamap($cname)
2230	}
2231	return [NameToAlphamap $name]
2232	}
2233
2234	itcl::body Rappture::NanovisViewer::ResetColormap { cname color } {
2235	# Get the current transfer function
2236	if { ![info exists _cname2transferFunction($cname)] } {
2237	return
2238	}
2239	foreach { cmap wmap } $_cname2transferFunction($cname) break
2240	set cmap [GetColormap $cname $color]
2241	set _cname2transferFunction($cname) [list $cmap $wmap]
2242	SendCmd [list transfunc define $cname $cmap $wmap]
2243	EventuallyRedrawLegend
2244	}
2245
2246	itcl::body Rappture::NanovisViewer::ComputeAlphamap { cname } {
2247	if { ![info exists _transferFunctionEditors($cname)] } {
2248	return [list 0.0 0.0 1.0 1.0]
2249	}
2250	if { ![info exists _settings($cname-light)] } {
2251	InitComponentSettings $cname
2252	}
2253
2254	set isovalues [$_transferFunctionEditors($cname) values]
2255
2256	# Transfer function should be normalized with [0,1] range
2257	# The volume shading opacity setting is used to scale opacity
2258	# in the volume shader.
2259	set max 1.0
2260
2261	# Use the component-wise thickness setting from the slider
2262	# settings widget
2263	# Scale values between 0.00001 and 0.01000
2264	set delta [expr {double($_settings($cname-thickness)) * 0.0001}]
2265
2266	set first [lindex $isovalues 0]
2267	set last [lindex $isovalues end]
2268	set wmap ""
2269	if { $first == "" \|\| $first != 0.0 } {
2270	lappend wmap 0.0 0.0
2271	}
2272	foreach x $isovalues {
2273	set x1 [expr {$x-$delta-0.00001}]
2274	set x2 [expr {$x-$delta}]
2275	set x3 [expr {$x+$delta}]
2276	set x4 [expr {$x+$delta+0.00001}]
2277	if { $x1 < 0.0 } {
2278	set x1 0.0
2279	} elseif { $x1 > 1.0 } {
2280	set x1 1.0
2281	}
2282	if { $x2 < 0.0 } {
2283	set x2 0.0
2284	} elseif { $x2 > 1.0 } {
2285	set x2 1.0
2286	}
2287	if { $x3 < 0.0 } {
2288	set x3 0.0
2289	} elseif { $x3 > 1.0 } {
2290	set x3 1.0
2291	}
2292	if { $x4 < 0.0 } {
2293	set x4 0.0
2294	} elseif { $x4 > 1.0 } {
2295	set x4 1.0
2296	}
2297	# add spikes in the middle
2298	lappend wmap $x1 0.0
2299	lappend wmap $x2 $max
2300	lappend wmap $x3 $max
2301	lappend wmap $x4 0.0
2302	}
2303	if { $last == "" \|\| $last != 1.0 } {
2304	lappend wmap 1.0 0.0
2305	}
2306	return $wmap
2307	}
2308
2309	itcl::body Rappture::NanovisViewer::NameToAlphamap { name } {
2310	switch -- $name {
2311	"ramp-up" {
2312	set wmap {
2313	0.0 0.0
2314	1.0 1.0
2315	}
2316	}
2317	"ramp-down" {
2318	set wmap {
2319	0.0 1.0
2320	1.0 0.0
2321	}
2322	}
2323	"vee" {
2324	set wmap {
2325	0.0 1.0
2326	0.5 0.0
2327	1.0 1.0
2328	}
2329	}
2330	"tent-1" {
2331	set wmap {
2332	0.0 0.0
2333	0.5 1.0
2334	1.0 0.0
2335	}
2336	}
2337	"tent-2" {
2338	set wmap {
2339	0.0 0.0
2340	0.25 1.0
2341	0.5 0.0
2342	0.75 1.0
2343	1.0 0.0
2344	}
2345	}
2346	"tent-3" {
2347	set wmap {
2348	0.0 0.0
2349	0.16666 1.0
2350	0.33333 0.0
2351	0.5 1.0
2352	0.66666 0.0
2353	0.83333 1.0
2354	1.0 0.0
2355	}
2356	}
2357	"tent-4" {
2358	set wmap {
2359	0.0 0.0
2360	0.125 1.0
2361	0.25 0.0
2362	0.375 1.0
2363	0.5 0.0
2364	0.625 1.0
2365	0.75 0.0
2366	0.875 1.0
2367	1.0 0.0
2368	}
2369	}
2370	"sinusoid-1" {
2371	set wmap {
2372	0.0 0.000 0.600 0.800
2373	0.14285714285714285 0.400 0.900 1.000
2374	0.2857142857142857 0.600 1.000 1.000
2375	0.42857142857142855 0.800 1.000 1.000
2376	0.5714285714285714 0.900 0.900 0.900
2377	0.7142857142857143 0.600 0.600 0.600
2378	0.8571428571428571 0.400 0.400 0.400
2379	1.0 0.200 0.200 0.200
2380	}
2381	}
2382	"sinusoid-2" {
2383	set wmap {
2384	0.0 0.900 1.000 1.000
2385	0.1111111111111111 0.800 0.983 1.000
2386	0.2222222222222222 0.700 0.950 1.000
2387	0.3333333333333333 0.600 0.900 1.000
2388	0.4444444444444444 0.500 0.833 1.000
2389	0.5555555555555556 0.400 0.750 1.000
2390	0.6666666666666666 0.300 0.650 1.000
2391	0.7777777777777778 0.200 0.533 1.000
2392	0.8888888888888888 0.100 0.400 1.000
2393	1.0 0.000 0.250 1.000
2394	}
2395	}
2396	"sinusoid-6" {
2397	set wmap {
2398	0.0 0.200 0.100 0.000
2399	0.09090909090909091 0.400 0.187 0.000
2400	0.18181818181818182 0.600 0.379 0.210
2401	0.2727272727272727 0.800 0.608 0.480
2402	0.36363636363636365 0.850 0.688 0.595
2403	0.45454545454545453 0.950 0.855 0.808
2404	0.5454545454545454 0.800 0.993 1.000
2405	0.6363636363636364 0.600 0.973 1.000
2406	0.7272727272727273 0.400 0.940 1.000
2407	0.8181818181818182 0.200 0.893 1.000
2408	0.9090909090909091 0.000 0.667 0.800
2409	1.0 0.000 0.480 0.600
2410	}
2411	}
2412	"sinusoid-10" {
2413	set wmap {
2414	0.0 0.000 0.480 0.600
2415	0.09090909090909091 0.000 0.667 0.800
2416	0.18181818181818182 0.200 0.893 1.000
2417	0.2727272727272727 0.400 0.940 1.000
2418	0.36363636363636365 0.600 0.973 1.000
2419	0.45454545454545453 0.800 0.993 1.000
2420	0.5454545454545454 0.950 0.855 0.808
2421	0.6363636363636364 0.850 0.688 0.595
2422	0.7272727272727273 0.800 0.608 0.480
2423	0.8181818181818182 0.600 0.379 0.210
2424	0.9090909090909091 0.400 0.187 0.000
2425	1.0 0.200 0.100 0.000
2426	}
2427	}
2428	"step-2" {
2429	set wmap {
2430	0.0 0.000 0.167 1.000
2431	0.09090909090909091 0.100 0.400 1.000
2432	0.18181818181818182 0.200 0.600 1.000
2433	0.2727272727272727 0.400 0.800 1.000
2434	0.36363636363636365 0.600 0.933 1.000
2435	0.45454545454545453 0.800 1.000 1.000
2436	0.5454545454545454 1.000 1.000 0.800
2437	0.6363636363636364 1.000 0.933 0.600
2438	0.7272727272727273 1.000 0.800 0.400
2439	0.8181818181818182 1.000 0.600 0.200
2440	0.9090909090909091 1.000 0.400 0.100
2441	1.0 1.000 0.167 0.000
2442	}
2443	}
2444	"step-5" {
2445	set wmap {
2446	0.0 1.000 0.167 0.000
2447	0.09090909090909091 1.000 0.400 0.100
2448	0.18181818181818182 1.000 0.600 0.200
2449	0.2727272727272727 1.000 0.800 0.400
2450	0.36363636363636365 1.000 0.933 0.600
2451	0.45454545454545453 1.000 1.000 0.800
2452	0.5454545454545454 0.800 1.000 1.000
2453	0.6363636363636364 0.600 0.933 1.000
2454	0.7272727272727273 0.400 0.800 1.000
2455	0.8181818181818182 0.200 0.600 1.000
2456	0.9090909090909091 0.100 0.400 1.000
2457	1.0 0.000 0.167 1.000
2458	}
2459	}
2460	"step-12" {
2461	set wmap {
2462	"#EE82EE"
2463	"#4B0082"
2464	"blue"
2465	"#008000"
2466	"yellow"
2467	"#FFA500"
2468	"red"
2469	}
2470	}
2471	default {
2472	}
2473	}
2474	return ""
2475	}
2476
2477	itcl::body Rappture::NanovisViewer::SetObjectStyle { dataobj cname } {
2478	array set styles {
2479	-opacity 0.5
2480	}
2481	array set styles [lindex [$dataobj components -style $cname] 0]
2482	set _settings($cname-volumeopacity) $styles(-opacity)
2483	set tag $dataobj-$cname
2484	SendCmd "volume shading opacity $_settings($cname-volumeopacity) $tag"
2485	NameTransferFunction $dataobj $cname
2486	}

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

Download in other formats: