Sphere
VTKExamples/Tcl/GeometricObjects/Sphere
Code
Sphere.tcl
package require vtk
vtkXMLPolyDataWriter writer
#Generate a synthetic sphere
vtkSphereSource sphere
sphere SetThetaResolution 12
sphere SetPhiResolution 12
sphere SetRadius 5.0
sphere Update
#Write polydata file
writer SetInput [sphere GetOutput]
set filename "sphere.vtp"
writer SetFileName $filename
writer Update