Cloned library of VTK-5.0.0 with extra build files for internal package management.
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.
 
 
 
 
 
 

65 lines
1.7 KiB

package require vtk
package require vtkinteraction
package require vtktesting
# Create the RenderWindow, Renderer and both Actors
#
vtkRenderer ren1
vtkRenderWindow renWin
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
vtkTriangularTexture aTriangularTexture
aTriangularTexture SetTexturePattern 2
aTriangularTexture SetScaleFactor 1.3
aTriangularTexture SetXSize 64
aTriangularTexture SetYSize 64
vtkSphereSource aSphere
aSphere SetThetaResolution 20
aSphere SetPhiResolution 20
vtkTriangularTCoords tCoords
tCoords SetInputConnection [aSphere GetOutputPort]
vtkPolyDataMapper triangleMapper
triangleMapper SetInputConnection [tCoords GetOutputPort]
vtkTexture aTexture
aTexture SetInputConnection [aTriangularTexture GetOutputPort]
aTexture InterpolateOn
vtkActor texturedActor
texturedActor SetMapper triangleMapper
texturedActor SetTexture aTexture
[texturedActor GetProperty] BackfaceCullingOn
eval [texturedActor GetProperty] SetDiffuseColor $banana
eval [texturedActor GetProperty] SetSpecular .4
eval [texturedActor GetProperty] SetSpecularPower 40
vtkCubeSource aCube
aCube SetXLength .5
aCube SetYLength .5
vtkPolyDataMapper aCubeMapper
aCubeMapper SetInputConnection [aCube GetOutputPort]
vtkActor cubeActor
cubeActor SetMapper aCubeMapper
eval [cubeActor GetProperty] SetDiffuseColor $tomato
eval ren1 SetBackground $slate_grey
ren1 AddActor cubeActor
ren1 AddActor texturedActor
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 .