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
|
package require vtk
package require vtkinteraction
package require vtktesting
# Create fake data
#
vtkSphereSource ss
vtkPolyDataMapper mapper
mapper SetInput [ss GetOutput]
vtkActor actor
actor SetMapper mapper
# Create the RenderWindow, Renderer and both Actors
#
vtkRenderer ren1
vtkRenderWindow renWin
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
ren1 AddActor actor
ren1 SetBackground 0.1 0.2 0.4
renWin SetSize 300 300
iren Initialize
renWin Render
vtkTextWidget widget
widget SetInteractor iren
[widget GetTextActor] SetInput "This is a test"
widget On
# Add the actors to the renderer, set the background and size
#
ren1 AddActor actor
ren1 SetBackground .1 .2 .4
iren Initialize
renWin Render
# render the image
#
iren AddObserver UserEvent {wm deiconify .vtkInteract}
widget AddObserver ActivateEvent {wm deiconify .vtkInteract}
# prevent the tk window from showing up then start the event loop
wm withdraw .
|
