VTK/Examples/Tcl/GeometricObjects/Cube

From KitwarePublic
< VTK‎ | Examples‎ | Tcl
Jump to: navigation, search

Cube.tcl

package require vtk
 
vtkUnstructuredGridWriter writer
 
#Generate a synthetic cube
vtkCubeSource cube
cube SetCenter 0.0 0.0 0.0
cube SetXLength 0.5
cube SetYLength 0.5
cube SetZLength 0.5
cube Update
 
vtkDelaunay3D cubeMesh
cubeMesh SetInput [ cube GetOutput ]
cubeMesh Update
 
#Write unstructured grid file
writer SetInput [ cubeMesh GetOutput ]
set filename "cube.vtu"
writer SetFileName $filename
writer Update