if { [isdraw result] } {
   clear
   smallview
   donly result
   fit
   xwd $imagedir/${test_image}.png
} elseif { [isdraw r] } {
   pload VISUALIZATION
   vinit
   vdisplay r
   vfit
   vdump $imagedir/${test_image}.png
} else {
   puts "Error : the resulting shape is not done."
}
puts "TEST COMPLETED"