File: TestChangeInformation.tcl

package info (click to toggle)
paraview 4.0.1-1~bpo70%2B1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy-backports
  • size: 526,572 kB
  • sloc: cpp: 2,284,430; ansic: 816,374; python: 239,936; xml: 70,162; tcl: 48,295; fortran: 39,116; yacc: 5,466; java: 3,518; perl: 3,107; lex: 1,620; sh: 1,555; makefile: 932; asm: 471; pascal: 228
file content (33 lines) | stat: -rw-r--r-- 1,034 bytes parent folder | download | duplicates (4)
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
package require vtk

# In this example, an image is centered at (0,0,0) before a
# rotation is applied to ensure that the rotation occurs about
# the center of the image.

vtkPNGReader reader
reader SetDataSpacing 0.8 0.8 1.5
reader SetFileName "$VTK_DATA_ROOT/Data/fullhead15.png"

# first center the image at (0,0,0)
vtkImageChangeInformation information
information SetInputConnection [reader GetOutputPort]
information CenterImageOn

vtkImageReslice reslice
reslice SetInputConnection [information GetOutputPort]
reslice SetResliceAxesDirectionCosines 0.866025 -0.5 0  0.5 0.866025 0  0 0 1
reslice SetInterpolationModeToCubic

# reset the image back to the way it was (you don't have
# to do this, it is just put in as an example)
vtkImageChangeInformation information2
information2 SetInputConnection [reslice GetOutputPort]
information2 SetInformationInputData [reader GetOutput]

vtkImageViewer viewer
viewer SetInputConnection [information2 GetOutputPort]
viewer SetColorWindow 2000
viewer SetColorLevel 1000
viewer Render