puts "TODO CR29596 ALL: Warning: Intersection of pair of shapes has failed"
puts "TODO OCC11111 ALL: Error :  is WRONG because number of "

puts "============"
puts "OCC10160"
puts "============"
puts ""
#######################################################################
# BOP perfomance improvemen
#######################################################################

set BugNumber OCC10160

restore [locate_data_file OCC10160-1.brep] b1 
restore [locate_data_file OCC10160-2.brep] b2 

set NbTests 3

dchrono h0 restart

bop b1 b2
dchrono h0 stop counter bop

puts "Start boolean operation ..."
dchrono h restart
#
# BOOLEAN OPERATION ----- START
#
for {set i 1} {$i <= ${NbTests}} {incr i} {
   bopcommon result
}
#
# BOOLEAN OPERATION ----- FINISH
#
dchrono h stop counter bopcommon

checkprops result -s 1.30062e+07 
checkshape result

# Analysis of "nbshapes res"
checknbshapes result -vertex 20 -edge 28 -wire 16 -face 15 -shell 3 -solid 3 -compsolid 0 -compound 1 -shape 86
checkview -display result -2d -path ${imagedir}/${test_image}.png
