pload QAcommands puts "================" puts "OCC22039" puts "================" puts "" ####################################################################################### # Incorrect interactive detection (highlights) of elements ###################################################################################### set BugNumber OCC22039 restore [locate_data_file OCC12121-CrankArm.brep] result vinit vsetdispmode 1 vdisplay result vfit set x1 101 set y1 199 set Color [QAGetPixelColor ${x1} ${y1}] vmoveto ${x1} ${y1} set ColorMove [QAGetPixelColor ${x1} ${y1}] vselect ${x1} ${y1} set ColorSelect [QAGetPixelColor ${x1} ${y1}] set Color_Status 0 if { ${Color} != ${ColorMove} && ${Color} != ${ColorSelect} && ${ColorMove} != ${ColorSelect} } { set Color_Status 0 } else { set Color_Status 1 } # Resume puts "" if { ${Color_Status} != 0} { puts "Faulty ${BugNumber}" } else { puts "OK ${BugNumber}" } set square 24859.6 set only_screen 1