1puts "================"
2puts "OCC693"
3puts "================"
4puts ""
5###################################################
6## The boolean operations give incorrect result if one of shapes is compound
7## consisting of several adjoint solids
8####################################################
9
10box h1 234 52 0 41 98 40
11box v1 241 136 20 31 31 15
12box h3 215 120 20 78 15 15
13
14#mu4
15#fit
16
17compound h1 c1
18compound v1 c2
19
20tcopy c1 cc1
21tcopy c2 cc2
22bcommon int1 cc1 cc2
23##########checkshape -top int1
24checkshape -top int1
25
26tcopy c1 cc1
27tcopy c2 cc2
28bcut cut1 cc1 cc2
29checkshape -top cut1
30
31tcopy c1 cc1
32tcopy c2 cc2
33bcut cut2 cc2 cc1
34##########checkshape -top cut2
35checkshape -top cut2
36
37compound int1 cut1 cut2 comp3
38##########checkshape -top comp3
39checkshape -top comp3
40#donly comp3
41
42tcopy comp3 ccomp3
43tcopy h3 ch3
44bcommon int2 ccomp3 ch3
45##########checkshape -top int2
46checkshape -top int2
47#donly int2
48
49tcopy comp3 ccomp3
50tcopy h3 ch3
51bcut cut3 ccomp3 ch3
52##########checkshape -top cut3
53checkshape -top cut3
54#donly cut3
55
56tcopy comp3 ccomp3
57tcopy h3 ch3
58bcut cut4 ch3 ccomp3
59##########checkshape -top cut4
60checkshape -top cut4
61
62compound int2 cut3 cut4 result
63##########checkshape -top res
64checkshape -top result
65
66##########set che [checkshape -top res]
67##########
68##########set err [lindex $che [expr [llength $che] - 7]]
69##########if { $err == "Faulty"} {
70##########    puts "Faulty OCC693"
71##########} else {
72##########  puts "OCC693 OK "
73##########}
74
75checkprops result -s 33196
76checkshape result
77checkview -display result -2d -path ${imagedir}/${test_image}.png
78