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.
37 lines
683 B
37 lines
683 B
2 years ago
|
package require vtk
|
||
|
|
|
||
|
|
# Set up the pipeline
|
||
|
|
|
||
|
|
vtkTIFFReader reader
|
||
|
|
reader SetFileName "$VTK_DATA_ROOT/Data/beach.tif"
|
||
|
|
|
||
|
|
vtkImageActor ia
|
||
|
|
ia SetInput [reader GetOutput]
|
||
|
|
|
||
|
|
vtkRenderer ren
|
||
|
|
ren AddActor ia
|
||
|
|
|
||
|
|
vtkRenderWindow renWin
|
||
|
|
renWin AddRenderer ren
|
||
|
|
renWin SetSize 400 400
|
||
|
|
|
||
|
|
vtkRenderWindowInteractor iren
|
||
|
|
iren SetRenderWindow renWin
|
||
|
|
|
||
|
|
vtkInteractorStyleRubberBandZoom rbz
|
||
|
|
rbz SetInteractor iren
|
||
|
|
|
||
|
|
iren SetInteractorStyle rbz
|
||
|
|
|
||
|
|
renWin Render
|
||
|
|
|
||
|
|
# Test style
|
||
|
|
|
||
|
|
iren SetEventInformationFlipY 250 250 0 0 "0" 0 "0"
|
||
|
|
iren InvokeEvent "LeftButtonPressEvent"
|
||
|
|
iren SetEventInformationFlipY 100 100 0 0 "0" 0 "0"
|
||
|
|
iren InvokeEvent "MouseMoveEvent"
|
||
|
|
iren InvokeEvent "LeftButtonReleaseEvent"
|
||
|
|
|
||
|
|
wm withdraw .
|