# Barragem do Funcho - Deslocamentos

vtkRenderer ren1
ren1 SetBackground 0.2 0.2 0.4

vtkRenderWindow renWin
renWin AddRenderer ren1
renWin SetSize 500 500

vtkRenderWindowInteractor iren
iren SetRenderWindow renWin

source eixos.tcl

vtkUnstructuredGridReader reader_desloc
reader_desloc SetFileName "Funcho_Desloc_vtk.vtk"
reader_desloc Update

vtkVectorNorm modulo
modulo SetInput  [reader_desloc GetOutput]

vtkMergeFilter merge
merge SetGeometry  [reader_desloc GetOutput]
merge SetVectors  [reader_desloc GetOutput]
merge SetScalars  [modulo GetOutput]

# hedgehog

vtkHedgeHog hedgehog
hedgehog SetInput  [modulo GetOutput]
hedgehog SetScaleFactor [expr 30.0 / [[[[reader_desloc GetOutput] GetPointData] GetVectors] GetMaxNorm]]

vtkPolyDataMapper mapper
mapper SetInput [hedgehog GetOutput]
eval mapper SetScalarRange [[merge GetOutput] GetScalarRange]
mapper Update

vtkActor actor
ren1 AddActor actor
actor SetMapper mapper

#outline
vtkOutlineFilter outline_grelha
outline_grelha SetInput [reader_desloc GetOutput]
vtkPolyDataMapper outlineMapper_grelha
outlineMapper_grelha SetInput [outline_grelha GetOutput]

vtkActor outlineActor_grelha
outlineActor_grelha SetMapper outlineMapper_grelha
set outlineProp_grelha [outlineActor_grelha GetProperty]
eval $outlineProp_grelha SetColor 0 0 0
ren1 AddActor outlineActor_grelha

iren Initialize
wm withdraw .