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.
47 lines
977 B
47 lines
977 B
2 years ago
|
# Tst the OpenClose3D filter.
|
||
|
|
|
||
|
|
package require vtk
|
||
|
|
|
||
|
|
|
||
|
|
# Image pipeline
|
||
|
|
|
||
|
|
vtkPNGReader reader
|
||
|
|
reader SetFileName "$VTK_DATA_ROOT/Data/fullhead15.png"
|
||
|
|
|
||
|
|
vtkImageThreshold thresh
|
||
|
|
thresh SetInputConnection [reader GetOutputPort]
|
||
|
|
thresh SetOutputScalarTypeToUnsignedChar
|
||
|
|
thresh ThresholdByUpper 2000.0
|
||
|
|
thresh SetInValue 255
|
||
|
|
thresh SetOutValue 0
|
||
|
|
thresh ReleaseDataFlagOff
|
||
|
|
|
||
|
|
vtkImageOpenClose3D my_close
|
||
|
|
my_close SetInputConnection [thresh GetOutputPort]
|
||
|
|
my_close SetOpenValue 0
|
||
|
|
my_close SetCloseValue 255
|
||
|
|
my_close SetKernelSize 5 5 3
|
||
|
|
my_close ReleaseDataFlagOff
|
||
|
|
# for coverage (we could compare results to see if they are correct).
|
||
|
|
my_close DebugOn
|
||
|
|
my_close DebugOff
|
||
|
|
my_close GetOutput
|
||
|
|
my_close GetCloseValue
|
||
|
|
my_close GetOpenValue
|
||
|
|
#my_close AddObserver ProgressEvent {set pro [my_close GetProgress]; puts "Completed $pro"; flush stdout}
|
||
|
|
|
||
|
|
vtkImageViewer viewer
|
||
|
|
viewer SetInputConnection [my_close GetOutputPort]
|
||
|
|
viewer SetColorWindow 255
|
||
|
|
viewer SetColorLevel 127.5
|
||
|
|
|
||
|
|
|
||
|
|
viewer Render
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|