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
|
#
# display text over an image
#
package require vtk
package require vtkinteraction
package require vtktesting
vtkImageEllipsoidSource ellipse
vtkImageMapper mapImage
mapImage SetInputConnection [ellipse GetOutputPort]
mapImage SetColorWindow 255
mapImage SetColorLevel 127.5
vtkActor2D img
img SetMapper mapImage
vtkTextMapper mapText
mapText SetInput "Text Overlay"
[mapText GetTextProperty] SetFontSize 15
[mapText GetTextProperty] SetColor 0 1 1
[mapText GetTextProperty] BoldOn
[mapText GetTextProperty] ShadowOn
vtkActor2D txt
txt SetMapper mapText
txt SetPosition 138 128
vtkRenderer ren1
ren1 AddActor2D img
ren1 AddActor2D txt
vtkRenderWindow renWin
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
iren AddObserver UserEvent {wm deiconify .vtkInteract}
renWin Render
iren Initialize
wm withdraw .
|
