5 #####################################################
6 ##puts "Checking of function V2DERASE "
7 ##puts "(visual checking for this case is desirable)"
8 #####################################################
24 checkcolor $x_coord $y_coord 0 0 0
27 puts "Object was not erased"