File: Arrays.tcl

package info (click to toggle)
vtk 5.8.0-13
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 130,524 kB
  • sloc: cpp: 1,129,256; ansic: 708,203; tcl: 48,526; python: 20,875; xml: 6,779; yacc: 4,208; perl: 3,121; java: 2,788; lex: 931; sh: 660; asm: 471; makefile: 299
file content (88 lines) | stat: -rw-r--r-- 2,578 bytes parent folder | download | duplicates (9)
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
# This example demonstrate the use of VTK data arrays as attribute
# data as well as field data. It creates geometry (vtkPolyData) as
# well as attribute data explicitly.

package require vtk
package require vtkinteraction

# Create a float array which represents the points.
vtkFloatArray pcoords
# Note that by default, an array has 1 component.
# We have to change it to 3 for points
pcoords SetNumberOfComponents 3
# We ask pcoords to allocate room for at least 4 tuples
# and set the number of tuples to 4.
pcoords SetNumberOfTuples 4
# Assign each tuple. There are 5 specialized versions of SetTuple:
# SetTuple1 SetTuple2 SetTuple3 SetTuple4 SetTuple9
# These take 1, 2, 3, 4 and 9 components respectively.
pcoords SetTuple3 0 0.0 0.0 0.0
pcoords SetTuple3 1 0.0 1.0 0.0
pcoords SetTuple3 2 1.0 0.0 0.0
pcoords SetTuple3 3 1.0 1.0 0.0

# Create vtkPoints and assign pcoords as the internal data array.
vtkPoints points
points SetData pcoords

# Create the cells. In this case, a triangle strip with 2 triangles
# (which can be represented by 4 points)
vtkCellArray strips
strips InsertNextCell 4
strips InsertCellPoint 0
strips InsertCellPoint 1
strips InsertCellPoint 2
strips InsertCellPoint 3

# Create an integer array with 4 tuples. Note that when using
# InsertNextValue (or InsertNextTuple1 which is equivalent in
# this situation), the array will expand automatically
vtkIntArray temperature
temperature SetName "Temperature"
temperature InsertNextValue 10
temperature InsertNextValue 20
temperature InsertNextValue 30
temperature InsertNextValue 40

# Create a double array.
vtkDoubleArray vorticity
vorticity SetName "Vorticity"
vorticity InsertNextValue 2.7
vorticity InsertNextValue 4.1
vorticity InsertNextValue 5.3
vorticity InsertNextValue 3.4

# Create the dataset. In this case, we create a vtkPolyData
vtkPolyData polydata
# Assign points and cells
polydata SetPoints points
polydata SetStrips strips
# Assign scalars
[polydata GetPointData] SetScalars temperature
# Add the vorticity array. In this example, this field
# is not used.
[polydata GetPointData] AddArray   vorticity

# Create the mapper and set the appropriate scalar range
# (default is (0,1)
vtkPolyDataMapper mapper
mapper SetInput polydata
mapper SetScalarRange 0 40

# Create an actor.
vtkActor actor
actor SetMapper mapper

# Create the rendering objects.
vtkRenderer ren
ren AddActor actor

vtkRenderWindow renWin
renWin AddRenderer ren

vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
iren AddObserver UserEvent {wm deiconify .vtkInteract}
iren Initialize

wm withdraw .