1 puts "================"
3 puts "================"
5 ###################################################
6 ## The boolean operations give incorrect result if one of shapes is compound
7 ## consisting of several adjoint solids
8 ####################################################
10 box h1 234 52 0 41 98 40
11 box v1 241 136 20 31 31 15
12 box h3 215 120 20 78 15 15
23 ##########checkshape -top int1
34 ##########checkshape -top cut2
37 compound int1 cut1 cut2 comp3
38 ##########checkshape -top comp3
44 bcommon int2 ccomp3 ch3
45 ##########checkshape -top int2
52 ##########checkshape -top cut3
59 ##########checkshape -top cut4
62 compound int2 cut3 cut4 result
63 ##########checkshape -top res
64 checkshape -top result
66 ##########set che [checkshape -top res]
68 ##########set err [lindex $che [expr [llength $che] - 7]]
69 ##########if { $err == "Faulty"} {
70 ########## puts "Faulty OCC693"
72 ########## puts "OCC693 OK "
75 checkprops result -s 33196
77 checkview -display result -2d -path ${imagedir}/${test_image}.png