clear
smallview
if { [isdraw result] } {
   donly result
} else {
   puts "Error : the resulting shape is not done."
}
fit
xwd $imagedir/${test_image}.png
puts "TEST COMPLETED"
