[vtkusers] looping in visualization pipeleine with Tcl

[albaja]

Hi all,

I am a VTK beginner.

Why following code is not automatically looping in visualization pipeline ?
One iteration of the loop is executed only when I send one event to
vtkInteractor.


####################################################################
# Boucle de visualisation
# où le pipeline se réexécute indéfiniment
# En fait le pipeline se réexécute suite action de l'interacteur

package require vtk
package require vtkinteraction

# Create a rendering window
vtkRenderWindow renWin
vtkRenderer ren
renWin AddRenderer ren

# Crée l'interacteur
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
iren Initialize

# Crée la sphère
vtkSphereSource sphere
sphere SetThetaResolution 12
sphere SetPhiResolution 12

# Crée le filtre d'éclatement
vtkShrinkFilter shrink
shrink SetInput [sphere GetOutput]
shrink SetShrinkFactor 0.999

# Filtre de coloriage selon la hauteur
vtkElevationFilter colorIt
colorIt SetInput [shrink GetOutput]
colorIt SetLowPoint 0 0 -.5
colorIt SetHighPoint 0 0 .5

# Crée le mapper
vtkDataSetMapper mapper
mapper SetInput [colorIt GetOutput]


# Crée les acteurs
vtkActor actor
actor SetMapper mapper

# Associe acteurs et renderer
ren AddActor actor

renWin Render
shrink SetInput [colorIt GetOutput]
renWin Render

# Supprime la fenêtre TK
wm withdraw .

#####################################


Thanks for your help

Alain