diss_SCHWAIGER.pdf - OPUS Bayreuth - Universität Bayreuth

B Programme
}
- pow($n_,2)] > 0} {
return "$x0 $y0 0"
} else {
return "$xmin $ymin 1"
}
# Exit strategy
# remove temporary files
proc Exit { } {
global data_file_
exec bash -c "rm $data_file_"
exit
}
# Filelist delivered by bash command
set filelist [exec bash -c "ls *.pgm"]
set img_file [lindex $filelist 0]
# create image, read file
image create photo img1 -width 0 -height 0
img1 read $img_file -shrink
canvas .c -cursor crosshair -width [image width img1]\
-height [image height img1]
frame .f2
label .f2.l3 -text " n:"
entry .f2.n -textvariable n_ -width 5
label .f2.l -textvariable text_
button .f2.b1 -text " quit " -command Exit -anchor e
pack .f2 .c -fill x
pack .f2.l3 -side left
pack .f2.n -side left
pack .f2.l -side left -padx 10
pack .f2.b1 -side right
bind .c {%W scan mark %x %y}
bind .c {%W scan dragto %x %y 1}
.c create image 0 0 -image img1 -anchor nw -tags image1
bind .c "IdentParticles %x %y"
bind .c "TraceImages {$filelist}"
114