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
97
98
99
100
101
102
103
104
105
106
107
108
|
package require vtk
package require vtkinteraction
# Create renderer stuff
#
vtkRenderer ren1
vtkRenderWindow renWin
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
# Pipeline stuff
#
vtkSuperquadricSource torus
torus SetCenter 0.0 0.0 0.0
torus SetScale 1.0 1.0 1.0
torus SetPhiResolution 64
torus SetThetaResolution 64
torus SetPhiRoundness 1.0
torus SetThetaRoundness 1.0
torus SetThickness 0.5
torus SetSize 0.5
torus SetToroidal 1
# The quadric is made of strips, so pass it through a triangle filter as
# the curvature filter only operates on polys
vtkTriangleFilter tri
tri SetInputConnection [torus GetOutputPort]
# The quadric has nasty discontinuities from the way the edges are generated
# so let's pass it though a CleanPolyDataFilter and merge any points which
# are coincident, or very close
vtkCleanPolyData cleaner
cleaner SetInputConnection [tri GetOutputPort]
cleaner SetTolerance 0.005
vtkCurvatures curve1
curve1 SetInputConnection [cleaner GetOutputPort]
curve1 SetCurvatureTypeToGaussian
vtkCurvatures curve2
curve2 SetInputConnection [cleaner GetOutputPort]
curve2 SetCurvatureTypeToMean
vtkLookupTable lut1
lut1 SetNumberOfColors 256
lut1 SetHueRange 0.15 1.0
lut1 SetSaturationRange 1.0 1.0
lut1 SetValueRange 1.0 1.0
lut1 SetAlphaRange 1.0 1.0
lut1 SetRange -20 20
vtkLookupTable lut2
lut2 SetNumberOfColors 256
lut2 SetHueRange 0.15 1.0
lut2 SetSaturationRange 1.0 1.0
lut2 SetValueRange 1.0 1.0
lut2 SetAlphaRange 1.0 1.0
lut2 SetRange 0 4
vtkPolyDataMapper cmapper1
cmapper1 SetInputConnection [curve1 GetOutputPort]
cmapper1 SetLookupTable lut1
cmapper1 SetUseLookupTableScalarRange 1
vtkPolyDataMapper cmapper2
cmapper2 SetInputConnection [curve2 GetOutputPort]
cmapper2 SetLookupTable lut2
cmapper2 SetUseLookupTableScalarRange 1
vtkActor cActor1
cActor1 SetMapper cmapper1
cActor1 SetPosition -0.5 0.0 0.0
vtkActor cActor2
cActor2 SetMapper cmapper2
cActor2 SetPosition 0.5 0.0 0.0
# Add the actors to the renderer
#
ren1 AddActor cActor1
ren1 AddActor cActor2
ren1 SetBackground 0.5 0.5 0.5
renWin SetSize 300 200
vtkCamera camera
ren1 SetActiveCamera camera
camera SetPosition 0.0 2.0 2.1
camera SetFocalPoint 0.0 0.0 0.0
camera SetViewAngle 30
ren1 ResetCameraClippingRange
iren Initialize
# render the image
#
iren AddObserver UserEvent {wm deiconify .vtkInteract}
# prevent the tk window from showing up then start the event loop
wm withdraw .
renWin Render
|
