3 puts "================"
5 puts "================"
7 #######################################################################################
8 # Incorrect interactive detection (highlights) of elements
9 ######################################################################################
11 set BugNumber OCC22039
13 restore [locate_data_file OCC12121-CrankArm.brep] result
22 set Color [QAGetPixelColor ${x1} ${y1}]
25 set ColorMove [QAGetPixelColor ${x1} ${y1}]
28 set ColorSelect [QAGetPixelColor ${x1} ${y1}]
31 if { ${Color} != ${ColorMove} && ${Color} != ${ColorSelect} && ${ColorMove} != ${ColorSelect} } {
39 if { ${Color_Status} != 0} {
40 puts "Faulty ${BugNumber}"
42 puts "OK ${BugNumber}"