You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
1.9 KiB
77 lines
1.9 KiB
package require vtk
|
|
package require vtkinteraction
|
|
#
|
|
# create a triangular texture
|
|
#
|
|
|
|
# Create the RenderWindow, Renderer and both Actors
|
|
#
|
|
vtkRenderer ren1
|
|
vtkRenderWindow renWin
|
|
renWin AddRenderer ren1
|
|
vtkRenderWindowInteractor iren
|
|
iren SetRenderWindow renWin
|
|
|
|
|
|
vtkTriangularTexture aTriangularTexture
|
|
aTriangularTexture SetTexturePattern 1
|
|
aTriangularTexture SetXSize 32
|
|
aTriangularTexture SetYSize 32
|
|
|
|
vtkPoints points
|
|
points InsertPoint 0 0.0 0.0 0.0
|
|
points InsertPoint 1 1.0 0.0 0.0
|
|
points InsertPoint 2 .5 1.0 0.0
|
|
points InsertPoint 3 1.0 0.0 0.0
|
|
points InsertPoint 4 0.0 0.0 0.0
|
|
points InsertPoint 5 .5 -1.0 .5
|
|
|
|
vtkFloatArray tCoords
|
|
tCoords SetNumberOfComponents 2
|
|
tCoords InsertTuple2 0 0.0 0.0
|
|
tCoords InsertTuple2 1 1.0 0.0
|
|
tCoords InsertTuple2 2 .5 .86602540378443864676
|
|
tCoords InsertTuple2 3 0.0 0.0
|
|
tCoords InsertTuple2 4 1.0 0.0
|
|
tCoords InsertTuple2 5 .5 .86602540378443864676
|
|
|
|
vtkPointData pointData
|
|
pointData SetTCoords tCoords
|
|
|
|
vtkCellArray triangles
|
|
triangles InsertNextCell 3
|
|
triangles InsertCellPoint 0
|
|
triangles InsertCellPoint 1
|
|
triangles InsertCellPoint 2
|
|
triangles InsertNextCell 3
|
|
triangles InsertCellPoint 3
|
|
triangles InsertCellPoint 4
|
|
triangles InsertCellPoint 5
|
|
|
|
vtkPolyData triangle
|
|
triangle SetPolys triangles
|
|
triangle SetPoints points
|
|
[triangle GetPointData] SetTCoords tCoords
|
|
|
|
vtkPolyDataMapper triangleMapper
|
|
triangleMapper SetInput triangle
|
|
|
|
vtkTexture aTexture
|
|
aTexture SetInputConnection [aTriangularTexture GetOutputPort]
|
|
|
|
vtkActor triangleActor
|
|
triangleActor SetMapper triangleMapper
|
|
triangleActor SetTexture aTexture
|
|
|
|
ren1 SetBackground .3 .7 .2
|
|
ren1 AddActor triangleActor
|
|
ren1 ResetCamera
|
|
[ren1 GetActiveCamera] Zoom 1.5
|
|
|
|
# render the image
|
|
#
|
|
iren AddObserver UserEvent {wm deiconify .vtkInteract}
|
|
iren Initialize
|
|
|
|
# prevent the tk window from showing up then start the event loop
|
|
wm withdraw .
|
|
|