/usr/share/vtk/DataManipulation/Tcl/Arrays.tcl is in vtk-examples 5.8.0-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 .
|