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
|
package require vtk
# This script blends images that consist of float data
vtkRenderWindow imgWin
imgWin SetSize 512 256
# Image pipeline
vtkTIFFReader inputImage
inputImage 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.
inputImage SetOrientationType 4
vtkBMPReader inputImage2
inputImage2 SetFileName "$VTK_DATA_ROOT/Data/masonry.bmp"
# shrink the images to a reasonable size
vtkImageShrink3D shrink1
shrink1 SetInputConnection [inputImage GetOutputPort]
shrink1 SetShrinkFactors 2 2 1
vtkImageShrink3D shrink2
shrink2 SetInputConnection [inputImage2 GetOutputPort]
shrink2 SetShrinkFactors 2 2 1
vtkImageShiftScale color
color SetOutputScalarTypeToFloat
color SetShift 0
color SetScale [expr 1.0/255]
color SetInputConnection [shrink1 GetOutputPort]
vtkImageShiftScale backgroundColor
backgroundColor SetOutputScalarTypeToFloat
backgroundColor SetShift 0
backgroundColor SetScale [expr 1.0/255]
backgroundColor SetInputConnection [shrink2 GetOutputPort]
# create a greyscale version
vtkImageLuminance luminance
luminance SetInputConnection [color GetOutputPort]
vtkImageLuminance backgroundLuminance
backgroundLuminance SetInputConnection [backgroundColor GetOutputPort]
# create an alpha mask
vtkImageThreshold alpha
alpha SetInputConnection [luminance GetOutputPort]
alpha ThresholdByLower 0.9
alpha SetInValue 1.0
alpha SetOutValue 0.0
# 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 1.0
mapper${row}${column} SetColorLevel 0.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 .
|
