File: ProgressEvent.tcl

package info (click to toggle)
vtk7 7.1.1%2Bdfsg2-8
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 127,396 kB
  • sloc: cpp: 1,539,584; ansic: 124,382; python: 78,038; tcl: 47,013; xml: 8,142; yacc: 5,040; java: 4,439; perl: 3,132; lex: 1,926; sh: 1,500; makefile: 126; objc: 83
file content (28 lines) | stat: -rw-r--r-- 754 bytes parent folder | download | duplicates (20)
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