package require vtk

vtkConeSource cone

vtkPolyDataMapper coneMapper
coneMapper SetInputConnection [cone GetOutputPort]

vtkActor coneActor
coneActor SetMapper coneMapper

vtkRenderer ren1
ren1 AddActor coneActor
ren1 SetBackground 0 0 0

vtkRenderWindow renWin
renWin AddRenderer ren1

vtkRenderWindowInteractor iren
iren SetRenderWindow renWin

# Withdraw the default tk window
wm withdraw .

iren Start


分类: TCL

发表评论

电子邮件地址不会被公开。 必填项已用*标注