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