You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
1.8 KiB
69 lines
1.8 KiB
package require vtk
|
|
package require vtkinteraction
|
|
|
|
# create a rendering window and renderer
|
|
vtkRenderer ren1
|
|
vtkRenderWindow renWin
|
|
renWin AddRenderer ren1
|
|
vtkRenderWindowInteractor iren
|
|
iren SetRenderWindow renWin
|
|
|
|
# create cones of varying resolution
|
|
vtkConeSource cone0
|
|
cone0 SetResolution 0
|
|
vtkConeSource cone1
|
|
cone1 SetResolution 1
|
|
vtkConeSource cone2
|
|
cone2 SetResolution 2
|
|
vtkConeSource cone8
|
|
cone8 SetResolution 8
|
|
|
|
vtkPolyDataMapper cone0Mapper
|
|
cone0Mapper SetInputConnection [cone0 GetOutputPort]
|
|
vtkActor cone0Actor
|
|
cone0Actor SetMapper cone0Mapper
|
|
|
|
vtkPolyDataMapper cone1Mapper
|
|
cone1Mapper SetInputConnection [cone1 GetOutputPort]
|
|
vtkActor cone1Actor
|
|
cone1Actor SetMapper cone1Mapper
|
|
|
|
vtkPolyDataMapper cone2Mapper
|
|
cone2Mapper SetInputConnection [cone2 GetOutputPort]
|
|
vtkActor cone2Actor
|
|
cone2Actor SetMapper cone2Mapper
|
|
|
|
vtkPolyDataMapper cone8Mapper
|
|
cone8Mapper SetInputConnection [cone8 GetOutputPort]
|
|
vtkActor cone8Actor
|
|
cone8Actor SetMapper cone8Mapper
|
|
|
|
# assign our actor to the renderer
|
|
ren1 AddActor cone0Actor
|
|
ren1 AddActor cone1Actor
|
|
ren1 AddActor cone2Actor
|
|
ren1 AddActor cone8Actor
|
|
ren1 SetBackground .5 .5 .5
|
|
ren1 ResetCamera
|
|
[ren1 GetActiveCamera] Elevation 30
|
|
[ren1 GetActiveCamera] Dolly 1.3
|
|
ren1 ResetCameraClippingRange
|
|
|
|
renWin SetSize 301 91
|
|
cone0Actor SetPosition -1.5 0 0
|
|
cone1Actor SetPosition -.5 0 0
|
|
cone2Actor SetPosition .5 0 0
|
|
cone8Actor SetPosition 1.5 0 0
|
|
|
|
[cone0Actor GetProperty] SetDiffuseColor 1 0 0
|
|
[cone1Actor GetProperty] SetDiffuseColor 0 1 0
|
|
[cone8Actor GetProperty] BackfaceCullingOn
|
|
[cone8Actor GetProperty] SetDiffuseColor 0 0 1
|
|
|
|
# enable user interface interactor
|
|
iren AddObserver UserEvent {wm deiconify .vtkInteract}
|
|
iren Initialize
|
|
|
|
# prevent the tk window from showing up then start the event loop
|
|
wm withdraw .
|
|
|
|
|