forked from Kitware/VTK
-
Notifications
You must be signed in to change notification settings - Fork 0
/
TestShiftScale2.tcl
37 lines (30 loc) · 1.09 KB
/
TestShiftScale2.tcl
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
package require vtk
# Shift and scale an image (in that order)
# This filter is useful for converting to a lower precision data type.
# This script tests the clamp overflow feature.
vtkImageReader reader
[reader GetExecutive] SetReleaseDataFlag 0 0
reader SetDataByteOrderToLittleEndian
reader SetDataExtent 0 63 0 63 1 93
reader SetFilePrefix "$VTK_DATA_ROOT/Data/headsq/quarter"
reader SetDataMask 0x7fff
vtkImageShiftScale shiftScale
shiftScale SetInputConnection [reader GetOutputPort]
shiftScale SetShift -1000.0
shiftScale SetScale 4.0
shiftScale SetOutputScalarTypeToUnsignedShort
shiftScale ClampOverflowOn
vtkImageShiftScale shiftScale2
shiftScale2 SetInputConnection [shiftScale GetOutputPort]
shiftScale2 SetShift 0
shiftScale2 SetScale 2.0
vtkImageMagnify mag
mag SetInputConnection [shiftScale2 GetOutputPort]
mag SetMagnificationFactors 4 4 1
mag InterpolateOff
vtkImageViewer viewer
viewer SetInputConnection [mag GetOutputPort]
viewer SetColorWindow 1024
viewer SetColorLevel 512
#make interface
source [file join [file dirname [info script]] WindowLevelInterface.tcl]