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 vmoveto 180 350 set x_coord 335 set y_coord 331 checkcolor $x_coord $y_coord 0.8 0.8 0.8 if {$stat != 1} { puts "Error : The right face is NOT highlighted by Move To command." } checkview -screenshot -3d -path ${imagedir}/${test_image}.png