# This example demonstrates the use of multiline 2D text using
# vtkTextMappers.  It shows several justifications as well as single-line
# and multiple-line text inputs.

#
# First we include the VTK Tcl packages which will make available
# all of the vtk commands to Tcl
#
package require vtk
package require vtkinteraction

set font_size 14

# Create the text mappers and the associated Actor2Ds.

# The font and text properties (except justification) are the same for each
# single line mapper. Let's create a common text property object

vtkTextProperty singleLineTextProp
    singleLineTextProp SetFontSize $font_size
    singleLineTextProp SetFontFamilyToArial
    singleLineTextProp BoldOff
    singleLineTextProp ItalicOff
    singleLineTextProp ShadowOff

# The font and text properties (except justification) are the same for each
# multi line mapper. Let's create a common text property object

vtkTextProperty multiLineTextProp
    multiLineTextProp ShallowCopy singleLineTextProp
    multiLineTextProp BoldOn
    multiLineTextProp ItalicOn
    multiLineTextProp ShadowOn

# The text is on a single line and bottom-justified.
vtkTextMapper singleLineTextB
    singleLineTextB SetInput "Single line (bottom)"
    set tprop [singleLineTextB GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetVerticalJustificationToBottom
    $tprop SetColor 1 0 0
vtkActor2D singleLineTextActorB
    singleLineTextActorB SetMapper singleLineTextB
    [singleLineTextActorB GetPositionCoordinate] \
          SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorB GetPositionCoordinate] SetValue 0.05 0.85

# The text is on a single line and center-justified (vertical justification).
vtkTextMapper singleLineTextC
    singleLineTextC SetInput "Single line (centered)"
    set tprop [singleLineTextC GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetVerticalJustificationToCentered
    $tprop SetColor 0 1 0
vtkActor2D singleLineTextActorC
    singleLineTextActorC SetMapper singleLineTextC
    [singleLineTextActorC GetPositionCoordinate] \
          SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorC GetPositionCoordinate] SetValue 0.05 0.75

# The text is on a single line and top-justified - above 0.5
vtkTextMapper singleLineTextT
    singleLineTextT SetInput "Single line (top)"
    set tprop [singleLineTextT GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetVerticalJustificationToTop
    $tprop SetColor 0 0 1
vtkActor2D singleLineTextActorT
    singleLineTextActorT SetMapper singleLineTextT
    [singleLineTextActorT GetPositionCoordinate] \
          SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorT GetPositionCoordinate] SetValue 0.05 0.65

# The text is on a single line and top-justified -below 0.5
vtkTextMapper singleLineTextTB
    singleLineTextTB SetInput "Single line below (top)"
    set tprop [singleLineTextTB GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetVerticalJustificationToTop
    $tprop SetColor 0 0 1
vtkActor2D singleLineTextActorTB
    singleLineTextActorTB SetMapper singleLineTextTB
    [singleLineTextActorTB GetPositionCoordinate] \
        SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorTB GetPositionCoordinate] SetValue 0.5 0.25

# The text is on a single line and centered -below 0.5
vtkTextMapper singleLineTextCC
    singleLineTextCC SetInput "HHHHH"
    set tprop [singleLineTextCC GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetJustificationToCentered
    $tprop SetVerticalJustificationToCentered
    $tprop UseTightBoundingBoxOn
    $tprop SetColor 0 0 0
vtkActor2D singleLineTextActorCC
    singleLineTextActorCC SetMapper singleLineTextCC
    [singleLineTextActorCC GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorCC GetPositionCoordinate] SetValue 0.5 0.15

# The text is on a single line and bottom-right justified with a tight bounding-box
vtkTextMapper singleLineTextBR
    singleLineTextBR SetInput "Line bottom"
    set tprop [singleLineTextBR GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetJustificationToRight
    $tprop SetVerticalJustificationToBottom
    $tprop UseTightBoundingBoxOn
    $tprop SetColor 0 0 1
vtkActor2D singleLineTextActorBR
    singleLineTextActorBR SetMapper singleLineTextBR
    [singleLineTextActorBR GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorBR GetPositionCoordinate] SetValue 0.95 0.15

# The text is on a single line and bottom-right justified with a tight bounding-box
vtkTextMapper singleLineTextBL
    singleLineTextBL SetInput "Tight line (bottom)"
    set tprop [singleLineTextBL GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetJustificationToLeft
    $tprop SetVerticalJustificationToBottom
    $tprop UseTightBoundingBoxOn
    $tprop SetColor 0 0 1
vtkActor2D singleLineTextActorBL
    singleLineTextActorBL SetMapper singleLineTextBL
    [singleLineTextActorBL GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorBL GetPositionCoordinate] SetValue 0.05 0.15

# The text is on a single line and top-justified - above 0.5
vtkTextMapper singleLineTextLTT
    singleLineTextLTT SetInput "Single line (top)"
    set tprop [singleLineTextLTT GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetVerticalJustificationToTop
    $tprop UseTightBoundingBoxOn
    $tprop SetColor 0 0 1
vtkActor2D singleLineTextActorLTT
    singleLineTextActorLTT SetMapper singleLineTextLTT
    [singleLineTextActorLTT GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorLTT GetPositionCoordinate] SetValue 0.05 0.15

# The text is on a single line and top-justified - above 0.5
vtkTextMapper singleLineTextRTT
    singleLineTextRTT SetInput "nge ne op"
    set tprop [singleLineTextRTT GetTextProperty]
    $tprop ShallowCopy singleLineTextProp
    $tprop SetJustificationToRight
    $tprop SetVerticalJustificationToTop
    $tprop UseTightBoundingBoxOn
    $tprop SetColor 0 0 1
vtkActor2D singleLineTextActorRTT
    singleLineTextActorRTT SetMapper singleLineTextRTT
    [singleLineTextActorRTT GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [singleLineTextActorRTT GetPositionCoordinate] SetValue 0.95 0.15

# The text is on multiple lines and left- and top-justified - below 0.5
vtkTextMapper textMapperL
    textMapperL SetInput "This is\nmulti-line\ntext output\n(left-top)"
    set tprop [textMapperL GetTextProperty]
    $tprop ShallowCopy multiLineTextProp
    $tprop SetJustificationToLeft
    $tprop SetVerticalJustificationToTop
    $tprop SetColor 1 0 0
vtkActor2D textActorL
    textActorL SetMapper textMapperL
    [textActorL GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [textActorL GetPositionCoordinate] SetValue 0.05 0.5

# The text is on multiple lines and left- and top-justified - above 0.5
vtkTextMapper textMapperLA
    textMapperLA SetInput "This is\nmulti-line\ntext output\nabove (left-top)"
    set tprop [textMapperLA GetTextProperty]
    $tprop ShallowCopy multiLineTextProp
    $tprop SetJustificationToLeft
    $tprop SetVerticalJustificationToTop
    $tprop SetColor 1 0 0
vtkActor2D textActorLA
    textActorLA SetMapper textMapperLA
    [textActorLA GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [textActorLA GetPositionCoordinate] SetValue 0.5 0.85

# The text is on multiple lines and center-justified (both horizontal and
# vertical).
vtkTextMapper textMapperC
    textMapperC SetInput "This is\nmulti-line\ntext output\n(centered)"
    set tprop [textMapperC GetTextProperty]
    $tprop ShallowCopy multiLineTextProp
    $tprop SetJustificationToCentered
    $tprop SetVerticalJustificationToCentered
    $tprop SetColor 0 1 0
vtkActor2D textActorC
    textActorC SetMapper textMapperC
    [textActorC GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [textActorC GetPositionCoordinate] SetValue 0.5 0.5

# The text is on multiple lines and right- and bottom-justified.
vtkTextMapper textMapperR
    textMapperR SetInput "This is\nmulti-line\ntext output\n(right-bottom)"
    set tprop [textMapperR GetTextProperty]
    $tprop ShallowCopy multiLineTextProp
    $tprop SetJustificationToRight
    $tprop SetVerticalJustificationToBottom
    $tprop SetColor 0 0 1
vtkActor2D textActorR
    textActorR SetMapper textMapperR
    [textActorR GetPositionCoordinate] SetCoordinateSystemToNormalizedDisplay
    [textActorR GetPositionCoordinate] SetValue 0.95 0.5

# Draw the grid to demonstrate the placement of the text.

# Set up the necessary points.
vtkPoints Pts
    Pts InsertNextPoint 0.05 0.0 0.0
    Pts InsertNextPoint 0.05 1.0 0.0
    Pts InsertNextPoint 0.5 0.0 0.0
    Pts InsertNextPoint 0.5 1.0 0.0
    Pts InsertNextPoint 0.95 0.0 0.0
    Pts InsertNextPoint 0.95 1.0 0.0
    Pts InsertNextPoint 0.0 0.5 0.0
    Pts InsertNextPoint 1.0 0.5 0.0
    Pts InsertNextPoint 0.0 0.85 0.0
    Pts InsertNextPoint 1.0 0.85 0.0
    Pts InsertNextPoint 0.00 0.75 0.0
    Pts InsertNextPoint 0.50 0.75 0.0
    Pts InsertNextPoint 0.00 0.65 0.0
    Pts InsertNextPoint 0.50 0.65 0.0
    Pts InsertNextPoint 0.00 0.25 0.0
    Pts InsertNextPoint 1.00 0.25 0.0
    Pts InsertNextPoint 0.00 0.15 0.0
    Pts InsertNextPoint 1.00 0.15 0.0

# Set up the lines that use these points.
vtkCellArray Lines
    Lines InsertNextCell 2
    Lines InsertCellPoint 0
    Lines InsertCellPoint 1
    Lines InsertNextCell 2
    Lines InsertCellPoint 2
    Lines InsertCellPoint 3
    Lines InsertNextCell 2
    Lines InsertCellPoint 4
    Lines InsertCellPoint 5
    Lines InsertNextCell 2
    Lines InsertCellPoint 6
    Lines InsertCellPoint 7
    Lines InsertNextCell 2
    Lines InsertCellPoint 8
    Lines InsertCellPoint 9
    Lines InsertNextCell 2
    Lines InsertCellPoint 10
    Lines InsertCellPoint 11
    Lines InsertNextCell 2
    Lines InsertCellPoint 12
    Lines InsertCellPoint 13
    Lines InsertNextCell 2
    Lines InsertCellPoint 14
    Lines InsertCellPoint 15
    Lines InsertNextCell 2
    Lines InsertCellPoint 16
    Lines InsertCellPoint 17

# Create a grid that uses these points and lines.
vtkPolyData Grid
    Grid SetPoints Pts
    Grid SetLines Lines
# Set up the coordinate system.
vtkCoordinate normCoords
    normCoords SetCoordinateSystemToNormalizedDisplay

# Set up the mapper and actor (2D) for the grid.
vtkPolyDataMapper2D mapper
    mapper SetInputData Grid
    mapper SetTransformCoordinate normCoords
vtkActor2D gridActor
    gridActor SetMapper mapper
    [gridActor GetProperty] SetColor 0.1 0.1 0.1

# Create the Renderer, RenderWindow, and RenderWindowInteractor
#
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; zoom in
# closer to the image; render
#
ren1 AddActor2D gridActor
ren1 AddActor2D textActorL
ren1 AddActor2D singleLineTextActorT
ren1 AddActor2D textActorLA
ren1 AddActor2D textActorC
ren1 AddActor2D textActorR
ren1 AddActor2D singleLineTextActorB
ren1 AddActor2D singleLineTextActorC
ren1 AddActor2D singleLineTextActorLTT
ren1 AddActor2D singleLineTextActorRTT
ren1 AddActor2D singleLineTextActorTB
ren1 AddActor2D singleLineTextActorBR
ren1 AddActor2D singleLineTextActorBL
ren1 AddActor2D singleLineTextActorCC

ren1 SetBackground 1 1 1
renWin SetSize 500 300
[ren1 GetActiveCamera] Zoom 1.5
renWin Render

# Set the user method (bound to key 'u')
#
iren AddObserver UserEvent {wm deiconify .vtkInteract}

# Withdraw the default tk window.
wm withdraw .