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 x1 102
set y1 199
set Color [vreadpixel ${x1} ${y1} rgb]

vmoveto ${x1} ${y1}
set ColorMove [vreadpixel ${x1} ${y1} rgb]

vselect ${x1} ${y1}
set ColorSelect [vreadpixel ${x1} ${y1} rgb]

if { ${Color} != ${ColorMove} && ${Color} != ${ColorSelect} && ${ColorMove} != ${ColorSelect} } {
  puts "OK ${BugNumber}"
} else {
  puts "Faulty ${BugNumber}"
}

checkprops result -s 24859.6
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
