This file is indexed.

/usr/lib/vtk-5.8/tcl/vtktesting/backdrop.tcl is in tcl-vtk 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
proc BuildBackdrop {minX maxX minY maxY minZ maxZ thickness} {
    if { [info command basePlane] == "" } {vtkCubeSource basePlane;}
    basePlane SetCenter [expr ($maxX + $minX) / 2.0] $minY [expr ($maxZ + $minZ) / 2.0] 
    basePlane SetXLength [expr ($maxX - $minX)]
    basePlane SetYLength $thickness
    basePlane SetZLength [expr ($maxZ - $minZ)]

    if { [info command baseMapper] == "" } {vtkPolyDataMapper baseMapper;}
     baseMapper SetInput [basePlane GetOutput]
    if { [info command base] == "" } {vtkActor base;}
     base SetMapper baseMapper

    if { [info command backPlane] == "" } {vtkCubeSource backPlane;}
    backPlane SetCenter [expr ($maxX + $minX) / 2.0] [expr ($maxY + $minY) / 2.0]  $minZ
    backPlane SetXLength [expr ($maxX - $minX)]
    backPlane SetYLength [expr ($maxY - $minY)]
    backPlane SetZLength $thickness

    if { [info command backMapper] == "" } {vtkPolyDataMapper backMapper;}
     backMapper SetInput [backPlane GetOutput]
    if { [info command back] == "" } {vtkActor back;}
   back SetMapper backMapper

    if { [info command leftPlane] == "" } {vtkCubeSource leftPlane;}
    leftPlane SetCenter $minX [expr ($maxY + $minY) / 2.0] [expr ($maxZ + $minZ) / 2.0]
    leftPlane SetXLength $thickness
    leftPlane SetYLength [expr ($maxY - $minY)]
    leftPlane SetZLength [expr ($maxZ - $minZ)]

    if { [info command leftMapper] == "" } {vtkPolyDataMapper leftMapper;}
     leftMapper SetInput [leftPlane GetOutput]
    if { [info command left] == "" } {vtkActor left;}
     left SetMapper leftMapper

}