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
|
# Show the constant kernel. Smooth an impulse function.
package require vtk
vtkImageCanvasSource2D s1
s1 SetScalarTypeToFloat
s1 SetExtent 0 255 0 255 0 0
s1 SetDrawColor 0
s1 FillBox 0 255 0 255
s1 SetDrawColor 2.0
s1 FillTriangle 10 100 190 150 40 250
s1 Update
vtkImageCanvasSource2D s2
s2 SetScalarTypeToFloat
s2 SetExtent 0 31 0 31 0 0
s2 SetDrawColor 0.0
s2 FillBox 0 31 0 31
s2 SetDrawColor 2.0
s2 FillTriangle 10 1 25 10 1 5
s2 Update
vtkImageCorrelation convolve
convolve SetDimensionality 2
convolve SetInput1Data [s1 GetOutput]
convolve SetInput2Data [s2 GetOutput]
vtkImageViewer viewer
viewer SetInputConnection [convolve GetOutputPort]
viewer SetColorWindow 256
viewer SetColorLevel 127.5
viewer Render
|
