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
|
package require vtk
package require vtkinteraction
# Lets create a data set.
vtkImageData data
data SetExtent 0 31 0 31 0 31
data SetScalarType 10 [data GetInformation]
# First the data array:
vtkImageGaussianSource gauss
gauss SetWholeExtent 0 30 0 30 0 30
gauss SetCenter 18 12 20
gauss SetMaximum 1.0
gauss SetStandardDeviation 10.0
gauss Update
set a [[[gauss GetOutput] GetPointData] GetScalars]
$a SetName "Gauss"
[data GetCellData] SetScalars $a
gauss Delete
# Now the material array:
vtkImageEllipsoidSource ellipse
ellipse SetWholeExtent 0 30 0 30 0 30
ellipse SetCenter 11 12 13
ellipse SetRadius 5 9 13
ellipse SetInValue 1
ellipse SetOutValue 0
ellipse SetOutputScalarTypeToInt
ellipse Update
set m [[[ellipse GetOutput] GetPointData] GetScalars]
$m SetName "Material"
[data GetCellData] AddArray $m
ellipse Delete
vtkCutMaterial cut
cut SetInputData data
cut SetMaterialArrayName "Material"
cut SetMaterial 1
cut SetArrayName "Gauss"
cut SetUpVector 1 0 0
cut Update
vtkPolyDataMapper mapper2
mapper2 SetInputConnection [cut GetOutputPort]
mapper2 SetScalarRange 0 1
#apper2 SetScalarModeToUseCellFieldData
#apper2 SetColorModeToMapScalars
#apper2 ColorByArrayComponent [vtkDataSetAttributes GhostArrayName] 0
vtkActor actor2
actor2 SetMapper mapper2
actor2 SetPosition 1.5 0 0
vtkRenderer ren
ren AddActor actor2
vtkRenderWindow renWin
renWin AddRenderer ren
set p [cut GetCenterPoint]
set n [cut GetNormal]
set cam [ren GetActiveCamera]
eval $cam SetFocalPoint $p
eval $cam SetViewUp [cut GetUpVector]
$cam SetPosition [expr [lindex $n 0] + [lindex $p 0]] \
[expr [lindex $n 1] + [lindex $p 1]] \
[expr [lindex $n 2] + [lindex $p 2]]
ren ResetCamera
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
iren Initialize
iren AddObserver UserEvent {wm deiconify .vtkInteract}
wm withdraw .
|
