package require vtk package require vtkinteraction vtkPoints points points InsertNextPoint 0 -16 0 points InsertNextPoint 0 0 -14 points InsertNextPoint 0 0 14 points InsertNextPoint 14 0 0 points InsertNextPoint 10 20 -10 points InsertNextPoint 10 20 10 points InsertNextPoint 10 -20 -10 points InsertNextPoint 10 -20 10 points InsertNextPoint -10 -20 -10 points InsertNextPoint -10 -20 10 points InsertNextPoint -10 20 -10 points InsertNextPoint -10 20 10 points InsertNextPoint -2 27 0 points InsertNextPoint 0 27 2 points InsertNextPoint 0 27 -2 points InsertNextPoint 2 27 0 points InsertNextPoint -14 4 -1 points InsertNextPoint -14 3 0 points InsertNextPoint -14 5 0 points InsertNextPoint -14 4 1 points InsertNextPoint -1 38 -2 points InsertNextPoint -1 38 2 points InsertNextPoint 2 35 -2 points InsertNextPoint 2 35 2 points InsertNextPoint 17 42 0 points InsertNextPoint 15 40 2 points InsertNextPoint 15 39 -2 points InsertNextPoint 13 37 0 points InsertNextPoint 19 -2 -2 points InsertNextPoint 19 -2 2 points InsertNextPoint 15 2 -2 points InsertNextPoint 15 2 2 vtkCellArray faces faces InsertNextCell 3 faces InsertCellPoint 3 faces InsertCellPoint 4 faces InsertCellPoint 5 faces InsertNextCell 3 faces InsertCellPoint 3 faces InsertCellPoint 5 faces InsertCellPoint 7 faces InsertNextCell 3 faces InsertCellPoint 3 faces InsertCellPoint 7 faces InsertCellPoint 6 faces InsertNextCell 3 faces InsertCellPoint 3 faces InsertCellPoint 6 faces InsertCellPoint 4 faces InsertNextCell 3 faces InsertCellPoint 0 faces InsertCellPoint 6 faces InsertCellPoint 7 faces InsertNextCell 3 faces InsertCellPoint 0 faces InsertCellPoint 7 faces InsertCellPoint 9 faces InsertNextCell 3 faces InsertCellPoint 0 faces InsertCellPoint 9 faces InsertCellPoint 8 faces InsertNextCell 3 faces InsertCellPoint 0 faces InsertCellPoint 8 faces InsertCellPoint 6 faces InsertNextCell 3 faces InsertCellPoint 1 faces InsertCellPoint 4 faces InsertCellPoint 6 faces InsertNextCell 3 faces InsertCellPoint 1 faces InsertCellPoint 6 faces InsertCellPoint 8 faces InsertNextCell 3 faces InsertCellPoint 1 faces InsertCellPoint 8 faces InsertCellPoint 10 faces InsertNextCell 3 faces InsertCellPoint 1 faces InsertCellPoint 10 faces InsertCellPoint 4 faces InsertNextCell 3 faces InsertCellPoint 2 faces InsertCellPoint 11 faces InsertCellPoint 9 faces InsertNextCell 3 faces InsertCellPoint 2 faces InsertCellPoint 9 faces InsertCellPoint 7 faces InsertNextCell 3 faces InsertCellPoint 2 faces InsertCellPoint 7 faces InsertCellPoint 5 faces InsertNextCell 3 faces InsertCellPoint 2 faces InsertCellPoint 5 faces InsertCellPoint 11 faces InsertNextCell 3 faces InsertCellPoint 4 faces InsertCellPoint 15 faces InsertCellPoint 5 faces InsertNextCell 3 faces InsertCellPoint 4 faces InsertCellPoint 14 faces InsertCellPoint 15 faces InsertNextCell 3 faces InsertCellPoint 5 faces InsertCellPoint 13 faces InsertCellPoint 11 faces InsertNextCell 3 faces InsertCellPoint 5 faces InsertCellPoint 15 faces InsertCellPoint 13 faces InsertNextCell 3 faces InsertCellPoint 11 faces InsertCellPoint 12 faces InsertCellPoint 10 faces InsertNextCell 3 faces InsertCellPoint 11 faces InsertCellPoint 13 faces InsertCellPoint 12 faces InsertNextCell 3 faces InsertCellPoint 10 faces InsertCellPoint 14 faces InsertCellPoint 4 faces InsertNextCell 3 faces InsertCellPoint 10 faces InsertCellPoint 12 faces InsertCellPoint 14 faces InsertNextCell 3 faces InsertCellPoint 8 faces InsertCellPoint 17 faces InsertCellPoint 16 faces InsertNextCell 3 faces InsertCellPoint 8 faces InsertCellPoint 9 faces InsertCellPoint 17 faces InsertNextCell 3 faces InsertCellPoint 9 faces InsertCellPoint 19 faces InsertCellPoint 17 faces InsertNextCell 3 faces InsertCellPoint 9 faces InsertCellPoint 11 faces InsertCellPoint 19 faces InsertNextCell 3 faces InsertCellPoint 11 faces InsertCellPoint 18 faces InsertCellPoint 19 faces InsertNextCell 3 faces InsertCellPoint 11 faces InsertCellPoint 10 faces InsertCellPoint 18 faces InsertNextCell 3 faces InsertCellPoint 10 faces InsertCellPoint 16 faces InsertCellPoint 18 faces InsertNextCell 3 faces InsertCellPoint 10 faces InsertCellPoint 8 faces InsertCellPoint 16 faces InsertNextCell 3 faces InsertCellPoint 13 faces InsertCellPoint 21 faces InsertCellPoint 12 faces InsertNextCell 3 faces InsertCellPoint 12 faces InsertCellPoint 21 faces InsertCellPoint 20 faces InsertNextCell 3 faces InsertCellPoint 12 faces InsertCellPoint 20 faces InsertCellPoint 14 faces InsertNextCell 3 faces InsertCellPoint 14 faces InsertCellPoint 20 faces InsertCellPoint 22 faces InsertNextCell 3 faces InsertCellPoint 14 faces InsertCellPoint 22 faces InsertCellPoint 15 faces InsertNextCell 3 faces InsertCellPoint 15 faces InsertCellPoint 22 faces InsertCellPoint 23 faces InsertNextCell 3 faces InsertCellPoint 15 faces InsertCellPoint 23 faces InsertCellPoint 13 faces InsertNextCell 3 faces InsertCellPoint 13 faces InsertCellPoint 23 faces InsertCellPoint 21 faces InsertNextCell 3 faces InsertCellPoint 21 faces InsertCellPoint 25 faces InsertCellPoint 24 faces InsertNextCell 3 faces InsertCellPoint 21 faces InsertCellPoint 24 faces InsertCellPoint 20 faces InsertNextCell 3 faces InsertCellPoint 20 faces InsertCellPoint 24 faces InsertCellPoint 26 faces InsertNextCell 3 faces InsertCellPoint 20 faces InsertCellPoint 26 faces InsertCellPoint 22 faces InsertNextCell 3 faces InsertCellPoint 22 faces InsertCellPoint 26 faces InsertCellPoint 27 faces InsertNextCell 3 faces InsertCellPoint 22 faces InsertCellPoint 27 faces InsertCellPoint 23 faces InsertNextCell 3 faces InsertCellPoint 23 faces InsertCellPoint 27 faces InsertCellPoint 25 faces InsertNextCell 3 faces InsertCellPoint 23 faces InsertCellPoint 25 faces InsertCellPoint 21 faces InsertNextCell 3 faces InsertCellPoint 25 faces InsertCellPoint 29 faces InsertCellPoint 24 faces InsertNextCell 3 faces InsertCellPoint 24 faces InsertCellPoint 29 faces InsertCellPoint 28 faces InsertNextCell 3 faces InsertCellPoint 24 faces InsertCellPoint 28 faces InsertCellPoint 26 faces InsertNextCell 3 faces InsertCellPoint 26 faces InsertCellPoint 28 faces InsertCellPoint 30 faces InsertNextCell 3 faces InsertCellPoint 26 faces InsertCellPoint 30 faces InsertCellPoint 27 faces InsertNextCell 3 faces InsertCellPoint 27 faces InsertCellPoint 30 faces InsertCellPoint 31 faces InsertNextCell 3 faces InsertCellPoint 27 faces InsertCellPoint 31 faces InsertCellPoint 25 faces InsertNextCell 3 faces InsertCellPoint 25 faces InsertCellPoint 31 faces InsertCellPoint 29 faces InsertNextCell 3 faces InsertCellPoint 29 faces InsertCellPoint 19 faces InsertCellPoint 17 faces InsertNextCell 3 faces InsertCellPoint 29 faces InsertCellPoint 17 faces InsertCellPoint 28 faces InsertNextCell 3 faces InsertCellPoint 28 faces InsertCellPoint 17 faces InsertCellPoint 16 faces InsertNextCell 3 faces InsertCellPoint 28 faces InsertCellPoint 16 faces InsertCellPoint 30 faces InsertNextCell 3 faces InsertCellPoint 30 faces InsertCellPoint 16 faces InsertCellPoint 18 faces InsertNextCell 3 faces InsertCellPoint 30 faces InsertCellPoint 18 faces InsertCellPoint 31 faces InsertNextCell 3 faces InsertCellPoint 31 faces InsertCellPoint 18 faces InsertCellPoint 19 faces InsertNextCell 3 faces InsertCellPoint 31 faces InsertCellPoint 19 faces InsertCellPoint 29 vtkPolyData model model SetPolys faces model SetPoints points # Create the RenderWindow, Renderer and both Actors # vtkRenderer ren1 vtkRenderWindow renWin renWin AddRenderer ren1 vtkRenderWindowInteractor iren iren SetRenderWindow renWin #vtkButterflySubdivisionFilter subdivide vtkLoopSubdivisionFilter subdivide subdivide SetInput model subdivide SetNumberOfSubdivisions 4 vtkDataSetMapper mapper mapper SetInputConnection [subdivide GetOutputPort] vtkLODActor rose rose SetMapper mapper vtkFeatureEdges fe fe SetInputConnection [subdivide GetOutputPort] fe SetFeatureAngle 100 vtkPolyDataMapper feMapper feMapper SetInputConnection [fe GetOutputPort] vtkActor edges edges SetMapper feMapper # Add the actors to the renderer, set the background and size # ren1 AddActor rose #ren1 AddActor edges vtkProperty backP backP SetDiffuseColor 1 1 .3 rose SetBackfaceProperty backP [rose GetProperty] SetDiffuseColor 1 .4 .3 [rose GetProperty] SetSpecular .4 [rose GetProperty] SetDiffuse .8 [rose GetProperty] SetSpecularPower 40 ren1 SetBackground 0.1 0.2 0.4 renWin SetSize 300 300 # render the image # iren AddObserver UserEvent {wm deiconify .vtkInteract} ren1 ResetCamera set cam1 [ren1 GetActiveCamera] $cam1 Zoom 4.5 $cam1 Azimuth -90 ren1 ResetCameraClippingRange iren Initialize # prevent the tk window from showing up then start the event loop wm withdraw .