[vtkusers] problem with Tcl example from VTK user guide?

[Hao Li]

Hi All,

Has anybody tried following Tcl code (from VTK user guide)?  I couldn't let
it work.  This program would have no response if you run it.

Do you have comment? Thanks

package require vtk

package require vtkinteraction

package require vtktesting

vtkDataSetReader part

part SetFileName "$VTK_DATA_ROOT/Data/honolulu.vtk"

vtkDataSetMapper partMapper

partMapper SetInput [part GetOutput]

vtkLODActor partActor

partActor SetMapper partMapper

eval [partActor GetProperty] SetColor $light_grey

partActor RotateX 30.0

partActor RotateY -45.0

vtkRenderer ren1

vtkRenderWindow renWin

renWin AddRenderer ren1

vtkRenderWindowInteractor iren

iren SetRenderWindow renWin

ren1 AddActor partActor

ren1 SetBackground 0.1 0.2 0.4

renWin SetSize 200 200

iren AddObserver UserEvent {wm deiconify .vtkInteract}

[ren1 GetActiveCamera] Zoom 1.5

renWin Render

wm withdraw .





Regards/Henry