puts "==================================" puts "BUC60569" puts "OCC597" puts "==================================" puts "" puts "==================================" puts "It takes visual check for this BUG" puts "==================================" puts "" restore [locate_data_file buc60569a.rle] result tclean result vinit checkshape result BUC60569 result vfit vselect 250 190 vselect 180 350 1 vmoveto 250 190 vmoveto 180 350 vselect 390 390 vselect 250 190 1 vselect 180 350 1 vmoveto 250 190 set x_coord 335 set y_coord 331 checkcolor $x_coord $y_coord 0 1 1 if {$stat != 1} { puts "Error : The right face is NOT highlighted by Move To command." } set only_screen 1