Tetra
VTKExamples/Tcl/GeometricObjects/Tetra
Code¶
Tetra.tcl
package require vtk vtkUnstructuredGridWriter writer #Generate a synthetic Tetrahedron vtkPoints points points SetDataTypeToDouble points InsertNextPoint 0 -1 -1 points InsertNextPoint -1 -1 1 points InsertNextPoint 1 1 1 points InsertNextPoint 0 1 0 vtkTetra tetra [tetra GetPointIds] SetId 0 0 [tetra GetPointIds] SetId 1 1 [tetra GetPointIds] SetId 2 2 [tetra GetPointIds] SetId 3 3 set cellType [tetra GetCellType] vtkUnstructuredGrid tetraGrid tetraGrid SetPoints points tetraGrid InsertNextCell $cellType [tetra GetPointIds] vtkDelaunay3D tetraMesh tetraMesh SetInput tetraGrid tetraMesh Update #Write unstructured grid file set filename "tetra.vtu" writer SetInput [ tetraMesh GetOutput ] writer SetFileName $filename writer Update