f1aa2b62 |
1 | puts "================" |
2 | puts "OCC693" |
3 | puts "================" |
4 | puts "" |
5 | ################################################### |
6 | ## The boolean operations give incorrect result if one of shapes is compound |
7 | ## consisting of several adjoint solids |
8 | #################################################### |
9 | |
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 |
13 | |
14 | #mu4 |
15 | #fit |
16 | |
17 | compound h1 c1 |
18 | compound v1 c2 |
19 | |
20 | tcopy c1 cc1 |
21 | tcopy c2 cc2 |
22 | bcommon int1 cc1 cc2 |
23 | ##########checkshape -top int1 |
352ffd73 |
24 | checkshape -top int1 |
f1aa2b62 |
25 | |
26 | tcopy c1 cc1 |
27 | tcopy c2 cc2 |
28 | bcut cut1 cc1 cc2 |
352ffd73 |
29 | checkshape -top cut1 |
f1aa2b62 |
30 | |
31 | tcopy c1 cc1 |
32 | tcopy c2 cc2 |
33 | bcut cut2 cc2 cc1 |
34 | ##########checkshape -top cut2 |
352ffd73 |
35 | checkshape -top cut2 |
f1aa2b62 |
36 | |
37 | compound int1 cut1 cut2 comp3 |
38 | ##########checkshape -top comp3 |
352ffd73 |
39 | checkshape -top comp3 |
f1aa2b62 |
40 | #donly comp3 |
41 | |
42 | tcopy comp3 ccomp3 |
43 | tcopy h3 ch3 |
44 | bcommon int2 ccomp3 ch3 |
45 | ##########checkshape -top int2 |
352ffd73 |
46 | checkshape -top int2 |
f1aa2b62 |
47 | #donly int2 |
48 | |
49 | tcopy comp3 ccomp3 |
50 | tcopy h3 ch3 |
51 | bcut cut3 ccomp3 ch3 |
52 | ##########checkshape -top cut3 |
352ffd73 |
53 | checkshape -top cut3 |
f1aa2b62 |
54 | #donly cut3 |
55 | |
56 | tcopy comp3 ccomp3 |
57 | tcopy h3 ch3 |
58 | bcut cut4 ch3 ccomp3 |
59 | ##########checkshape -top cut4 |
352ffd73 |
60 | checkshape -top cut4 |
f1aa2b62 |
61 | |
62 | compound int2 cut3 cut4 result |
63 | ##########checkshape -top res |
352ffd73 |
64 | checkshape -top result |
f1aa2b62 |
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 | |
58cf74e0 |
75 | checkprops result -s 33196 |
76 | checkshape result |
5747059b |
77 | checkview -display result -2d -path ${imagedir}/${test_image}.png |