1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
package require vtk
# Image pipeline
vtkTIFFReader image1
image1 SetFileName "$VTK_DATA_ROOT/Data/beach.tif"
# "beach.tif" image contains ORIENTATION tag which is
# ORIENTATION_TOPLEFT (row 0 top, col 0 lhs) type. The TIFF
# reader parses this tag and sets the internal TIFF image
# orientation accordingly. To overwrite this orientation with a vtk
# convention of ORIENTATION_BOTLEFT (row 0 bottom, col 0 lhs ), invoke
# SetOrientationType method with parameter value of 4.
image1 SetOrientationType 4
image1 Update
vtkStructuredPoints sp
eval sp SetDimensions [[image1 GetOutput] GetDimensions]
eval sp SetExtent [[image1 GetOutput] GetExtent]
eval sp SetScalarType [[image1 GetOutput] GetScalarType] [image1 GetOutputInformation 0]
sp SetNumberOfScalarComponents [[image1 GetOutput] GetNumberOfScalarComponents] [image1 GetOutputInformation 0]
[sp GetPointData] SetScalars [[[image1 GetOutput] GetPointData] GetScalars]
vtkImageLuminance luminance
luminance SetInputData sp
#
# write to the temp directory if possible, otherwise use .
#
set dir "."
if {[info commands "rtTester"] == "rtTester"} {
set dir [rtTester GetTempDirectory]
}
# make sure it is writeable first
if {[catch {set channel [open "$dir/test.tmp" "w"]}] == 0 } {
close $channel
file delete -force "$dir/test.tmp"
vtkTIFFWriter tiff1
tiff1 SetInputConnection [image1 GetOutputPort]
tiff1 SetFileName "$dir/tiff1.tif"
vtkTIFFWriter tiff2
tiff2 SetInputConnection [luminance GetOutputPort]
tiff2 SetFileName "$dir/tiff2.tif"
vtkBMPWriter bmp1
bmp1 SetInputConnection [image1 GetOutputPort]
bmp1 SetFileName "$dir/bmp1.bmp"
vtkBMPWriter bmp2
bmp2 SetInputConnection [luminance GetOutputPort]
bmp2 SetFileName "$dir/bmp2.bmp"
vtkPNMWriter pnm1
pnm1 SetInputConnection [image1 GetOutputPort]
pnm1 SetFileName "$dir/pnm1.pnm"
vtkPNMWriter pnm2
pnm2 SetInputConnection [luminance GetOutputPort]
pnm2 SetFileName "$dir/pnm2.pnm"
vtkPostScriptWriter psw1
psw1 SetInputConnection [image1 GetOutputPort]
psw1 SetFileName "$dir/psw1.ps"
vtkPostScriptWriter psw2
psw2 SetInputConnection [luminance GetOutputPort]
psw2 SetFileName "$dir/psw2.ps"
vtkPNGWriter pngw1
pngw1 SetInputConnection [image1 GetOutputPort]
pngw1 SetFileName "$dir/pngw1.png"
vtkPNGWriter pngw2
pngw2 SetInputConnection [luminance GetOutputPort]
pngw2 SetFileName "$dir/pngw2.png"
vtkJPEGWriter jpgw1
jpgw1 SetInputConnection [image1 GetOutputPort]
jpgw1 SetFileName "$dir/jpgw1.jpg"
vtkJPEGWriter jpgw2
jpgw2 SetInputConnection [luminance GetOutputPort]
jpgw2 SetFileName "$dir/jpgw2.jpg"
tiff1 Write
tiff2 Write
bmp1 Write
bmp2 Write
pnm1 Write
pnm2 Write
psw1 Write
psw2 Write
pngw1 Write
pngw2 Write
jpgw1 Write
jpgw2 Write
file delete -force "$dir/tiff1.tif"
file delete -force "$dir/tiff2.tif"
file delete -force "$dir/bmp1.bmp"
file delete -force "$dir/bmp2.bmp"
file delete -force "$dir/pnm1.pnm"
file delete -force "$dir/pnm2.pnm"
file delete -force "$dir/psw1.ps"
file delete -force "$dir/psw2.ps"
file delete -force "$dir/pngw1.png"
file delete -force "$dir/pngw2.png"
file delete -force "$dir/jpgw1.jpg"
file delete -force "$dir/jpgw2.jpg"
}
vtkImageViewer viewer
viewer SetInputConnection [luminance GetOutputPort]
viewer SetColorWindow 255
viewer SetColorLevel 127.5
viewer Render
|
