puts "================"
puts "OCC693"
puts "================"
puts ""
###################################################
## The boolean operations give incorrect result if one of shapes is compound 
## consisting of several adjoint solids
####################################################

box h1 234 52 0 41 98 40
box v1 241 136 20 31 31 15
box h3 215 120 20 78 15 15

compound h1 c1
compound v1 c2

tcopy c1 cc1
tcopy c2 cc2

bop cc1 cc2
bopcommon int1

checkshape -top int1

tcopy c1 cc1
tcopy c2 cc2

bop cc1 cc2
bopcut cut1

checkshape -top cut1

tcopy c1 cc1
tcopy c2 cc2

bop cc2 cc1
bopcut cut2

checkshape -top cut2

compound int1 cut1 cut2 comp3

checkshape -top comp3

tcopy comp3 ccomp3
tcopy h3 ch3

bop ccomp3 ch3
bopcommon int2

checkshape -top int2

tcopy comp3 ccomp3
tcopy h3 ch3

bop ccomp3 ch3
bopcut cut3

checkshape -top cut3

tcopy comp3 ccomp3
tcopy h3 ch3

bop ch3 ccomp3
bopcut cut4

checkshape -top cut4

compound int2 cut3 cut4 result

checkshape -top result

checkprops result -s 33196 
checkshape result
checkview -display result -3d -path ${imagedir}/${test_image}.png