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.
36 lines
642 B
36 lines
642 B
package require vtk
|
|
|
|
# Image pipeline
|
|
|
|
vtkTIFFReader image1
|
|
image1 SetFileName "$VTK_DATA_ROOT/Data/beach.tif"
|
|
image1 Update
|
|
|
|
#
|
|
# If the current directory is writable, then test the witers
|
|
#
|
|
|
|
if {[catch {set channel [open test.tmp w]}] == 0 } {
|
|
close $channel
|
|
file delete -force test.tmp
|
|
|
|
vtkPImageWriter piw
|
|
piw SetInputConnection [image1 GetOutputPort]
|
|
piw SetFileName piw.raw
|
|
piw SetMemoryLimit 1
|
|
|
|
piw Write
|
|
|
|
file delete -force piw.raw
|
|
}
|
|
|
|
vtkImageViewer viewer
|
|
viewer SetInputConnection [image1 GetOutputPort]
|
|
viewer SetColorWindow 255
|
|
viewer SetColorLevel 127.5
|
|
|
|
wm withdraw .
|
|
|
|
viewer Render
|
|
|
|
|
|
|