/usr/share/vtk/GUI/Tcl/ProgressEvent.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 | # Halves the size of the image in the x, y and z dimensions.
package require vtk
# Image pipeline
vtkImageReader reader
reader SetDataByteOrderToLittleEndian
reader SetDataExtent 0 255 0 255 1 93
reader SetFilePrefix $VTK_DATA_ROOT/Data/headsq/quarter
reader SetDataMask 0x7fff
vtkImageShrink3D shrink
shrink SetInputConnection [reader GetOutputPort]
shrink SetShrinkFactors 2 2 2
shrink AddObserver ProgressEvent {
.text configure -text "Completed [expr [shrink GetProgress]*100.0] percent"
update
}
shrink AddObserver EndEvent {
.text configure -text "Completed Processing"
update
}
button .run -text "Execute" -command {
shrink Modified
shrink Update
}
label .text -text "Waiting to Process"
pack .run .text
|