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.
46 lines
928 B
46 lines
928 B
2 years ago
|
package require vtk
|
||
|
|
package require vtkinteraction
|
||
|
|
|
||
|
|
# create pipeline - rectilinear grid
|
||
|
|
#
|
||
|
|
vtkRectilinearGridReader rgridReader
|
||
|
|
rgridReader SetFileName "$VTK_DATA_ROOT/Data/RectGrid2.vtk"
|
||
|
|
rgridReader Update
|
||
|
|
|
||
|
|
vtkRectilinearSynchronizedTemplates contour
|
||
|
|
contour SetInputConnection [rgridReader GetOutputPort]
|
||
|
|
contour SetValue 0 1
|
||
|
|
contour ComputeScalarsOff
|
||
|
|
contour ComputeNormalsOn
|
||
|
|
contour ComputeGradientsOn
|
||
|
|
|
||
|
|
vtkPolyDataMapper cMapper
|
||
|
|
cMapper SetInputConnection [contour GetOutputPort]
|
||
|
|
|
||
|
|
vtkActor cActor
|
||
|
|
cActor SetMapper cMapper
|
||
|
|
|
||
|
|
# Create the RenderWindow, Renderer and both Actors
|
||
|
|
#
|
||
|
|
vtkRenderer ren1
|
||
|
|
|
||
|
|
vtkRenderWindow renWin
|
||
|
|
renWin AddRenderer ren1
|
||
|
|
renWin SetSize 200 200
|
||
|
|
|
||
|
|
vtkRenderWindowInteractor iren
|
||
|
|
iren SetRenderWindow renWin
|
||
|
|
|
||
|
|
ren1 AddActor cActor
|
||
|
|
|
||
|
|
iren Initialize
|
||
|
|
|
||
|
|
# render the image
|
||
|
|
#
|
||
|
|
iren AddObserver UserEvent {wm deiconify .vtkInteract}
|
||
|
|
|
||
|
|
# prevent the tk window from showing up then start the event loop
|
||
|
|
wm withdraw .
|
||
|
|
|
||
|
|
|