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
|
package require vtk
package require vtkinteraction
# Create some random points, scalars, and vectors to glyph
#
vtkPolyData pd
vtkPoints pts
vtkFloatArray scalars
vtkFloatArray vectors
vectors SetNumberOfComponents 3
pd SetPoints pts
[pd GetPointData] SetScalars scalars
[pd GetPointData] SetVectors vectors
vtkMath math
set size 500
for {set i 0} {$i < 100} {incr i} {
pts InsertNextPoint [math Random 0 [expr $size - 1]] \
[math Random 0 [expr $size - 1]] 0.0
scalars InsertNextValue [math Random 0.0 5]
vectors InsertNextTuple3 [math Random -1 1] [math Random -1 1] 0.0
}
vtkGlyphSource2D gs
gs SetGlyphTypeToCircle
gs SetScale 20
gs FilledOff
gs CrossOn
vtkGlyphSource2D gs1
gs1 SetGlyphTypeToTriangle
gs1 SetScale 20
gs1 FilledOff
gs1 CrossOn
vtkGlyphSource2D gs2
gs2 SetGlyphTypeToSquare
gs2 SetScale 20
gs2 FilledOff
gs2 CrossOn
vtkGlyphSource2D gs3
gs3 SetGlyphTypeToDiamond
gs3 SetScale 20
gs3 FilledOff
gs3 CrossOn
vtkGlyphSource2D gs4
gs4 SetGlyphTypeToDiamond
gs4 SetScale 20
gs4 FilledOn
gs4 DashOn
gs4 CrossOff
vtkGlyphSource2D gs5
gs5 SetGlyphTypeToThickArrow
gs5 SetScale 20
gs5 FilledOn
gs5 CrossOff
# Create a table of glyphs
vtkGlyph2D glypher
glypher SetInput pd
glypher SetSource 0 [gs GetOutput]
glypher SetSource 1 [gs1 GetOutput]
glypher SetSource 2 [gs2 GetOutput]
glypher SetSource 3 [gs3 GetOutput]
glypher SetSource 4 [gs4 GetOutput]
glypher SetSource 5 [gs5 GetOutput]
glypher SetIndexModeToScalar
glypher SetRange 0 5
glypher SetScaleModeToDataScalingOff
vtkPolyDataMapper2D mapper
mapper SetInputConnection [glypher GetOutputPort]
mapper SetScalarRange 0 5
vtkActor2D glyphActor
glyphActor SetMapper mapper
# Create the RenderWindow, Renderer and both Actors
#
vtkRenderer ren1
vtkRenderWindow renWin
renWin SetMultiSamples 0
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
# Add the actors to the renderer, set the background and size
#
ren1 AddActor glyphActor
ren1 SetBackground 1 1 1
renWin SetSize $size $size
renWin Render
# render the image
#
iren AddObserver UserEvent {wm deiconify .vtkInteract}
iren Initialize
# prevent the tk window from showing up then start the event loop
wm withdraw .
|
