puts "======="
puts "0029237"
puts "======="
puts ""
##################################################
# Improve performance of Boolean Operations
##################################################

brestore [locate_data_file bug29237_dom8364_s32_c2.lhs.brep] a
brestore [locate_data_file bug29237_dom8364_s32_c2.rhs.brep] b

bglue 1
bcheckinverted 0
buseobb 1
setfillhistory 0

bclearobjects
bcleartools
baddobjects a
baddtools b

# start chronometer
dchrono cpu restart
bfillds

bcbuild r

# build the result of cut
bcremoveall
bcadd rcut a 1 b 0

# build the result of common
bcremoveall
bcadd rcommon a 1 b 1

# stop chronometer
dchrono cpu stop counter OCC29237

# restore default options
boptions -default
setfillhistory 1

# check the result of CUT
checkshape rcut
checknbshapes rcut -vertex 7374 -edge 13894 -wire 4944 -face 4711 -shell 29 -solid 29
checkprops rcut -s 5.81474e+006 -v 1.32791e+007

# check the result of COMMON
checkshape rcommon
checknbshapes rcommon -vertex 6454 -edge 9662 -wire 4462 -face 4462 -shell 627 -solid 627
checkprops rcommon -s 1.81935e+006 -v 1.6368e+006