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
|
package require vtk
# Image pipeline
vtkImageCanvasSource2D image1
image1 SetNumberOfScalarComponents 3
image1 SetScalarTypeToUnsignedChar
image1 SetExtent 0 511 0 511 0 0
image1 SetDrawColor 255 255 0
image1 FillBox 0 511 0 511
vtkImageWrapPad pad1
pad1 SetInputConnection [image1 GetOutputPort]
pad1 SetOutputWholeExtent 0 511 0 511 0 99
vtkImageCanvasSource2D image2
image2 SetNumberOfScalarComponents 3
image2 SetScalarTypeToUnsignedChar
image2 SetExtent 0 511 0 511 0 0
image2 SetDrawColor 0 255 255
image2 FillBox 0 511 0 511
vtkImageWrapPad pad2
pad2 SetInputConnection [image2 GetOutputPort]
pad2 SetOutputWholeExtent 0 511 0 511 0 99
vtkImageCheckerboard checkers
checkers SetInput 0 [pad1 GetOutput]
checkers SetInput 1 [pad2 GetOutput]
checkers SetNumberOfDivisions 11 6 2
vtkImageViewer viewer
viewer SetInputConnection [checkers GetOutputPort]
viewer SetZSlice 49
viewer SetColorWindow 255
viewer SetColorLevel 127.5
viewer Render
wm withdraw .
|
