VTK形式のファイルを描画

#!/bin/sh
# ¥
exec vtk "$0" ${1+"$@"}
package require vtk

if {$argc<1} {
    puts stderr "vtk draw.tcl filename"
    exit
}

vtkPolyDataReader reader
    reader SetFileName [lindex $argv 0]

vtkPolyDataMapper sphereMapper
    sphereMapper SetInputConnection [reader GetOutputPort]
    reader Delete

vtkActor sphereActor
    sphereActor SetMapper sphereMapper

vtkRenderer ren1
    ren1 AddActor sphereActor

vtkRenderWindow renWin
    renWin AddRenderer ren1
    renWin SetSize 300 300
    renWin Render

after 1000

vtkCommand DeleteAllObjects