puts "============"
puts "OCC25354"
puts "============"
puts ""
#######################################################################
# Intersection operation
#######################################################################

# Case 38

box b1 10 10 10 
box b2 10 10 10 
ttranslate b2 5 3 4 

bop b1 b2
bopsection result

checknbshapes result -vertex 6 -edge 6 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 13
checkview -display result -2d -path ${imagedir}/${test_image}.png
