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