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
|
package require vtk
vtkGlobFileNames globFileNames
globFileNames AddFileNames "$VTK_DATA_ROOT/Data/headsq/quarter.*\[0-9\]"
vtkSortFileNames sortFileNames
sortFileNames SetInputFileNames [globFileNames GetFileNames]
sortFileNames NumericSortOn
vtkImageReader2 reader
reader SetFileNames [sortFileNames GetFileNames]
reader SetDataExtent 0 63 0 63 1 1
reader SetDataByteOrderToLittleEndian
# set Z slice to 2: if output is not numerically sorted, the wrong
# slice will be shown
vtkImageViewer viewer
viewer SetInputConnection [reader GetOutputPort]
viewer SetZSlice 2
viewer SetColorWindow 2000
viewer SetColorLevel 1000
[viewer GetRenderer] SetBackground 0 0 0
viewer Render
reader Delete
|
