OCCT

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

#mu4
#fit

compound h1 c1
compound v1 c2

tcopy c1 cc1
tcopy c2 cc2
bcommon int1 cc1 cc2
##########checkshape -top int1
checkshape -top int1

tcopy c1 cc1
tcopy c2 cc2
bcut cut1 cc1 cc2
checkshape -top cut1

tcopy c1 cc1
tcopy c2 cc2
bcut cut2 cc2 cc1
##########checkshape -top cut2
checkshape -top cut2

compound int1 cut1 cut2 comp3
##########checkshape -top comp3
checkshape -top comp3
#donly comp3

tcopy comp3 ccomp3
tcopy h3 ch3
bcommon int2 ccomp3 ch3
##########checkshape -top int2
checkshape -top int2
#donly int2

tcopy comp3 ccomp3
tcopy h3 ch3
bcut cut3 ccomp3 ch3
##########checkshape -top cut3
checkshape -top cut3
#donly cut3

tcopy comp3 ccomp3
tcopy h3 ch3
bcut cut4 ch3 ccomp3
##########checkshape -top cut4
checkshape -top cut4

compound int2 cut3 cut4 result
##########checkshape -top res
checkshape -top result

##########set che [checkshape -top res]
##########
##########set err [lindex $che [expr [llength $che] - 7]]
##########if { $err == "Faulty"} {
##########    puts "Faulty OCC693"
##########} else {
##########  puts "OCC693 OK "
##########}

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