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
