puts "============"
puts "OCC24646"
puts "============"
puts ""
######################################################
# Wrong result done by Boolean Operation algorithm
######################################################

restore [locate_data_file bug24646_b1.brep] b1
restore [locate_data_file bug24646_b2.brep] b2

nurbsconvert b1 b1
nurbsconvert b2 b2

bclearobjects
bcleartools
baddobjects b1
baddtools b2

bfillds
bbuild result

set square 8.82625e+06

set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 88
 EDGE      : 180
 WIRE      : 88
 FACE      : 88
 SHELL     : 2
 SOLID     : 2
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 449
"
checknbshapes result ${nbshapes_expected} 1 "Result done by Boolean Operation algorithm"

set 2dviewer 1