if { [array get env os_type] != "" } { set os $env(os_type) } if { [string compare $os "windows"] != 0 } { } 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 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 Selected by Shift Select command" } vselect 180 350 1 set x_coord 101 set y_coord 347 checkcolor $x_coord $y_coord 0.8 0.8 0.8 if {$stat != 1} { puts "Error : The left face is Selected by Shift Select command" } set only_screen 1