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
|
package require vtk
# A script to test the threshold filter.
# Values above 2000 are set to 255.
# Values below 2000 are set to 0.
# Image pipeline
vtkImageCanvasSource2D imageCanvas
imageCanvas SetScalarTypeToUnsignedChar
imageCanvas SetNumberOfScalarComponents 3
imageCanvas SetExtent 0 300 0 300 0 0
# background black
imageCanvas SetDrawColor 0
imageCanvas FillBox 0 511 0 511
vtkJPEGReader jreader
jreader SetFileName "$VTK_DATA_ROOT/Data/beach.jpg"
jreader Update
imageCanvas DrawImage 100 100 [ jreader GetOutput ] 0 0 300 300
imageCanvas DrawImage 0 100 [ jreader GetOutput ]
imageCanvas DrawImage 100 0 [ jreader GetOutput ] 0 0 300 300
imageCanvas DrawImage 0 0 [ jreader GetOutput ] 50 50 100 100
imageCanvas DrawImage 10 10 [ jreader GetOutput ] 50 50 100 100
imageCanvas DrawImage 20 20 [ jreader GetOutput ] 50 50 100 100
imageCanvas DrawImage 30 30 [ jreader GetOutput ] 50 50 100 100
imageCanvas DrawImage 40 40 [ jreader GetOutput ] 50 50 100 100
imageCanvas DrawImage 50 50 [ jreader GetOutput ] 50 50 100 100
imageCanvas DrawImage 60 60 [ jreader GetOutput ] 50 50 100 100
imageCanvas DrawImage 70 70 [ jreader GetOutput ] 50 50 100 100
vtkImageViewer viewer
viewer SetInputConnection [imageCanvas GetOutputPort]
viewer SetColorWindow 255
viewer SetColorLevel 128
viewer Render
|
