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

restore [locate_data_file bug28165_shapes3.brep] c

# fuse the shapes
bclearobjects
bcleartools
baddobjects {*}[explode c so]
bfillds

# remove all internal faces to make only one solid
bcbuild rx
bcaddall result -m 1 -u

checkshape result
checknbshapes result -edge 1400 -face 506 -solid 1
checkprops result -v 4.69342e+007 -s 1.38778e+006

checkview -display result -2d -path ${imagedir}/${test_image}.png