puts "============"
puts "OCC13538"
puts "============"
puts ""
#######################################################################
# Problem with Boolean operation on Shells
#######################################################################

box a 100 100 100
box b 100 100 100
ttranslate b 0 0 100
explode a Sh
explode b Sh

bop a_1 b_1
bopcommon result

checkprops result -s 20000
checkshape result
checknbshapes result -vertex 4 -edge 4 -wire 1 -face 1 -shell 2 -solid 0 -compsolid 0 -compound 1 -shape 13
set 2viewer 0