## This example demonstrates the creation of multiple actors and the# manipulation of their properties and transformations. It is a# derivative of Cone.tcl, see that example for more information.### First we include the VTK Tcl packages which will make available # all of the VTK commands to Tcl.#package require vtk# # Next we create an instance of vtkConeSource and set some of its# properties. The instance of vtkConeSource "cone" is part of a visualization# pipeline (it is a source process object); it produces data (output type is# vtkPolyData) which other filters may process.#vtkConeSource conecone SetHeight 3.0cone SetRadius 1.0cone SetResolution 10# # In this example we terminate the pipeline with a mapper process object.# (Intermediate filters such as vtkShrinkPolyData could be inserted in# between the source and the mapper.)  We create an instance of# vtkPolyDataMapper to map the polygonal data into graphics primitives. We# connect the output of the cone souece to the input of this mapper.#vtkPolyDataMapper coneMapperconeMapper SetInput [cone GetOutput]# # Create an actor to represent the first cone. The actor's properties are# modified to give it different surface properties. By default, an actor# is create with a property so the GetProperty() method can be used.#vtkActor coneActorconeActor SetMapper coneMapper[coneActor GetProperty] SetColor 0.2 0.63 0.79[coneActor GetProperty] SetDiffuse 0.7[coneActor GetProperty] SetSpecular 0.4[coneActor GetProperty] SetSpecularPower 20## Create a property and directly manipulate it. Assign it to the# second actor.#vtkProperty propertyproperty SetColor 1.0 0.3882 0.2784property SetDiffuse 0.7property SetSpecular 0.4property SetSpecularPower 20## Create a second actor and a property. The property is directly# manipulated and then assigned to the actor. In this way, a single# property can be shared among many actors. Note also that we use the# same mapper as the first actor did. This way we avoid duplicating# geometry, which may save lots of memory if the geoemtry is large.vtkActor coneActor2coneActor2 SetMapper coneMapper[coneActor2 GetProperty] SetColor 0.2 0.63 0.79coneActor2 SetProperty propertyconeActor2 SetPosition 0 2 0## Create the Renderer and assign actors to it. A renderer is like a# viewport. It is part or all of a window on the screen and it is responsible# for drawing the actors it has.  We also set the background color here.#vtkRenderer ren1 ren1 AddActor coneActorren1 AddActor coneActor2ren1 SetBackground 0.1 0.2 0.4## Finally we create the render window which will show up on the screen# We put our renderer into the render window using AddRenderer. We also# set the size to be 300 pixels by 300.#vtkRenderWindow renWinrenWin AddRenderer ren1renWin SetSize 300 300## Now we loop over 360 degreeees and render the cone each time.#for {set i 0} {$i < 360} {incr i} {   after 10   # render the image   renWin Render   # rotate the active camera by one degree   [ren1 GetActiveCamera] Azimuth 1}## Free up any objects we created.#vtkCommand DeleteAllObjects## Exit the application.#exit