puts "============"
puts "OCC6652"
puts "============"
puts ""
######################################################
# Problem of mesh selection
######################################################

pload XDE
set BugNumber OCC6652

vinit

meshfromstl result [locate_data_file OCC6652.stl]

vsetdispmode result 3
vselmode result 8 1

vselect 5 5 400 400

if {[vnbselected] != 26966} {
   puts "Faulty ${BugNumber}"
}

set only_screen 1