352ffd73 |
1 | puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" |
2 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
3 | |
4 | puts "================" |
5 | puts "OCC693" |
6 | puts "================" |
7 | puts "" |
8 | ################################################### |
9 | ## The boolean operations give incorrect result if one of shapes is compound |
10 | ## consisting of several adjoint solids |
11 | #################################################### |
12 | |
13 | box h1 234 52 0 41 98 40 |
14 | box v1 241 136 20 31 31 15 |
15 | box h3 215 120 20 78 15 15 |
16 | |
17 | compound h1 c1 |
18 | compound v1 c2 |
19 | |
20 | tcopy c1 cc1 |
21 | tcopy c2 cc2 |
22 | |
23 | bop cc1 cc2 |
24 | bopcommon int1 |
25 | |
26 | checkshape -top int1 |
27 | |
28 | tcopy c1 cc1 |
29 | tcopy c2 cc2 |
30 | |
31 | bop cc1 cc2 |
32 | bopcut cut1 |
33 | |
34 | checkshape -top cut1 |
35 | |
36 | tcopy c1 cc1 |
37 | tcopy c2 cc2 |
38 | |
39 | bop cc2 cc1 |
40 | bopcut cut2 |
41 | |
42 | checkshape -top cut2 |
43 | |
44 | compound int1 cut1 cut2 comp3 |
45 | |
46 | checkshape -top comp3 |
47 | |
48 | tcopy comp3 ccomp3 |
49 | tcopy h3 ch3 |
50 | |
51 | bop ccomp3 ch3 |
52 | bopcommon int2 |
53 | |
54 | checkshape -top int2 |
55 | |
56 | tcopy comp3 ccomp3 |
57 | tcopy h3 ch3 |
58 | |
59 | bop ccomp3 ch3 |
60 | bopcut cut3 |
61 | |
62 | checkshape -top cut3 |
63 | |
64 | tcopy comp3 ccomp3 |
65 | tcopy h3 ch3 |
66 | |
67 | bop ch3 ccomp3 |
68 | bopcut cut4 |
69 | |
70 | checkshape -top cut4 |
71 | |
72 | compound int2 cut3 cut4 result |
73 | |
74 | checkshape -top result |
75 | |
76 | set square 33196 |
77 | set 3dviewer 1 |
78 | |