18 lines
388 B
18 lines
388 B
2 years ago
|
package require vtk
|
||
|
|
|
||
|
|
# Image pipeline
|
||
|
|
|
||
|
|
vtkImageReader2Factory createReader
|
||
|
|
set reader [createReader CreateImageReader2 "$VTK_DATA_ROOT/Data/beach.tif"]
|
||
|
|
$reader SetFileName "$VTK_DATA_ROOT/Data/beach.tif"
|
||
|
|
|
||
|
|
vtkImageViewer viewer
|
||
|
|
viewer SetInputConnection [$reader GetOutputPort]
|
||
|
|
viewer SetColorWindow 256
|
||
|
|
viewer SetColorLevel 127.5
|
||
|
|
|
||
|
|
|
||
|
|
#make interface
|
||
|
|
viewer Render
|
||
|
|
$reader UnRegister viewer
|