puts "============="
puts "BUC60830"
puts "BUC60829"
puts "============="

pload QAcommands
coordload res [locate_data_file cont1.dat]
topoload res
drawcont
side left
mat
result
side right
mat
result
axo
fit
xwd ${imagedir}/${casename}.png
