You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
1.5 KiB
35 lines
1.5 KiB
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
|
|
|
|
}
|
|
|