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
|
package require vtk
package require vtkinteraction
# append multiple displaced spheres into an RGB image.
# Image pipeline
vtkRenderWindow imgWin
vtkImageEllipsoidSource sphere1
sphere1 SetCenter 40 20 0
sphere1 SetRadius 30 30 0
sphere1 SetInValue .75
sphere1 SetOutValue .3
sphere1 SetOutputScalarTypeToFloat
sphere1 SetWholeExtent 0 99 0 74 0 0
sphere1 Update
vtkImageEllipsoidSource sphere2
sphere2 SetCenter 60 30 0
sphere2 SetRadius 20 20 20
sphere2 SetInValue .2
sphere2 SetOutValue .5
sphere2 SetOutputScalarTypeToFloat
sphere2 SetWholeExtent 0 99 0 74 0 0
sphere2 Update
set mathematics "\
Add \
Subtract \
Multiply \
Divide \
Invert \
Sin \
Cos \
Exp \
Log \
AbsoluteValue \
Square \
SquareRoot \
Min \
Max \
ATAN \
ATAN2 \
MultiplyByK \
ReplaceCByK \
AddConstant"
foreach operator $mathematics {
vtkImageMathematics mathematic${operator}
mathematic${operator} SetInput1Data [sphere1 GetOutput]
mathematic${operator} SetInput2Data [sphere2 GetOutput]
mathematic${operator} SetOperationTo${operator}
mathematic${operator} SetConstantK .3
mathematic${operator} SetConstantC .75
vtkImageMapper mapper${operator}
mapper${operator} SetInputConnection [mathematic${operator} GetOutputPort]
mapper${operator} SetColorWindow 2.0
mapper${operator} SetColorLevel .75
vtkActor2D actor${operator}
actor${operator} SetMapper mapper${operator}
vtkRenderer imager${operator}
imager${operator} AddActor2D actor${operator}
imgWin AddRenderer imager${operator}
}
set column 1
set row 1
set deltaX [expr 1.0/6.0]
set deltaY [expr 1.0/4.0]
foreach operator $mathematics {
imager${operator} SetViewport [expr ($column - 1) * $deltaX] [expr ($row - 1) * $deltaY] [expr $column * $deltaX] [expr $row * $deltaY]
incr column
if { $column > 6 } {set column 1; incr row}
}
# make the last oerator finish the row
set vp [imager${operator} GetViewport]
imager${operator} SetViewport [lindex $vp 0] [lindex $vp 1] 1 1
imgWin SetSize 600 300
imgWin Render
wm withdraw .
|
