puts "============"
puts "OCC25819"
puts "============"
puts ""
######################################################
# Bad result of BOP cut on valid shapes
######################################################

restore [locate_data_file bug25819_3_BodyA.brep] a
restore [locate_data_file bug25819_3_BodyB.brep] b

bcut result a b

set square 67742.9

set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 99
 EDGE      : 136
 WIRE      : 49
 FACE      : 36
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 323
"
checknbshapes result ${nbshapes_expected} 1 "Result of BOP cut"

set 2dviewer 1