Context Navigation

source: trunk/gui/scripts/nanovisviewer.tcl @ 3093

Last change on this file since 3093 was 3060, checked in by ldelgass, 12 years ago
Fix widget names, canonical view orientations in BuildCameraTab?. Note that the drop down is not yet added to the layout.
File size: 71.4 KB

Line
1
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-2005 Purdue Research Foundation
11	#
12	# See the file "license.terms" for information on usage and
13	# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14	# ======================================================================
15	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 overmarker { m x }
78	public method sendto { string }
79	public method parameters {title args} {
80	# do nothing
81	}
82	public method rmdupmarker { m x }
83	public method scale {args}
84	public method updatetransferfuncs {}
85
86	protected method Connect {}
87	protected method CurrentVolumes {{what -all}}
88	protected method Disconnect {}
89	protected method DoResize {}
90	protected method FixLegend {}
91	protected method FixSettings {what {value ""}}
92	protected method Pan {option x y}
93	protected method Rebuild {}
94	protected method ReceiveData { args }
95	protected method ReceiveImage { args }
96	protected method ReceiveLegend { tf vmin vmax size }
97	protected method Rotate {option x y}
98	protected method SendCmd {string}
99	protected method SendTransferFuncs {}
100	protected method Slice {option args}
101	protected method SlicerTip {axis}
102	protected method Zoom {option}
103
104	# The following methods are only used by this class.
105	private method AddIsoMarker { x y }
106	private method BuildCameraTab {}
107	private method BuildCutplanesTab {}
108	private method BuildViewTab {}
109	private method BuildVolumeTab {}
110	private method ComputeTransferFunc { tf }
111	private method EventuallyResize { w h }
112	private method EventuallyResizeLegend { }
113	private method NameTransferFunc { dataobj comp }
114	private method PanCamera {}
115	private method ParseLevelsOption { tf levels }
116	private method ParseMarkersOption { tf markers }
117	private method volume { tag name }
118	private method GetVolumeInfo { w }
119	private method SetOrientation {}
120
121	private variable _outbuf ;# buffer for outgoing commands
122
123	private variable _dlist "" ;# list of data objects
124	private variable _allDataObjs
125	private variable _obj2ovride ;# maps dataobj => style override
126	private variable _serverVols ;# contains all the dataobj-component
127	;# to volumes in the server
128	private variable _serverTfs ;# contains all the transfer functions
129	;# in the server.
130	private variable _recvdVols ;# list of data objs to send to server
131	private variable _vol2style ;# maps dataobj-component to transfunc
132	private variable _style2vols ;# maps tf back to list of
133	# dataobj-components using the tf.
134
135	private variable _click ;# info used for rotate operations
136	private variable _limits ;# autoscale min/max for all axes
137	private variable _view ;# view params for 3D view
138	private variable _isomarkers ;# array of isosurface level values 0..1
139	private common _settings
140	# Array of transfer functions in server. If 0 the transfer has been
141	# defined but not loaded. If 1 the transfer function has been named
142	# and loaded.
143	private variable _activeTfs
144	private variable _first "" ;# This is the topmost volume.
145	private variable _buffering 0
146
147	# This
148	# indicates which isomarkers and transfer
149	# function to use when changing markers,
150	# opacity, or thickness.
151	common _downloadPopup ;# download options from popup
152	private common _hardcopy
153	private variable _width 0
154	private variable _height 0
155	private variable _resizePending 0
156	private variable _resizeLegendPending 0
157	}
158
159	itk::usual NanovisViewer {
160	keep -background -foreground -cursor -font
161	keep -plotbackground -plotforeground
162	}
163
164	# ----------------------------------------------------------------------
165	# CONSTRUCTOR
166	# ----------------------------------------------------------------------
167	itcl::body Rappture::NanovisViewer::constructor {hostlist args} {
168	set _serverType "nanovis"
169
170	# Draw legend event
171	$_dispatcher register !legend
172	$_dispatcher dispatch $this !legend "[itcl::code $this FixLegend]; list"
173
174	# Send transfer functions event
175	$_dispatcher register !send_transfunc
176	$_dispatcher dispatch $this !send_transfunc \
177	"[itcl::code $this SendTransferFuncs]; list"
178
179	# Rebuild event
180	$_dispatcher register !rebuild
181	$_dispatcher dispatch $this !rebuild "[itcl::code $this Rebuild]; list"
182
183	# Resize event
184	$_dispatcher register !resize
185	$_dispatcher dispatch $this !resize "[itcl::code $this DoResize]; list"
186
187	set _outbuf ""
188
189	#
190	# Populate parser with commands handle incoming requests
191	#
192	$_parser alias image [itcl::code $this ReceiveImage]
193	$_parser alias legend [itcl::code $this ReceiveLegend]
194	$_parser alias data [itcl::code $this ReceiveData]
195
196	# Initialize the view to some default parameters.
197	array set _view {
198	theta 45
199	phi 45
200	psi 0
201	zoom 1.0
202	pan-x 0
203	pan-y 0
204	}
205	set _limits(vmin) 0.0
206	set _limits(vmax) 1.0
207
208	array set _settings [subst {
209	$this-pan-x $_view(pan-x)
210	$this-pan-y $_view(pan-y)
211	$this-phi $_view(phi)
212	$this-psi $_view(psi)
213	$this-theta $_view(theta)
214	$this-volume 1
215	$this-xcutplane 0
216	$this-xcutposition 0
217	$this-ycutplane 0
218	$this-ycutposition 0
219	$this-zcutplane 0
220	$this-zcutposition 0
221	$this-zoom $_view(zoom)
222	}]
223
224	itk_component add 3dview {
225	label $itk_component(plotarea).view -image $_image(plot) \
226	-highlightthickness 0 -borderwidth 0
227	} {
228	usual
229	ignore -highlightthickness -borderwidth -background
230	}
231
232	set f [$itk_component(main) component controls]
233	itk_component add reset {
234	button $f.reset -borderwidth 1 -padx 1 -pady 1 \
235	-highlightthickness 0 \
236	-image [Rappture::icon reset-view] \
237	-command [itcl::code $this Zoom reset]
238	} {
239	usual
240	ignore -highlightthickness
241	}
242	pack $itk_component(reset) -side top -padx 2 -pady 2
243	Rappture::Tooltip::for $itk_component(reset) "Reset the view to the default zoom level"
244
245	itk_component add zoomin {
246	button $f.zin -borderwidth 1 -padx 1 -pady 1 \
247	-highlightthickness 0 \
248	-image [Rappture::icon zoom-in] \
249	-command [itcl::code $this Zoom in]
250	} {
251	usual
252	ignore -highlightthickness
253	}
254	pack $itk_component(zoomin) -side top -padx 2 -pady 2
255	Rappture::Tooltip::for $itk_component(zoomin) "Zoom in"
256
257	itk_component add zoomout {
258	button $f.zout -borderwidth 1 -padx 1 -pady 1 \
259	-highlightthickness 0 \
260	-image [Rappture::icon zoom-out] \
261	-command [itcl::code $this Zoom out]
262	} {
263	usual
264	ignore -highlightthickness
265	}
266	pack $itk_component(zoomout) -side top -padx 2 -pady 2
267	Rappture::Tooltip::for $itk_component(zoomout) "Zoom out"
268
269	itk_component add volume {
270	Rappture::PushButton $f.volume \
271	-onimage [Rappture::icon volume-on] \
272	-offimage [Rappture::icon volume-off] \
273	-command [itcl::code $this FixSettings volume] \
274	-variable [itcl::scope _settings($this-volume)]
275	}
276	$itk_component(volume) select
277	Rappture::Tooltip::for $itk_component(volume) \
278	"Toggle the volume cloud on/off"
279	pack $itk_component(volume) -padx 2 -pady 2
280
281	BuildViewTab
282	BuildVolumeTab
283	BuildCutplanesTab
284	BuildCameraTab
285
286	# Legend
287
288	set _image(legend) [image create photo]
289	itk_component add legend {
290	canvas $itk_component(plotarea).legend -height 50 -highlightthickness 0
291	} {
292	usual
293	ignore -highlightthickness
294	rename -background -plotbackground plotBackground Background
295	}
296	bind $itk_component(legend) <Configure> \
297	[itcl::code $this EventuallyResizeLegend]
298
299	# Hack around the Tk panewindow. The problem is that the requested
300	# size of the 3d view isn't set until an image is retrieved from
301	# the server. So the panewindow uses the tiny size.
302	set w 10000
303	pack forget $itk_component(3dview)
304	blt::table $itk_component(plotarea) \
305	0,0 $itk_component(3dview) -fill both -reqwidth $w \
306	1,0 $itk_component(legend) -fill x
307	blt::table configure $itk_component(plotarea) r1 -resize none
308
309	# Bindings for rotation via mouse
310	bind $itk_component(3dview) <ButtonPress-1> \
311	[itcl::code $this Rotate click %x %y]
312	bind $itk_component(3dview) <B1-Motion> \
313	[itcl::code $this Rotate drag %x %y]
314	bind $itk_component(3dview) <ButtonRelease-1> \
315	[itcl::code $this Rotate release %x %y]
316	bind $itk_component(3dview) <Configure> \
317	[itcl::code $this EventuallyResize %w %h]
318
319	# Bindings for panning via mouse
320	bind $itk_component(3dview) <ButtonPress-2> \
321	[itcl::code $this Pan click %x %y]
322	bind $itk_component(3dview) <B2-Motion> \
323	[itcl::code $this Pan drag %x %y]
324	bind $itk_component(3dview) <ButtonRelease-2> \
325	[itcl::code $this Pan release %x %y]
326
327	# Bindings for panning via keyboard
328	bind $itk_component(3dview) <KeyPress-Left> \
329	[itcl::code $this Pan set -10 0]
330	bind $itk_component(3dview) <KeyPress-Right> \
331	[itcl::code $this Pan set 10 0]
332	bind $itk_component(3dview) <KeyPress-Up> \
333	[itcl::code $this Pan set 0 -10]
334	bind $itk_component(3dview) <KeyPress-Down> \
335	[itcl::code $this Pan set 0 10]
336	bind $itk_component(3dview) <Shift-KeyPress-Left> \
337	[itcl::code $this Pan set -2 0]
338	bind $itk_component(3dview) <Shift-KeyPress-Right> \
339	[itcl::code $this Pan set 2 0]
340	bind $itk_component(3dview) <Shift-KeyPress-Up> \
341	[itcl::code $this Pan set 0 -2]
342	bind $itk_component(3dview) <Shift-KeyPress-Down> \
343	[itcl::code $this Pan set 0 2]
344
345	# Bindings for zoom via keyboard
346	bind $itk_component(3dview) <KeyPress-Prior> \
347	[itcl::code $this Zoom out]
348	bind $itk_component(3dview) <KeyPress-Next> \
349	[itcl::code $this Zoom in]
350
351	bind $itk_component(3dview) <Enter> "focus $itk_component(3dview)"
352
353	if {[string equal "x11" [tk windowingsystem]]} {
354	# Bindings for zoom via mouse
355	bind $itk_component(3dview) <4> [itcl::code $this Zoom out]
356	bind $itk_component(3dview) <5> [itcl::code $this Zoom in]
357	}
358
359	set _image(download) [image create photo]
360
361	eval itk_initialize $args
362
363	Connect
364	}
365
366	# ----------------------------------------------------------------------
367	# DESTRUCTOR
368	# ----------------------------------------------------------------------
369	itcl::body Rappture::NanovisViewer::destructor {} {
370	$_dispatcher cancel !rebuild
371	$_dispatcher cancel !send_transfunc
372	$_dispatcher cancel !resize
373	image delete $_image(plot)
374	image delete $_image(legend)
375	image delete $_image(download)
376	array unset _settings $this-*
377	}
378
379	# ----------------------------------------------------------------------
380	# USAGE: add <dataobj> ?<settings>?
381	#
382	# Clients use this to add a data object to the plot. The optional
383	# <settings> are used to configure the plot. Allowed settings are
384	# -color, -brightness, -width, -linestyle, and -raise.
385	# ----------------------------------------------------------------------
386	itcl::body Rappture::NanovisViewer::add {dataobj {settings ""}} {
387	array set params {
388	-color auto
389	-width 1
390	-linestyle solid
391	-brightness 0
392	-raise 0
393	-description ""
394	-param ""
395	}
396	foreach {opt val} $settings {
397	if {![info exists params($opt)]} {
398	error "bad setting \"$opt\": should be [join [lsort [array names params]] {, }]"
399	}
400	set params($opt) $val
401	}
402	if {$params(-color) == "auto" \|\| $params(-color) == "autoreset"} {
403	# can't handle -autocolors yet
404	set params(-color) black
405	}
406	set pos [lsearch -exact $dataobj $_dlist]
407	if {$pos < 0} {
408	lappend _dlist $dataobj
409	set _allDataObjs($dataobj) 1
410	set _obj2ovride($dataobj-color) $params(-color)
411	set _obj2ovride($dataobj-width) $params(-width)
412	set _obj2ovride($dataobj-raise) $params(-raise)
413	$_dispatcher event -idle !rebuild
414	}
415	}
416
417	# ----------------------------------------------------------------------
418	# USAGE: get ?-objects?
419	# USAGE: get ?-image 3dview\|legend?
420	#
421	# Clients use this to query the list of objects being plotted, in
422	# order from bottom to top of this result. The optional "-image"
423	# flag can also request the internal images being shown.
424	# ----------------------------------------------------------------------
425	itcl::body Rappture::NanovisViewer::get {args} {
426	if {[llength $args] == 0} {
427	set args "-objects"
428	}
429
430	set op [lindex $args 0]
431	switch -- $op {
432	-objects {
433	# put the dataobj list in order according to -raise options
434	set dlist $_dlist
435	foreach obj $dlist {
436	if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} {
437	set i [lsearch -exact $dlist $obj]
438	if {$i >= 0} {
439	set dlist [lreplace $dlist $i $i]
440	lappend dlist $obj
441	}
442	}
443	}
444	return $dlist
445	}
446	-image {
447	if {[llength $args] != 2} {
448	error "wrong # args: should be \"get -image 3dview\|legend\""
449	}
450	switch -- [lindex $args end] {
451	3dview {
452	return $_image(plot)
453	}
454	legend {
455	return $_image(legend)
456	}
457	default {
458	error "bad image name \"[lindex $args end]\": should be 3dview or legend"
459	}
460	}
461	}
462	default {
463	error "bad option \"$op\": should be -objects or -image"
464	}
465	}
466	}
467
468	# ----------------------------------------------------------------------
469	# USAGE: delete ?<dataobj1> <dataobj2> ...?
470	#
471	# Clients use this to delete a dataobj from the plot. If no dataobjs
472	# are specified, then all dataobjs are deleted. No data objects are
473	# deleted. They are only removed from the display list.
474	#
475	# ----------------------------------------------------------------------
476	itcl::body Rappture::NanovisViewer::delete {args} {
477	if {[llength $args] == 0} {
478	set args $_dlist
479	}
480	# Delete all specified dataobjs
481	set changed 0
482	foreach dataobj $args {
483	set pos [lsearch -exact $_dlist $dataobj]
484	if { $pos >= 0 } {
485	set _dlist [lreplace $_dlist $pos $pos]
486	array unset _limits $dataobj*
487	array unset _obj2ovride $dataobj-*
488	array unset _vol2style $dataobj-*
489	set changed 1
490	}
491	}
492	# If anything changed, then rebuild the plot
493	if {$changed} {
494	$_dispatcher event -idle !rebuild
495	}
496	}
497
498	# ----------------------------------------------------------------------
499	# USAGE: scale ?<data1> <data2> ...?
500	#
501	# Sets the default limits for the overall plot according to the
502	# limits of the data for all of the given <data> objects. This
503	# accounts for all objects--even those not showing on the screen.
504	# Because of this, the limits are appropriate for all objects as
505	# the user scans through data in the ResultSet viewer.
506	# ----------------------------------------------------------------------
507	itcl::body Rappture::NanovisViewer::scale {args} {
508	foreach val {xmin xmax ymin ymax zmin zmax vmin vmax} {
509	set _limits($val) ""
510	}
511	foreach obj $args {
512	foreach axis {x y z v} {
513
514	foreach { min max } [$obj limits $axis] break
515
516	if {"" != $min && "" != $max} {
517	if {"" == $_limits(${axis}min)} {
518	set _limits(${axis}min) $min
519	set _limits(${axis}max) $max
520	} else {
521	if {$min < $_limits(${axis}min)} {
522	set _limits(${axis}min) $min
523	}
524	if {$max > $_limits(${axis}max)} {
525	set _limits(${axis}max) $max
526	}
527	}
528	}
529	}
530	}
531	}
532
533	# ----------------------------------------------------------------------
534	# USAGE: download coming
535	# USAGE: download controls <downloadCommand>
536	# USAGE: download now
537	#
538	# Clients use this method to create a downloadable representation
539	# of the plot. Returns a list of the form {ext string}, where
540	# "ext" is the file extension (indicating the type of data) and
541	# "string" is the data itself.
542	# ----------------------------------------------------------------------
543	itcl::body Rappture::NanovisViewer::download {option args} {
544	switch $option {
545	coming {
546	if {[catch {
547	blt::winop snap $itk_component(plotarea) $_image(download)
548	}]} {
549	$_image(download) configure -width 1 -height 1
550	$_image(download) put #000000
551	}
552	}
553	controls {
554	# no controls for this download yet
555	return ""
556	}
557	now {
558	# Get the image data (as base64) and decode it back to binary.
559	# This is better than writing to temporary files. When we switch
560	# to the BLT picture image it won't be necessary to decode the
561	# image data.
562	if { [image width $_image(plot)] > 0 &&
563	[image height $_image(plot)] > 0 } {
564	set bytes [$_image(plot) data -format "jpeg -quality 100"]
565	set bytes [Rappture::encoding::decode -as b64 $bytes]
566	return [list .jpg $bytes]
567	}
568	return ""
569	}
570	default {
571	error "bad option \"$option\": should be coming, controls, now"
572	}
573	}
574	}
575
576	# ----------------------------------------------------------------------
577	# USAGE: Connect ?<host:port>,<host:port>...?
578	#
579	# Clients use this method to establish a connection to a new
580	# server, or to reestablish a connection to the previous server.
581	# Any existing connection is automatically closed.
582	# ----------------------------------------------------------------------
583	itcl::body Rappture::NanovisViewer::Connect {} {
584	set _hosts [GetServerList "nanovis"]
585	if { "" == $_hosts } {
586	return 0
587	}
588	set result [VisViewer::Connect $_hosts]
589	if { $result } {
590	set w [winfo width $itk_component(3dview)]
591	set h [winfo height $itk_component(3dview)]
592	EventuallyResize $w $h
593	}
594	return $result
595	}
596
597	#
598	# isconnected --
599	#
600	# Indicates if we are currently connected to the visualization server.
601	#
602	itcl::body Rappture::NanovisViewer::isconnected {} {
603	return [VisViewer::IsConnected]
604	}
605
606	#
607	# disconnect --
608	#
609	itcl::body Rappture::NanovisViewer::disconnect {} {
610	Disconnect
611	}
612
613	#
614	# Disconnect --
615	#
616	# Clients use this method to disconnect from the current rendering
617	# server.
618	#
619	itcl::body Rappture::NanovisViewer::Disconnect {} {
620	VisViewer::Disconnect
621
622	# disconnected -- no more data sitting on server
623	set _outbuf ""
624	array unset _serverVols
625	}
626
627	#
628	# sendto --
629	#
630	itcl::body Rappture::NanovisViewer::sendto { bytes } {
631	SendBytes "$bytes\n"
632	}
633
634	#
635	# SendCmd
636	#
637	# Send commands off to the rendering server. If we're currently
638	# sending data objects to the server, buffer the commands to be
639	# sent later.
640	#
641	itcl::body Rappture::NanovisViewer::SendCmd {string} {
642	if { $_buffering } {
643	append _outbuf $string "\n"
644	} else {
645	foreach line [split $string \n] {
646	SendEcho >>line $line
647	}
648	SendBytes "$string\n"
649	}
650	}
651
652
653	# ----------------------------------------------------------------------
654	# USAGE: SendTransferFuncs
655	# ----------------------------------------------------------------------
656	itcl::body Rappture::NanovisViewer::SendTransferFuncs {} {
657	if { $_first == "" } {
658	puts stderr "first not set"
659	return
660	}
661	# Ensure that the global opacity and thickness settings (in the slider
662	# settings widgets) are used for the active transfer-function. Update
663	# the values in the _settings varible.
664	set opacity [expr { double($_settings($this-opacity)) * 0.01 }]
665	# Scale values between 0.00001 and 0.01000
666	set thickness [expr {double($_settings($this-thickness)) * 0.0001}]
667
668	foreach vol [CurrentVolumes] {
669	if { ![info exists _serverVols($vol)] \|\| !$_serverVols($vol) } {
670	# The volume hasn't reached the server yet. How did we get
671	# here?
672	continue
673	}
674	if { ![info exists _vol2style($vol)] } {
675	puts stderr "unknown volume $vol"
676	continue; # How does this happen?
677	}
678	set tf $_vol2style($vol)
679	set _settings($this-$tf-opacity) $opacity
680	set _settings($this-$tf-thickness) $thickness
681	ComputeTransferFunc $tf
682	# FIXME: Need to the send information as to what transfer functions
683	# to update so that we only update the transfer function
684	# as necessary. Right now, all transfer functions are
685	# updated. This makes moving the isomarker slider chunky.
686	if { ![info exists _activeTfs($tf)] \|\| !$_activeTfs($tf) } {
687	set _activeTfs($tf) 1
688	}
689	SendCmd "volume shading transfunc $tf $vol"
690	}
691	FixLegend
692	}
693
694	# ----------------------------------------------------------------------
695	# USAGE: ReceiveImage -bytes <size> -type <type> -token <token>
696	#
697	# Invoked automatically whenever the "image" command comes in from
698	# the rendering server. Indicates that binary image data with the
699	# specified <size> will follow.
700	# ----------------------------------------------------------------------
701	itcl::body Rappture::NanovisViewer::ReceiveImage { args } {
702	array set info {
703	-token "???"
704	-bytes 0
705	-type image
706	}
707	array set info $args
708	set bytes [ReceiveBytes $info(-bytes)]
709	ReceiveEcho <<line "<read $info(-bytes) bytes"
710	if { $info(-type) == "image" } {
711	ReceiveEcho "for [image width $_image(plot)]x[image height $_image(plot)] image>"
712	$_image(plot) configure -data $bytes
713	} elseif { $info(type) == "print" } {
714	set tag $this-print-$info(-token)
715	set _hardcopy($tag) $bytes
716	}
717	}
718
719	#
720	# ReceiveLegend --
721	#
722	# The procedure is the response from the render server to each "legend"
723	# command. The server sends back a "legend" command invoked our
724	# the slave interpreter. The purpose is to collect data of the image
725	# representing the legend in the canvas. In addition, the isomarkers
726	# of the active transfer function are displayed.
727	#
728	# I don't know is this is the right place to display the isomarkers.
729	# I don't know all the different paths used to draw the plot. There's
730	# "Rebuild", "add", etc.
731	#
732	itcl::body Rappture::NanovisViewer::ReceiveLegend { tf vmin vmax size } {
733	if { ![isconnected] } {
734	return
735	}
736	set bytes [ReceiveBytes $size]
737	$_image(legend) configure -data $bytes
738	ReceiveEcho <<line "<read $size bytes for [image width $_image(legend)]x[image height $_image(legend)] legend>"
739
740	set c $itk_component(legend)
741	set w [winfo width $c]
742	set h [winfo height $c]
743	set lx 10
744	set ly [expr {$h - 1}]
745	if {"" == [$c find withtag transfunc]} {
746	$c create image 10 10 -anchor nw \
747	-image $_image(legend) -tags transfunc
748	$c create text $lx $ly -anchor sw \
749	-fill $itk_option(-plotforeground) -tags "limits vmin"
750	$c create text [expr {$w-$lx}] $ly -anchor se \
751	-fill $itk_option(-plotforeground) -tags "limits vmax"
752	$c lower transfunc
753	$c bind transfunc <ButtonRelease-1> \
754	[itcl::code $this AddIsoMarker %x %y]
755	}
756	# Display the markers used by the active transfer function.
757
758	array set limits [limits $tf]
759	$c itemconfigure vmin -text [format %.2g $limits(min)]
760	$c coords vmin $lx $ly
761
762	$c itemconfigure vmax -text [format %.2g $limits(max)]
763	$c coords vmax [expr {$w-$lx}] $ly
764
765	if { [info exists _isomarkers($tf)] } {
766	foreach m $_isomarkers($tf) {
767	$m visible yes
768	}
769	}
770
771	# The colormap may have changed. Resync the slicers with the colormap.
772	set vols [CurrentVolumes -cutplanes]
773	SendCmd "volume data state $_settings($this-volume) $vols"
774
775	# Adjust the cutplane for only the first component in the topmost volume
776	# (i.e. the first volume designated in the field).
777	set vol [lindex $vols 0]
778	foreach axis {x y z} {
779	# Turn off cutplanes for all volumes
780	SendCmd "cutplane state 0 $axis"
781	if { $_settings($this-${axis}cutplane) } {
782	# Turn on cutplane for this particular volume and set the position
783	SendCmd "cutplane state 1 $axis $vol"
784	set pos [expr {0.01*$_settings($this-${axis}cutposition)}]
785	SendCmd "cutplane position $pos $axis $vol"
786	}
787	}
788	}
789
790	#
791	# ReceiveData --
792	#
793	# The procedure is the response from the render server to each "data
794	# follows" command. The server sends back a "data" command invoked our
795	# the slave interpreter. The purpose is to collect the min/max of the
796	# volume sent to the render server. Since the client (nanovisviewer)
797	# doesn't parse 3D data formats, we rely on the server (nanovis) to
798	# tell us what the limits are. Once we've received the limits to all
799	# the data we've sent (tracked by _recvdVols) we can then determine
800	# what the transfer functions are for these volumes.
801	#
802	#
803	# Note: There is a considerable tradeoff in having the server report
804	# back what the data limits are. It means that much of the code
805	# having to do with transfer-functions has to wait for the data
806	# to come back, since the isomarkers are calculated based upon
807	# the data limits. The client code is much messier because of
808	# this. The alternative is to parse any of the 3D formats on the
809	# client side.
810	#
811	itcl::body Rappture::NanovisViewer::ReceiveData { args } {
812	if { ![isconnected] } {
813	return
814	}
815	# Arguments from server are name value pairs. Stuff them in an array.
816	array set info $args
817
818	set tag $info(tag)
819	set parts [split $tag -]
820
821	#
822	# Volumes don't exist until we're told about them.
823	#
824	set dataobj [lindex $parts 0]
825	set _serverVols($tag) 1
826	if { $_settings($this-volume) && $dataobj == $_first } {
827	SendCmd "volume state 1 $tag"
828	}
829	set _limits($tag-min) $info(min); # Minimum value of the volume.
830	set _limits($tag-max) $info(max); # Maximum value of the volume.
831	set _limits(vmin) $info(vmin); # Overall minimum value.
832	set _limits(vmax) $info(vmax); # Overall maximum value.
833
834	unset _recvdVols($tag)
835	if { [array size _recvdVols] == 0 } {
836	# The active transfer function is by default the first component of
837	# the first data object. This assumes that the data is always
838	# successfully transferred.
839	updatetransferfuncs
840	}
841	}
842
843	# ----------------------------------------------------------------------
844	# USAGE: Rebuild
845	#
846	# Called automatically whenever something changes that affects the
847	# data in the widget. Clears any existing data and rebuilds the
848	# widget to display new data.
849	# ----------------------------------------------------------------------
850	itcl::body Rappture::NanovisViewer::Rebuild {} {
851
852	# Turn on buffering of commands to the server. We don't want to
853	# be preempted by a server disconnect/reconnect (which automatically
854	# generates a new call to Rebuild).
855	set _buffering 1
856
857	# Hide all the isomarkers. Can't remove them. Have to remember the
858	# settings since the user may have created/deleted/moved markers.
859
860	foreach tf [array names _isomarkers] {
861	foreach m $_isomarkers($tf) {
862	$m visible no
863	}
864	}
865
866	set w [winfo width $itk_component(3dview)]
867	set h [winfo height $itk_component(3dview)]
868	EventuallyResize $w $h
869
870	foreach dataobj [get] {
871	foreach comp [$dataobj components] {
872	set vol $dataobj-$comp
873	if { ![info exists _serverVols($vol)] } {
874	# Send the data as one huge base64-encoded mess -- yuck!
875	set data [$dataobj values $comp]
876	set nbytes [string length $data]
877	append _outbuf "volume data follows $nbytes $vol\n"
878	append _outbuf $data
879	set _recvdVols($vol) 1
880	set _serverVols($vol) 0
881	}
882	NameTransferFunc $dataobj $comp
883	}
884	}
885	#
886	# Reset the camera and other view parameters
887	#
888
889	set _settings($this-theta) $_view(theta)
890	set _settings($this-phi) $_view(phi)
891	set _settings($this-psi) $_view(psi)
892	set _settings($this-pan-x) $_view(pan-x)
893	set _settings($this-pan-y) $_view(pan-y)
894	set _settings($this-zoom) $_view(zoom)
895
896	set xyz [Euler2XYZ $_view(theta) $_view(phi) $_view(psi)]
897	SendCmd "camera angle $xyz"
898	PanCamera
899	SendCmd "camera zoom $_view(zoom)"
900	FixSettings light
901	FixSettings transp
902	FixSettings isosurface
903	FixSettings grid
904	FixSettings axes
905	FixSettings outline
906
907	# nothing to send -- activate the proper ivol
908	SendCmd "volume state 0"
909	set _first [lindex [get] 0]
910	if {"" != $_first} {
911	set axis [$_first hints updir]
912	if { "" != $axis } {
913	SendCmd "up $axis"
914	}
915	set location [$_first hints camera]
916	if { $location != "" } {
917	array set _view $location
918	}
919	set vols [array names _serverVols $_first-*]
920	if { $vols != "" } {
921	SendCmd "volume state 1 $vols"
922	}
923	}
924	# If the first volume already exists on the server, then make sure we
925	# display the proper transfer function in the legend.
926	set comp [lindex [$_first components] 0]
927	if { [info exists _serverVols($_first-$comp)] } {
928	updatetransferfuncs
929	}
930	foreach axis {x y z} {
931	# Turn off cutplanes for all volumes
932	SendCmd "cutplane state 0 $axis"
933	}
934	set _buffering 0; # Turn off buffering.
935	# Actually write the commands to the server socket. If it fails, we don't
936	# care. We're finished here.
937	blt::busy hold $itk_component(hull)
938	SendBytes $_outbuf;
939	blt::busy release $itk_component(hull)
940	set _outbuf ""; # Clear the buffer.
941	}
942
943	# ----------------------------------------------------------------------
944	# USAGE: CurrentVolumes ?-cutplanes?
945	#
946	# Returns a list of volume server IDs for the current volume being
947	# displayed. This is normally a single ID, but it might be a list
948	# of IDs if the current data object has multiple components.
949	# ----------------------------------------------------------------------
950	itcl::body Rappture::NanovisViewer::CurrentVolumes {{what -all}} {
951	set rlist ""
952	if { $_first == "" } {
953	return
954	}
955	foreach comp [$_first components] {
956	set vol $_first-$comp
957	if { [info exists _serverVols($vol)] && $_serverVols($vol) } {
958	array set style {
959	-cutplanes 1
960	}
961	array set style [lindex [$_first components -style $comp] 0]
962	if { $what != "-cutplanes" \|\| $style(-cutplanes) } {
963	lappend rlist $vol
964	}
965	}
966	}
967	return $rlist
968	}
969
970	# ----------------------------------------------------------------------
971	# USAGE: Zoom in
972	# USAGE: Zoom out
973	# USAGE: Zoom reset
974	#
975	# Called automatically when the user clicks on one of the zoom
976	# controls for this widget. Changes the zoom for the current view.
977	# ----------------------------------------------------------------------
978	itcl::body Rappture::NanovisViewer::Zoom {option} {
979	switch -- $option {
980	"in" {
981	set _view(zoom) [expr {$_view(zoom)*1.25}]
982	set _settings($this-zoom) $_view(zoom)
983	}
984	"out" {
985	set _view(zoom) [expr {$_view(zoom)*0.8}]
986	set _settings($this-zoom) $_view(zoom)
987	}
988	"reset" {
989	array set _view {
990	theta 45
991	phi 45
992	psi 0
993	zoom 1.0
994	pan-x 0
995	pan-y 0
996	}
997	if { $_first != "" } {
998	set location [$_first hints camera]
999	if { $location != "" } {
1000	array set _view $location
1001	}
1002	}
1003	set xyz [Euler2XYZ $_view(theta) $_view(phi) $_view(psi)]
1004	SendCmd "camera angle $xyz"
1005	PanCamera
1006	set _settings($this-theta) $_view(theta)
1007	set _settings($this-phi) $_view(phi)
1008	set _settings($this-psi) $_view(psi)
1009	set _settings($this-pan-x) $_view(pan-x)
1010	set _settings($this-pan-y) $_view(pan-y)
1011	set _settings($this-zoom) $_view(zoom)
1012	}
1013	}
1014	SendCmd "camera zoom $_view(zoom)"
1015	}
1016
1017	itcl::body Rappture::NanovisViewer::PanCamera {} {
1018	#set x [expr ($_view(pan-x)) / $_limits(xrange)]
1019	#set y [expr ($_view(pan-y)) / $_limits(yrange)]
1020	set x $_view(pan-x)
1021	set y $_view(pan-y)
1022	SendCmd "camera pan $x $y"
1023	}
1024
1025
1026	# ----------------------------------------------------------------------
1027	# USAGE: Rotate click <x> <y>
1028	# USAGE: Rotate drag <x> <y>
1029	# USAGE: Rotate release <x> <y>
1030	#
1031	# Called automatically when the user clicks/drags/releases in the
1032	# plot area. Moves the plot according to the user's actions.
1033	# ----------------------------------------------------------------------
1034	itcl::body Rappture::NanovisViewer::Rotate {option x y} {
1035	switch -- $option {
1036	click {
1037	$itk_component(3dview) configure -cursor fleur
1038	set _click(x) $x
1039	set _click(y) $y
1040	set _click(theta) $_view(theta)
1041	set _click(phi) $_view(phi)
1042	}
1043	drag {
1044	if {[array size _click] == 0} {
1045	Rotate click $x $y
1046	} else {
1047	set w [winfo width $itk_component(3dview)]
1048	set h [winfo height $itk_component(3dview)]
1049	if {$w <= 0 \|\| $h <= 0} {
1050	return
1051	}
1052
1053	if {[catch {
1054	# this fails sometimes for no apparent reason
1055	set dx [expr {double($x-$_click(x))/$w}]
1056	set dy [expr {double($y-$_click(y))/$h}]
1057	}]} {
1058	return
1059	}
1060
1061	#
1062	# Rotate the camera in 3D
1063	#
1064	if {$_view(psi) > 90 \|\| $_view(psi) < -90} {
1065	# when psi is flipped around, theta moves backwards
1066	set dy [expr {-$dy}]
1067	}
1068	set theta [expr {$_view(theta) - $dy*180}]
1069	while {$theta < 0} { set theta [expr {$theta+180}] }
1070	while {$theta > 180} { set theta [expr {$theta-180}] }
1071
1072	if {abs($theta) >= 30 && abs($theta) <= 160} {
1073	set phi [expr {$_view(phi) - $dx*360}]
1074	while {$phi < 0} { set phi [expr {$phi+360}] }
1075	while {$phi > 360} { set phi [expr {$phi-360}] }
1076	set psi $_view(psi)
1077	} else {
1078	set phi $_view(phi)
1079	set psi [expr {$_view(psi) - $dx*360}]
1080	while {$psi < -180} { set psi [expr {$psi+360}] }
1081	while {$psi > 180} { set psi [expr {$psi-360}] }
1082	}
1083
1084	set _view(theta) $theta
1085	set _view(phi) $phi
1086	set _view(psi) $psi
1087	set xyz [Euler2XYZ $theta $phi $psi]
1088	set _settings($this-theta) $_view(theta)
1089	set _settings($this-phi) $_view(phi)
1090	set _settings($this-psi) $_view(psi)
1091	SendCmd "camera angle $xyz"
1092	set _click(x) $x
1093	set _click(y) $y
1094	}
1095	}
1096	release {
1097	Rotate drag $x $y
1098	$itk_component(3dview) configure -cursor ""
1099	catch {unset _click}
1100	}
1101	default {
1102	error "bad option \"$option\": should be click, drag, release"
1103	}
1104	}
1105	}
1106
1107	# ----------------------------------------------------------------------
1108	# USAGE: $this Pan click x y
1109	# $this Pan drag x y
1110	# $this Pan release x y
1111	#
1112	# Called automatically when the user clicks on one of the zoom
1113	# controls for this widget. Changes the zoom for the current view.
1114	# ----------------------------------------------------------------------
1115	itcl::body Rappture::NanovisViewer::Pan {option x y} {
1116	# Experimental stuff
1117	set w [winfo width $itk_component(3dview)]
1118	set h [winfo height $itk_component(3dview)]
1119	if { $option == "set" } {
1120	set x [expr $x / double($w)]
1121	set y [expr $y / double($h)]
1122	set _view(pan-x) [expr $_view(pan-x) + $x]
1123	set _view(pan-y) [expr $_view(pan-y) + $y]
1124	PanCamera
1125	set _settings($this-pan-x) $_view(pan-x)
1126	set _settings($this-pan-y) $_view(pan-y)
1127	return
1128	}
1129	if { $option == "click" } {
1130	set _click(x) $x
1131	set _click(y) $y
1132	$itk_component(3dview) configure -cursor hand1
1133	}
1134	if { $option == "drag" \|\| $option == "release" } {
1135	set dx [expr ($_click(x) - $x)/double($w)]
1136	set dy [expr ($_click(y) - $y)/double($h)]
1137	set _click(x) $x
1138	set _click(y) $y
1139	set _view(pan-x) [expr $_view(pan-x) - $dx]
1140	set _view(pan-y) [expr $_view(pan-y) - $dy]
1141	PanCamera
1142	set _settings($this-pan-x) $_view(pan-x)
1143	set _settings($this-pan-y) $_view(pan-y)
1144	}
1145	if { $option == "release" } {
1146	$itk_component(3dview) configure -cursor ""
1147	}
1148	}
1149
1150	# ----------------------------------------------------------------------
1151	# USAGE: FixSettings <what> ?<value>?
1152	#
1153	# Used internally to update rendering settings whenever parameters
1154	# change in the popup settings panel. Sends the new settings off
1155	# to the back end.
1156	# ----------------------------------------------------------------------
1157	itcl::body Rappture::NanovisViewer::FixSettings {what {value ""}} {
1158	switch -- $what {
1159	light {
1160	if {[isconnected]} {
1161	set val $_settings($this-light)
1162	set sval [expr {0.01*$val}]
1163	SendCmd "volume shading diffuse $sval"
1164	set sval [expr {sqrt($val+1.0)}]
1165	SendCmd "volume shading specular $sval"
1166	}
1167	}
1168	transp {
1169	if {[isconnected]} {
1170	set val $_settings($this-transp)
1171	set sval [expr {0.2*$val+1}]
1172	SendCmd "volume shading opacity $sval"
1173	}
1174	}
1175	opacity {
1176	if {[isconnected] && [array size _activeTfs] > 0 } {
1177	set val $_settings($this-opacity)
1178	set sval [expr { 0.01 * double($val) }]
1179	foreach tf [array names _activeTfs] {
1180	set _settings($this-$tf-opacity) $sval
1181	set _activeTfs($tf) 0
1182	}
1183	updatetransferfuncs
1184	}
1185	}
1186
1187	thickness {
1188	if {[isconnected] && [array names _activeTfs] > 0 } {
1189	set val $_settings($this-thickness)
1190	# Scale values between 0.00001 and 0.01000
1191	set sval [expr {0.0001*double($val)}]
1192	foreach tf [array names _activeTfs] {
1193	set _settings($this-$tf-thickness) $sval
1194	set _activeTfs($tf) 0
1195	}
1196	updatetransferfuncs
1197	}
1198	}
1199	"outline" {
1200	if {[isconnected]} {
1201	SendCmd "volume outline state $_settings($this-outline)"
1202	}
1203	}
1204	"isosurface" {
1205	if {[isconnected]} {
1206	SendCmd "volume shading isosurface $_settings($this-isosurface)"
1207	}
1208	}
1209	"grid" {
1210	if { [isconnected] } {
1211	SendCmd "grid visible $_settings($this-grid)"
1212	}
1213	}
1214	"axes" {
1215	if { [isconnected] } {
1216	SendCmd "axis visible $_settings($this-axes)"
1217	}
1218	}
1219	"legend" {
1220	if { $_settings($this-legend) } {
1221	blt::table $itk_component(plotarea) \
1222	0,0 $itk_component(3dview) -fill both \
1223	1,0 $itk_component(legend) -fill x
1224	blt::table configure $itk_component(plotarea) r1 -resize none
1225	} else {
1226	blt::table forget $itk_component(legend)
1227	}
1228	}
1229	"volume" {
1230	if { [isconnected] } {
1231	set vols [CurrentVolumes -cutplanes]
1232	SendCmd "volume data state $_settings($this-volume) $vols"
1233	}
1234	}
1235	"xcutplane" - "ycutplane" - "zcutplane" {
1236	set axis [string range $what 0 0]
1237	set bool $_settings($this-$what)
1238	if { [isconnected] } {
1239	set vols [CurrentVolumes -cutplanes]
1240	set vol [lindex $vols 0]
1241	SendCmd "cutplane state $bool $axis $vol"
1242	}
1243	if { $bool } {
1244	$itk_component(${axis}CutScale) configure -state normal \
1245	-troughcolor white
1246	} else {
1247	$itk_component(${axis}CutScale) configure -state disabled \
1248	-troughcolor grey82
1249	}
1250	}
1251	default {
1252	error "don't know how to fix $what"
1253	}
1254	}
1255	}
1256
1257	# ----------------------------------------------------------------------
1258	# USAGE: FixLegend
1259	#
1260	# Used internally to update the legend area whenever it changes size
1261	# or when the field changes. Asks the server to send a new legend
1262	# for the current field.
1263	# ----------------------------------------------------------------------
1264	itcl::body Rappture::NanovisViewer::FixLegend {} {
1265	set _resizeLegendPending 0
1266	set lineht [font metrics $itk_option(-font) -linespace]
1267	set w [expr {$_width-20}]
1268	set h [expr {[winfo height $itk_component(legend)]-20-$lineht}]
1269	if {$w > 0 && $h > 0 && [array names _activeTfs] > 0 && $_first != "" } {
1270	set vol [lindex [CurrentVolumes] 0]
1271	if { [info exists _vol2style($vol)] } {
1272	SendCmd "legend $_vol2style($vol) $w $h"
1273	}
1274	} else {
1275	# Can't do this as this will remove the items associated with the
1276	# isomarkers.
1277
1278	#$itk_component(legend) delete all
1279	}
1280	}
1281
1282	#
1283	# NameTransferFunc --
1284	#
1285	# Creates a transfer function name based on the <style> settings in the
1286	# library run.xml file. This placeholder will be used later to create
1287	# and send the actual transfer function once the data info has been sent
1288	# to us by the render server. [We won't know the volume limits until the
1289	# server parses the 3D data and sends back the limits via ReceiveData.]
1290	#
1291	# FIXME: The current way we generate transfer-function names completely
1292	# ignores the -markers option. The problem is that we are forced
1293	# to compute the name from an increasing complex set of values:
1294	# color, levels, marker, opacity. I think we're stuck doing it
1295	# now.
1296	#
1297	itcl::body Rappture::NanovisViewer::NameTransferFunc { dataobj comp } {
1298	array set style {
1299	-color rainbow
1300	-levels 6
1301	-opacity 1.0
1302	}
1303	array set style [lindex [$dataobj components -style $comp] 0]
1304	set tf "$style(-color):$style(-levels):$style(-opacity)"
1305	set _vol2style($dataobj-$comp) $tf
1306	lappend _style2vols($tf) $dataobj-$comp
1307	return $tf
1308	}
1309
1310	#
1311	# ComputeTransferFunc --
1312	#
1313	# Computes and sends the transfer function to the render server. It's
1314	# assumed that the volume data limits are known and that the global
1315	# transfer-functions slider values have be setup. Both parts are
1316	# needed to compute the relative value (location) of the marker, and
1317	# the alpha map of the transfer function.
1318	#
1319	itcl::body Rappture::NanovisViewer::ComputeTransferFunc { tf } {
1320	array set style {
1321	-color rainbow
1322	-levels 6
1323	-opacity 1.0
1324	}
1325	foreach {dataobj comp} [split [lindex $_style2vols($tf) 0] -] break
1326	array set style [lindex [$dataobj components -style $comp] 0]
1327
1328
1329	# We have to parse the style attributes for a volume using this
1330	# transfer-function once. This sets up the initial isomarkers for the
1331	# transfer function. The user may add/delete markers, so we have to
1332	# maintain a list of markers for each transfer-function. We use the one
1333	# of the volumes (the first in the list) using the transfer-function as a
1334	# reference.
1335	#
1336	# FIXME: The current way we generate transfer-function names completely
1337	# ignores the -markers option. The problem is that we are forced
1338	# to compute the name from an increasing complex set of values:
1339	# color, levels, marker, opacity. I think the cow's out of the
1340	# barn on this one.
1341
1342	if { ![info exists _isomarkers($tf)] } {
1343	# Have to defer creation of isomarkers until we have data limits
1344	if { [info exists style(-markers)] } {
1345	ParseMarkersOption $tf $style(-markers)
1346	} else {
1347	ParseLevelsOption $tf $style(-levels)
1348	}
1349	}
1350	if {$style(-color) == "rainbow"} {
1351	set style(-color) "white:yellow:green:cyan:blue:magenta"
1352	}
1353	set clist [split $style(-color) :]
1354	set cmap "0.0 [Color2RGB white] "
1355	for {set i 0} {$i < [llength $clist]} {incr i} {
1356	set x [expr {double($i+1)/([llength $clist]+1)}]
1357	set color [lindex $clist $i]
1358	append cmap "$x [Color2RGB $color] "
1359	}
1360	append cmap "1.0 [Color2RGB $color]"
1361
1362	set tag $this-$tf
1363	if { ![info exists _settings($tag-opacity)] } {
1364	set _settings($tag-opacity) $style(-opacity)
1365	}
1366	set max $_settings($tag-opacity)
1367
1368	set isovalues {}
1369	foreach m $_isomarkers($tf) {
1370	lappend isovalues [$m relval]
1371	}
1372	# Sort the isovalues
1373	set isovalues [lsort -real $isovalues]
1374
1375	if { ![info exists _settings($tag-thickness)]} {
1376	set _settings($tag-thickness) 0.05
1377	}
1378	set delta $_settings($tag-thickness)
1379
1380	set first [lindex $isovalues 0]
1381	set last [lindex $isovalues end]
1382	set wmap ""
1383	if { $first == "" \|\| $first != 0.0 } {
1384	lappend wmap 0.0 0.0
1385	}
1386	foreach x $isovalues {
1387	set x1 [expr {$x-$delta-0.00001}]
1388	set x2 [expr {$x-$delta}]
1389	set x3 [expr {$x+$delta}]
1390	set x4 [expr {$x+$delta+0.00001}]
1391	if { $x1 < 0.0 } {
1392	set x1 0.0
1393	} elseif { $x1 > 1.0 } {
1394	set x1 1.0
1395	}
1396	if { $x2 < 0.0 } {
1397	set x2 0.0
1398	} elseif { $x2 > 1.0 } {
1399	set x2 1.0
1400	}
1401	if { $x3 < 0.0 } {
1402	set x3 0.0
1403	} elseif { $x3 > 1.0 } {
1404	set x3 1.0
1405	}
1406	if { $x4 < 0.0 } {
1407	set x4 0.0
1408	} elseif { $x4 > 1.0 } {
1409	set x4 1.0
1410	}
1411	# add spikes in the middle
1412	lappend wmap $x1 0.0
1413	lappend wmap $x2 $max
1414	lappend wmap $x3 $max
1415	lappend wmap $x4 0.0
1416	}
1417	if { $last == "" \|\| $last != 1.0 } {
1418	lappend wmap 1.0 0.0
1419	}
1420	SendCmd "transfunc define $tf { $cmap } { $wmap }"
1421	}
1422
1423	# ----------------------------------------------------------------------
1424	# CONFIGURATION OPTION: -plotbackground
1425	# ----------------------------------------------------------------------
1426	itcl::configbody Rappture::NanovisViewer::plotbackground {
1427	if { [isconnected] } {
1428	foreach {r g b} [Color2RGB $itk_option(-plotbackground)] break
1429	#fix this!
1430	#SendCmd "color background $r $g $b"
1431	}
1432	}
1433
1434	# ----------------------------------------------------------------------
1435	# CONFIGURATION OPTION: -plotforeground
1436	# ----------------------------------------------------------------------
1437	itcl::configbody Rappture::NanovisViewer::plotforeground {
1438	if { [isconnected] } {
1439	foreach {r g b} [Color2RGB $itk_option(-plotforeground)] break
1440	#fix this!
1441	#SendCmd "color background $r $g $b"
1442	}
1443	}
1444
1445	# ----------------------------------------------------------------------
1446	# CONFIGURATION OPTION: -plotoutline
1447	# ----------------------------------------------------------------------
1448	itcl::configbody Rappture::NanovisViewer::plotoutline {
1449	# Must check if we are connected because this routine is called from the
1450	# class body when the -plotoutline itk_option is defined. At that point
1451	# the NanovisViewer class constructor hasn't been called, so we can't
1452	# start sending commands to visualization server.
1453	if { [isconnected] } {
1454	if {"" == $itk_option(-plotoutline)} {
1455	SendCmd "volume outline state off"
1456	} else {
1457	SendCmd "volume outline state on"
1458	SendCmd "volume outline color [Color2RGB $itk_option(-plotoutline)]"
1459	}
1460	}
1461	}
1462
1463	#
1464	# The -levels option takes a single value that represents the number
1465	# of evenly distributed markers based on the current data range. Each
1466	# marker is a relative value from 0.0 to 1.0.
1467	#
1468	itcl::body Rappture::NanovisViewer::ParseLevelsOption { tf levels } {
1469	set c $itk_component(legend)
1470	regsub -all "," $levels " " levels
1471	if {[string is int $levels]} {
1472	for {set i 1} { $i <= $levels } {incr i} {
1473	set x [expr {double($i)/($levels+1)}]
1474	set m [Rappture::IsoMarker \#auto $c $this $tf]
1475	$m relval $x
1476	lappend _isomarkers($tf) $m
1477	}
1478	} else {
1479	foreach x $levels {
1480	set m [Rappture::IsoMarker \#auto $c $this $tf]
1481	$m relval $x
1482	lappend _isomarkers($tf) $m
1483	}
1484	}
1485	}
1486
1487	#
1488	# The -markers option takes a list of zero or more values (the values
1489	# may be separated either by spaces or commas) that have the following
1490	# format:
1491	#
1492	# N% Percent of current total data range. Converted to
1493	# to a relative value between 0.0 and 1.0.
1494	# N Absolute value of marker. If the marker is outside of
1495	# the current range, it will be displayed on the outer
1496	# edge of the legends, but it range it represents will
1497	# not be seen.
1498	#
1499	itcl::body Rappture::NanovisViewer::ParseMarkersOption { tf markers } {
1500	set c $itk_component(legend)
1501	regsub -all "," $markers " " markers
1502	foreach marker $markers {
1503	set n [scan $marker "%g%s" value suffix]
1504	if { $n == 2 && $suffix == "%" } {
1505	# ${n}% : Set relative value.
1506	set value [expr {$value * 0.01}]
1507	set m [Rappture::IsoMarker \#auto $c $this $tf]
1508	$m relval $value
1509	lappend _isomarkers($tf) $m
1510	} else {
1511	# ${n} : Set absolute value.
1512	set m [Rappture::IsoMarker \#auto $c $this $tf]
1513	$m absval $value
1514	lappend _isomarkers($tf) $m
1515	}
1516	}
1517	}
1518
1519	# ----------------------------------------------------------------------
1520	# USAGE: UndateTransferFuncs
1521	# ----------------------------------------------------------------------
1522	itcl::body Rappture::NanovisViewer::updatetransferfuncs {} {
1523	$_dispatcher event -idle !send_transfunc
1524	}
1525
1526	itcl::body Rappture::NanovisViewer::AddIsoMarker { x y } {
1527	if { $_first == "" } {
1528	error "active transfer function isn't set"
1529	}
1530	set vol [lindex [CurrentVolumes] 0]
1531	set tf $_vol2style($vol)
1532	set c $itk_component(legend)
1533	set m [Rappture::IsoMarker \#auto $c $this $tf]
1534	set w [winfo width $c]
1535	$m relval [expr {double($x-10)/($w-20)}]
1536	lappend _isomarkers($tf) $m
1537	updatetransferfuncs
1538	return 1
1539	}
1540
1541	itcl::body Rappture::NanovisViewer::rmdupmarker { marker x } {
1542	set tf [$marker transferfunc]
1543	set bool 0
1544	if { [info exists _isomarkers($tf)] } {
1545	set list {}
1546	set marker [namespace tail $marker]
1547	foreach m $_isomarkers($tf) {
1548	set sx [$m screenpos]
1549	if { $m != $marker } {
1550	if { $x >= ($sx-3) && $x <= ($sx+3) } {
1551	$marker relval [$m relval]
1552	itcl::delete object $m
1553	bell
1554	set bool 1
1555	continue
1556	}
1557	}
1558	lappend list $m
1559	}
1560	set _isomarkers($tf) $list
1561	updatetransferfuncs
1562	}
1563	return $bool
1564	}
1565
1566	itcl::body Rappture::NanovisViewer::overmarker { marker x } {
1567	set tf [$marker transferfunc]
1568	if { [info exists _isomarkers($tf)] } {
1569	set marker [namespace tail $marker]
1570	foreach m $_isomarkers($tf) {
1571	set sx [$m screenpos]
1572	if { $m != $marker } {
1573	set bool [expr { $x >= ($sx-3) && $x <= ($sx+3) }]
1574	$m activate $bool
1575	}
1576	}
1577	}
1578	return ""
1579	}
1580
1581	itcl::body Rappture::NanovisViewer::limits { tf } {
1582	set _limits(min) 0.0
1583	set _limits(max) 1.0
1584	if { ![info exists _style2vols($tf)] } {
1585	return [array get _limits]
1586	}
1587	set min ""; set max ""
1588	foreach vol $_style2vols($tf) {
1589	if { ![info exists _serverVols($vol)] } {
1590	continue
1591	}
1592	if { ![info exists _limits($vol-min)] } {
1593	continue
1594	}
1595	if { $min == "" \|\| $min > $_limits($vol-min) } {
1596	set min $_limits($vol-min)
1597	}
1598	if { $max == "" \|\| $max < $_limits($vol-max) } {
1599	set max $_limits($vol-max)
1600	}
1601	}
1602	if { $min != "" } {
1603	set _limits(min) $min
1604	}
1605	if { $max != "" } {
1606	set _limits(max) $max
1607	}
1608	return [array get _limits]
1609	}
1610
1611
1612	itcl::body Rappture::NanovisViewer::BuildViewTab {} {
1613	foreach { key value } {
1614	grid 0
1615	axes 1
1616	outline 1
1617	volume 1
1618	legend 1
1619	particles 1
1620	lic 1
1621	} {
1622	set _settings($this-$key) $value
1623	}
1624
1625	set fg [option get $itk_component(hull) font Font]
1626	#set bfg [option get $itk_component(hull) boldFont Font]
1627
1628	set inner [$itk_component(main) insert end \
1629	-title "View Settings" \
1630	-icon [Rappture::icon wrench]]
1631	$inner configure -borderwidth 4
1632
1633	set ::Rappture::NanovisViewer::_settings($this-isosurface) 0
1634	checkbutton $inner.isosurface \
1635	-text "Isosurface shading" \
1636	-variable [itcl::scope _settings($this-isosurface)] \
1637	-command [itcl::code $this FixSettings isosurface] \
1638	-font "Arial 9"
1639
1640	checkbutton $inner.axes \
1641	-text "Axes" \
1642	-variable [itcl::scope _settings($this-axes)] \
1643	-command [itcl::code $this FixSettings axes] \
1644	-font "Arial 9"
1645
1646	checkbutton $inner.grid \
1647	-text "Grid" \
1648	-variable [itcl::scope _settings($this-grid)] \
1649	-command [itcl::code $this FixSettings grid] \
1650	-font "Arial 9"
1651
1652	checkbutton $inner.outline \
1653	-text "Outline" \
1654	-variable [itcl::scope _settings($this-outline)] \
1655	-command [itcl::code $this FixSettings outline] \
1656	-font "Arial 9"
1657
1658	checkbutton $inner.legend \
1659	-text "Legend" \
1660	-variable [itcl::scope _settings($this-legend)] \
1661	-command [itcl::code $this FixSettings legend] \
1662	-font "Arial 9"
1663
1664	checkbutton $inner.volume \
1665	-text "Volume" \
1666	-variable [itcl::scope _settings($this-volume)] \
1667	-command [itcl::code $this FixSettings volume] \
1668	-font "Arial 9"
1669
1670	blt::table $inner \
1671	0,0 $inner.axes -columnspan 2 -anchor w \
1672	1,0 $inner.grid -columnspan 2 -anchor w \
1673	2,0 $inner.outline -columnspan 2 -anchor w \
1674	3,0 $inner.volume -columnspan 2 -anchor w \
1675	4,0 $inner.legend -columnspan 2 -anchor w
1676
1677	if 0 {
1678	bind $inner <Map> [itcl::code $this GetVolumeInfo $inner]
1679	}
1680	blt::table configure $inner r* -resize none
1681	blt::table configure $inner r5 -resize expand
1682	}
1683
1684	itcl::body Rappture::NanovisViewer::BuildVolumeTab {} {
1685	foreach { key value } {
1686	light 40
1687	transp 50
1688	opacity 100
1689	thickness 350
1690	} {
1691	set _settings($this-$key) $value
1692	}
1693
1694	set inner [$itk_component(main) insert end \
1695	-title "Volume Settings" \
1696	-icon [Rappture::icon volume-on]]
1697	$inner configure -borderwidth 4
1698
1699	set fg [option get $itk_component(hull) font Font]
1700	#set bfg [option get $itk_component(hull) boldFont Font]
1701
1702	checkbutton $inner.vol -text "Show volume" -font $fg \
1703	-variable [itcl::scope _settings($this-volume)] \
1704	-command [itcl::code $this FixSettings volume]
1705	label $inner.shading -text "Shading:" -font $fg
1706
1707	label $inner.dim -text "Dim" -font $fg
1708	::scale $inner.light -from 0 -to 100 -orient horizontal \
1709	-variable [itcl::scope _settings($this-light)] \
1710	-width 10 \
1711	-showvalue off -command [itcl::code $this FixSettings light]
1712	label $inner.bright -text "Bright" -font $fg
1713
1714	label $inner.fog -text "Fog" -font $fg
1715	::scale $inner.transp -from 0 -to 100 -orient horizontal \
1716	-variable [itcl::scope _settings($this-transp)] \
1717	-width 10 \
1718	-showvalue off -command [itcl::code $this FixSettings transp]
1719	label $inner.plastic -text "Plastic" -font $fg
1720
1721	label $inner.clear -text "Clear" -font $fg
1722	::scale $inner.opacity -from 0 -to 100 -orient horizontal \
1723	-variable [itcl::scope _settings($this-opacity)] \
1724	-width 10 \
1725	-showvalue off -command [itcl::code $this FixSettings opacity]
1726	label $inner.opaque -text "Opaque" -font $fg
1727
1728	label $inner.thin -text "Thin" -font $fg
1729	::scale $inner.thickness -from 0 -to 1000 -orient horizontal \
1730	-variable [itcl::scope _settings($this-thickness)] \
1731	-width 10 \
1732	-showvalue off -command [itcl::code $this FixSettings thickness]
1733	label $inner.thick -text "Thick" -font $fg
1734
1735	blt::table $inner \
1736	0,0 $inner.vol -columnspan 4 -anchor w -pady 2 \
1737	1,0 $inner.shading -columnspan 4 -anchor w -pady {10 2} \
1738	2,0 $inner.dim -anchor e -pady 2 \
1739	2,1 $inner.light -columnspan 2 -pady 2 -fill x \
1740	2,3 $inner.bright -anchor w -pady 2 \
1741	3,0 $inner.fog -anchor e -pady 2 \
1742	3,1 $inner.transp -columnspan 2 -pady 2 -fill x \
1743	3,3 $inner.plastic -anchor w -pady 2 \
1744	4,0 $inner.clear -anchor e -pady 2 \
1745	4,1 $inner.opacity -columnspan 2 -pady 2 -fill x\
1746	4,3 $inner.opaque -anchor w -pady 2 \
1747	5,0 $inner.thin -anchor e -pady 2 \
1748	5,1 $inner.thickness -columnspan 2 -pady 2 -fill x\
1749	5,3 $inner.thick -anchor w -pady 2
1750
1751	blt::table configure $inner c0 c1 c3 r* -resize none
1752	blt::table configure $inner r6 -resize expand
1753	}
1754
1755	itcl::body Rappture::NanovisViewer::BuildCutplanesTab {} {
1756	set inner [$itk_component(main) insert end \
1757	-title "Cutplane Settings" \
1758	-icon [Rappture::icon cutbutton]]
1759	$inner configure -borderwidth 4
1760
1761	# X-value slicer...
1762	itk_component add xCutButton {
1763	Rappture::PushButton $inner.xbutton \
1764	-onimage [Rappture::icon x-cutplane] \
1765	-offimage [Rappture::icon x-cutplane] \
1766	-command [itcl::code $this FixSettings xcutplane] \
1767	-variable [itcl::scope _settings($this-xcutplane)]
1768	}
1769	Rappture::Tooltip::for $itk_component(xCutButton) \
1770	"Toggle the X cut plane on/off"
1771
1772	itk_component add xCutScale {
1773	::scale $inner.xval -from 100 -to 0 \
1774	-width 10 -orient vertical -showvalue off \
1775	-borderwidth 1 -highlightthickness 0 \
1776	-command [itcl::code $this Slice move x] \
1777	-variable [itcl::scope _settings($this-xcutposition)]
1778	} {
1779	usual
1780	ignore -borderwidth -highlightthickness
1781	}
1782	# Set the default cutplane value before disabling the scale.
1783	$itk_component(xCutScale) set 50
1784	$itk_component(xCutScale) configure -state disabled
1785	Rappture::Tooltip::for $itk_component(xCutScale) \
1786	"@[itcl::code $this SlicerTip x]"
1787
1788	# Y-value slicer...
1789	itk_component add yCutButton {
1790	Rappture::PushButton $inner.ybutton \
1791	-onimage [Rappture::icon y-cutplane] \
1792	-offimage [Rappture::icon y-cutplane] \
1793	-command [itcl::code $this FixSettings ycutplane] \
1794	-variable [itcl::scope _settings($this-ycutplane)]
1795	}
1796	Rappture::Tooltip::for $itk_component(yCutButton) \
1797	"Toggle the Y cut plane on/off"
1798
1799	itk_component add yCutScale {
1800	::scale $inner.yval -from 100 -to 0 \
1801	-width 10 -orient vertical -showvalue off \
1802	-borderwidth 1 -highlightthickness 0 \
1803	-command [itcl::code $this Slice move y] \
1804	-variable [itcl::scope _settings($this-ycutposition)]
1805	} {
1806	usual
1807	ignore -borderwidth -highlightthickness
1808	}
1809	Rappture::Tooltip::for $itk_component(yCutScale) \
1810	"@[itcl::code $this SlicerTip y]"
1811	# Set the default cutplane value before disabling the scale.
1812	$itk_component(yCutScale) set 50
1813	$itk_component(yCutScale) configure -state disabled
1814
1815	# Z-value slicer...
1816	itk_component add zCutButton {
1817	Rappture::PushButton $inner.zbutton \
1818	-onimage [Rappture::icon z-cutplane] \
1819	-offimage [Rappture::icon z-cutplane] \
1820	-command [itcl::code $this FixSettings zcutplane] \
1821	-variable [itcl::scope _settings($this-zcutplane)]
1822	}
1823	Rappture::Tooltip::for $itk_component(zCutButton) \
1824	"Toggle the Z cut plane on/off"
1825
1826	itk_component add zCutScale {
1827	::scale $inner.zval -from 100 -to 0 \
1828	-width 10 -orient vertical -showvalue off \
1829	-borderwidth 1 -highlightthickness 0 \
1830	-command [itcl::code $this Slice move z] \
1831	-variable [itcl::scope _settings($this-zcutposition)]
1832	} {
1833	usual
1834	ignore -borderwidth -highlightthickness
1835	}
1836	$itk_component(zCutScale) set 50
1837	$itk_component(zCutScale) configure -state disabled
1838	#$itk_component(zCutScale) configure -state disabled
1839	Rappture::Tooltip::for $itk_component(zCutScale) \
1840	"@[itcl::code $this SlicerTip z]"
1841
1842	blt::table $inner \
1843	1,1 $itk_component(xCutButton) \
1844	1,2 $itk_component(yCutButton) \
1845	1,3 $itk_component(zCutButton) \
1846	0,1 $itk_component(xCutScale) \
1847	0,2 $itk_component(yCutScale) \
1848	0,3 $itk_component(zCutScale)
1849
1850	blt::table configure $inner r0 r1 c* -resize none
1851	blt::table configure $inner r2 c4 -resize expand
1852	blt::table configure $inner c0 -width 2
1853	blt::table configure $inner c1 c2 c3 -padx 2
1854	}
1855
1856	itcl::body Rappture::NanovisViewer::BuildCameraTab {} {
1857	set inner [$itk_component(main) insert end \
1858	-title "Camera Settings" \
1859	-icon [Rappture::icon camera]]
1860	$inner configure -borderwidth 4
1861
1862	set labels { phi theta psi pan-x pan-y zoom }
1863	set row 0
1864	foreach tag $labels {
1865	label $inner.${tag}label -text $tag -font "Arial 9"
1866	entry $inner.${tag} -font "Arial 9" -bg white \
1867	-textvariable [itcl::scope _settings($this-$tag)]
1868	bind $inner.${tag} <KeyPress-Return> \
1869	[itcl::code $this camera set ${tag}]
1870	blt::table $inner \
1871	$row,0 $inner.${tag}label -anchor e -pady 2 \
1872	$row,1 $inner.${tag} -anchor w -pady 2
1873	blt::table configure $inner r$row -resize none
1874	incr row
1875	}
1876
1877	itk_component add orientation {
1878	Rappture::Combobox $inner.orientation -width 10 -editable no
1879	}
1880	$inner.orientation choices insert end \
1881	"front" "0 90 0" \
1882	"back" "180 90 0" \
1883	"top" "0 0 0" \
1884	"bottom" "0 180 0" \
1885	"left" "270 90 0 " \
1886	"right" "90 90 0" \
1887	"default" "45 45 0"
1888	$itk_component(orientation) value "default"
1889	bind $inner.orientation <<Value>> [itcl::code $this SetOrientation]
1890
1891	blt::table configure $inner c0 c1 -resize none
1892	blt::table configure $inner c2 -resize expand
1893	blt::table configure $inner r$row -resize expand
1894	}
1895
1896
1897	# ----------------------------------------------------------------------
1898	# USAGE: Slice move x\|y\|z <newval>
1899	#
1900	# Called automatically when the user drags the slider to move the
1901	# cut plane that slices 3D data. Gets the current value from the
1902	# slider and moves the cut plane to the appropriate point in the
1903	# data set.
1904	# ----------------------------------------------------------------------
1905	itcl::body Rappture::NanovisViewer::Slice {option args} {
1906	switch -- $option {
1907	move {
1908	if {[llength $args] != 2} {
1909	error "wrong # args: should be \"Slice move x\|y\|z newval\""
1910	}
1911	set axis [lindex $args 0]
1912	set newval [lindex $args 1]
1913
1914	set newpos [expr {0.01*$newval}]
1915	set vols [CurrentVolumes -cutplanes]
1916	set vol [lindex $vols 0]
1917	SendCmd "cutplane position $newpos $axis $vol"
1918	}
1919	default {
1920	error "bad option \"$option\": should be axis, move, or volume"
1921	}
1922	}
1923	}
1924
1925	# ----------------------------------------------------------------------
1926	# USAGE: SlicerTip <axis>
1927	#
1928	# Used internally to generate a tooltip for the x/y/z slicer controls.
1929	# Returns a message that includes the current slicer value.
1930	# ----------------------------------------------------------------------
1931	itcl::body Rappture::NanovisViewer::SlicerTip {axis} {
1932	set val [$itk_component(${axis}CutScale) get]
1933	# set val [expr {0.01*($val-50)
1934	# *($_limits(${axis}max)-$_limits(${axis}min))
1935	# + 0.5*($_limits(${axis}max)+$_limits(${axis}min))}]
1936	return "Move the [string toupper $axis] cut plane.\nCurrently: $axis = $val%"
1937	}
1938
1939
1940	itcl::body Rappture::NanovisViewer::DoResize {} {
1941	SendCmd "screen $_width $_height"
1942	set _resizePending 0
1943	}
1944
1945	itcl::body Rappture::NanovisViewer::EventuallyResize { w h } {
1946	set _width $w
1947	set _height $h
1948	if { !$_resizePending } {
1949	$_dispatcher event -idle !resize
1950	set _resizePending 1
1951	}
1952	}
1953
1954	itcl::body Rappture::NanovisViewer::EventuallyResizeLegend {} {
1955	if { !$_resizeLegendPending } {
1956	$_dispatcher event -idle !legend
1957	set _resizeLegendPending 1
1958	}
1959	}
1960
1961
1962	# camera --
1963	#
1964	itcl::body Rappture::NanovisViewer::camera {option args} {
1965	switch -- $option {
1966	"show" {
1967	puts [array get _view]
1968	}
1969	"set" {
1970	set who [lindex $args 0]
1971	set x $_settings($this-$who)
1972	set code [catch { string is double $x } result]
1973	if { $code != 0 \|\| !$result } {
1974	set _settings($this-$who) $_view($who)
1975	return
1976	}
1977	switch -- $who {
1978	"pan-x" - "pan-y" {
1979	set _view($who) $_settings($this-$who)
1980	PanCamera
1981	}
1982	"phi" - "theta" - "psi" {
1983	set _view($who) $_settings($this-$who)
1984	set xyz [Euler2XYZ $_view(theta) $_view(phi) $_view(psi)]
1985	SendCmd "camera angle $xyz"
1986	}
1987	"zoom" {
1988	set _view($who) $_settings($this-$who)
1989	SendCmd "camera zoom $_view(zoom)"
1990	}
1991	}
1992	}
1993	}
1994	}
1995
1996	itcl::body Rappture::NanovisViewer::GetVolumeInfo { w } {
1997	set flowobj ""
1998	foreach key [array names _obj2flow] {
1999	set flowobj $_obj2flow($key)
2000	break
2001	}
2002	if { $flowobj == "" } {
2003	return
2004	}
2005	if { [winfo exists $w.frame] } {
2006	destroy $w.frame
2007	}
2008	set inner [frame $w.frame]
2009	blt::table $w \
2010	5,0 $inner -fill both -columnspan 2 -anchor nw
2011	array set hints [$dataobj hints]
2012
2013	label $inner.volumes -text "Volumes" -font "Arial 9 bold"
2014	blt::table $inner \
2015	1,0 $inner.volumes -anchor w \
2016	blt::table configure $inner c0 c1 -resize none
2017	blt::table configure $inner c2 -resize expand
2018
2019	set row 3
2020	set volumes [get]
2021	if { [llength $volumes] > 0 } {
2022	blt::table $inner $row,0 $inner.volumes -anchor w
2023	incr row
2024	}
2025	foreach vol $volumes {
2026	array unset info
2027	array set info $vol
2028	set name $info(name)
2029	if { ![info exists _settings($this-volume-$name)] } {
2030	set _settings($this-volume-$name) $info(hide)
2031	}
2032	checkbutton $inner.vol$row -text $info(label) \
2033	-variable [itcl::scope _settings($this-volume-$name)] \
2034	-onvalue 0 -offvalue 1 \
2035	-command [itcl::code $this volume $key $name] \
2036	-font "Arial 9"
2037	Rappture::Tooltip::for $inner.vol$row $info(description)
2038	blt::table $inner $row,0 $inner.vol$row -anchor w
2039	if { !$_settings($this-volume-$name) } {
2040	$inner.vol$row select
2041	}
2042	incr row
2043	}
2044	blt::table configure $inner r* -resize none
2045	blt::table configure $inner r$row -resize expand
2046	blt::table configure $inner c3 -resize expand
2047	event generate [winfo parent [winfo parent $w]] <Configure>
2048	}
2049
2050	itcl::body Rappture::NanovisViewer::volume { tag name } {
2051	set bool $_settings($this-volume-$name)
2052	SendCmd "volume statue $bool $name"
2053	}
2054
2055
2056	itcl::body Rappture::NanovisViewer::SetOrientation {} {
2057	set angles [$itk_component(orientation) value]
2058	foreach name { theta phi psi } angle $angles {
2059	set _view($name) $angle
2060	}
2061	set xyz [Euler2XYZ $_view(theta) $_view(phi) $_view(psi)]
2062	SendCmd "camera angle $xyz"
2063	}

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

Download in other formats: