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
642 B
37 lines
642 B
2 years ago
|
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
|
||
|
|
|
||
|
|
|