1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
package require vtk
# Simple volume rendering example.
vtkSLCReader reader
reader SetFileName "$VTK_DATA_ROOT/Data/sphere.slc"
reader Update
# Create transfer functions for opacity and color
vtkPiecewiseFunction opacityTransferFunction
opacityTransferFunction AddPoint 20 0.0
opacityTransferFunction AddPoint 255 1.0
vtkColorTransferFunction colorTransferFunction
colorTransferFunction AddHSVPoint 0.0 0.01 1.0 1.0
colorTransferFunction AddHSVPoint 127.5 0.50 1.0 1.0
colorTransferFunction AddHSVPoint 255.0 0.99 1.0 1.0
colorTransferFunction SetColorSpaceToHSV
# Create properties, mappers, volume actors, and ray cast function
vtkVolumeProperty volumeProperty
volumeProperty SetColor colorTransferFunction
volumeProperty SetScalarOpacity opacityTransferFunction
volumeProperty SetInterpolationTypeToLinear
vtkVolumeTextureMapper2D volumeMapper
volumeMapper SetInputConnection [reader GetOutputPort]
vtkSphereSource sphereSource
sphereSource SetCenter 25 25 25
sphereSource SetRadius 30
sphereSource SetThetaResolution 15
sphereSource SetPhiResolution 15
vtkPolyDataMapper geoMapper
geoMapper SetInputConnection [sphereSource GetOutputPort]
vtkLODProp3D lod
set geoID [lod AddLOD geoMapper 0.0]
set volID [lod AddLOD volumeMapper volumeProperty 0.0]
vtkProperty property
property SetColor 1 0 0
lod SetLODProperty $geoID property
# Okay now the graphics stuff
vtkRenderer ren1
vtkRenderWindow renWin
renWin AddRenderer ren1
renWin SetSize 256 256
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
[ren1 GetCullers] InitTraversal
set culler [[ren1 GetCullers] GetNextItem]
$culler SetSortingStyleToBackToFront
ren1 AddViewProp lod
# render a few times
renWin Render
renWin Render
renWin Render
# disable the geometry and render
lod DisableLOD $geoID
renWin Render
# disable the volume and render
lod EnableLOD $geoID
lod DisableLOD $volID
renWin Render
# chose the geometry to render
lod EnableLOD $volID
lod AutomaticLODSelectionOff
lod SetSelectedLODID $geoID
renWin Render
# choose the volume
lod SetSelectedLODID $volID
renWin Render
# this should be the volID - remove it
set id [lod GetLastRenderedLODID]
lod RemoveLOD $id
lod AutomaticLODSelectionOn
renWin Render
wm withdraw .
iren Initialize
|
