You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
1.6 KiB
65 lines
1.6 KiB
2 years ago
|
# This example demonstrates the use of 2D text.
|
||
|
|
|
||
|
|
#
|
||
|
|
# 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 a sphere source, mapper, and actor
|
||
|
|
vtkSphereSource sphere
|
||
|
|
|
||
|
|
vtkPolyDataMapper sphereMapper
|
||
|
|
sphereMapper SetInputConnection [sphere GetOutputPort]
|
||
|
|
sphereMapper GlobalImmediateModeRenderingOn
|
||
|
|
vtkLODActor sphereActor
|
||
|
|
sphereActor SetMapper sphereMapper
|
||
|
|
|
||
|
|
# Create a text mapper.
|
||
|
|
vtkTextMapper textMapper
|
||
|
|
textMapper SetInput "This is a sphere"
|
||
|
|
|
||
|
|
# Set the text, font, justification, and text
|
||
|
|
# properties (bold, italics, etc.).
|
||
|
|
|
||
|
|
set tprop [textMapper GetTextProperty]
|
||
|
|
$tprop SetFontSize 18
|
||
|
|
$tprop SetFontFamilyToArial
|
||
|
|
$tprop SetJustificationToCentered
|
||
|
|
$tprop BoldOn
|
||
|
|
$tprop ItalicOn
|
||
|
|
$tprop ShadowOn
|
||
|
|
$tprop SetColor 0 0 1
|
||
|
|
|
||
|
|
# Create a scaled text actor. Set the position of the text.
|
||
|
|
vtkScaledTextActor textActor
|
||
|
|
textActor SetMapper textMapper
|
||
|
|
textActor SetDisplayPosition 90 50
|
||
|
|
|
||
|
|
# Create the Renderer, RenderWindow, RenderWindowInteractor
|
||
|
|
#
|
||
|
|
vtkRenderer ren1
|
||
|
|
vtkRenderWindow renWin
|
||
|
|
renWin AddRenderer ren1
|
||
|
|
vtkRenderWindowInteractor iren
|
||
|
|
iren SetRenderWindow renWin
|
||
|
|
|
||
|
|
# Add the actors to the renderer; set the background and size; zoom in;
|
||
|
|
# and render.
|
||
|
|
#
|
||
|
|
ren1 AddActor2D textActor
|
||
|
|
ren1 AddActor sphereActor
|
||
|
|
|
||
|
|
ren1 SetBackground 1 1 1
|
||
|
|
renWin SetSize 250 125
|
||
|
|
ren1 ResetCamera
|
||
|
|
[ren1 GetActiveCamera] Zoom 1.5
|
||
|
|
renWin Render
|
||
|
|
|
||
|
|
# Set the user method (bound to key 'u')
|
||
|
|
iren AddObserver UserEvent {wm deiconify .vtkInteract}
|
||
|
|
|
||
|
|
# Withdraw the tk window
|
||
|
|
wm withdraw .
|