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.
40 lines
757 B
40 lines
757 B
2 years ago
|
package require vtk
|
||
|
|
||
|
# A script to test the island removal filter.
|
||
|
# first the image is thresholded, then small islands are removed.
|
||
|
|
||
|
|
||
|
# Image pipeline
|
||
|
|
||
|
vtkPNGReader reader
|
||
|
reader SetFileName "$VTK_DATA_ROOT/Data/fullhead15.png"
|
||
|
|
||
|
vtkImageThreshold thresh
|
||
|
thresh SetInputConnection [reader GetOutputPort]
|
||
|
thresh ThresholdByUpper 2000.0
|
||
|
thresh SetInValue 255
|
||
|
thresh SetOutValue 0
|
||
|
thresh ReleaseDataFlagOff
|
||
|
|
||
|
vtkImageIslandRemoval2D island
|
||
|
island SetInputConnection [thresh GetOutputPort]
|
||
|
island SetIslandValue 255
|
||
|
island SetReplaceValue 128
|
||
|
island SetAreaThreshold 100
|
||
|
island SquareNeighborhoodOn
|
||
|
|
||
|
vtkImageViewer viewer
|
||
|
viewer SetInputConnection [island GetOutputPort]
|
||
|
viewer SetColorWindow 255
|
||
|
viewer SetColorLevel 127.5
|
||
|
#viewer DebugOn
|
||
|
|
||
|
viewer Render
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|