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
|
package require vtk
# This script calculates the luminance of an image
vtkRenderWindow imgWin
imgWin SetSize 512 256
# 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
vtkBMPReader image2
image2 SetFileName "$VTK_DATA_ROOT/Data/masonry.bmp"
# shrink the images to a reasonable size
vtkImageShrink3D color
color SetInputConnection [image1 GetOutputPort]
color SetShrinkFactors 2 2 1
vtkImageShrink3D backgroundColor
backgroundColor SetInputConnection [image2 GetOutputPort]
backgroundColor SetShrinkFactors 2 2 1
# create a greyscale version
vtkImageLuminance luminance
luminance SetInputConnection [color GetOutputPort]
vtkImageLuminance backgroundLuminance
backgroundLuminance SetInputConnection [backgroundColor GetOutputPort]
# create an alpha mask
vtkLookupTable table
table SetTableRange 220 255
table SetValueRange 1 0
table SetSaturationRange 0 0
table Build
vtkImageMapToColors alpha
alpha SetInputConnection [luminance GetOutputPort]
alpha SetLookupTable table
alpha SetOutputFormatToLuminance
# make luminanceAlpha and colorAlpha versions
vtkImageAppendComponents luminanceAlpha
luminanceAlpha AddInputConnection [luminance GetOutputPort]
luminanceAlpha AddInputConnection [alpha GetOutputPort]
vtkImageAppendComponents colorAlpha
colorAlpha AddInputConnection [color GetOutputPort]
colorAlpha AddInputConnection [alpha GetOutputPort]
set foregrounds "luminance luminanceAlpha color colorAlpha"
set backgrounds "backgroundColor backgroundLuminance"
set column 1
set row 1
set deltaX [expr 1.0/4.0]
set deltaY [expr 1.0/2.0]
foreach background $backgrounds {
foreach foreground $foregrounds {
vtkImageBlend blend${row}${column}
blend${row}${column} AddInputConnection [$background GetOutputPort]
if { $background == "backgroundColor" || $foreground == "luminance" || $foreground == "luminanceAlpha" } {
blend${row}${column} AddInputConnection [$foreground GetOutputPort]
blend${row}${column} SetOpacity 1 0.8
}
vtkImageMapper mapper${row}${column}
mapper${row}${column} SetInputConnection [blend${row}${column} GetOutputPort]
mapper${row}${column} SetColorWindow 255
mapper${row}${column} SetColorLevel 127.5
vtkActor2D actor${row}${column}
actor${row}${column} SetMapper mapper${row}${column}
vtkRenderer imager${row}${column}
imager${row}${column} AddActor2D actor${row}${column}
imager${row}${column} SetViewport [expr ($column - 1) * $deltaX] [expr ($row - 1) * $deltaY] [expr $column * $deltaX] [expr $row * $deltaY]
imgWin AddRenderer imager${row}${column}
incr column
}
incr row
set column 1
}
imgWin Render
wm withdraw .
|
