/usr/share/vtk/Annotation/Tcl/textOrigin.tcl is in vtk-examples 5.8.0-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # This example demonstrates the use of vtkVectorText and vtkFollower.
# vtkVectorText is used to create 3D annotation. vtkFollower is used to
# position the 3D text and to ensure that the text always faces the
# renderer's active camera (i.e., the text is always readable).
#
# First we include the VTK Tcl packages which will make available
# all of the vtk commands to Tcl
#
package require vtk
package require vtkinteraction
# Create the axes and the associated mapper and actor.
vtkAxes axes
axes SetOrigin 0 0 0
vtkPolyDataMapper axesMapper
axesMapper SetInputConnection [axes GetOutputPort]
vtkActor axesActor
axesActor SetMapper axesMapper
# Create the 3D text and the associated mapper and follower (a type of
# actor). Position the text so it is displayed over the origin of the axes.
vtkVectorText atext
atext SetText "Origin"
vtkPolyDataMapper textMapper
textMapper SetInputConnection [atext GetOutputPort]
vtkFollower textActor
textActor SetMapper textMapper
textActor SetScale 0.2 0.2 0.2
textActor AddPosition 0 -0.1 0
# Create the Renderer, RenderWindow, and RenderWindowInteractor.
vtkRenderer ren1
ren1 SetBackground 0.5 0.5 0.5
vtkRenderWindow renWin
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
vtkInteractorStyleTrackballCamera style
iren SetInteractorStyle style
# Add the actors to the renderer.
ren1 AddActor axesActor
ren1 AddActor textActor
# Zoom in closer.
ren1 ResetCamera
[ren1 GetActiveCamera] Zoom 1.6
# Reset the clipping range of the camera; set the camera of the follower;
# render.
ren1 ResetCameraClippingRange
textActor SetCamera [ren1 GetActiveCamera]
renWin Render
# Set the user method (bound to key 'u')
#
iren AddObserver UserEvent {wm deiconify .vtkInteract}
# Withdraw the default tk window.
wm withdraw .
|