9026dea8 |
1 | puts "========" |
2 | puts "OCC28245" |
3 | puts "========" |
4 | puts "" |
5 | ################################################################################################# |
6 | # Result of Cells Builder algorithm becomes invalid after removal of internal boundaries on faces |
7 | ################################################################################################# |
8 | |
9 | circle c1 0 0 0 0 0 1 10 |
10 | circle c2 10 0 0 0 0 1 10 |
11 | circle c3 5 9 0 0 0 1 10 |
12 | |
13 | mkedge e1 c1 |
14 | mkedge e2 c2 |
15 | mkedge e3 c3 |
16 | |
17 | wire w1 e1 |
18 | wire w2 e2 |
19 | wire w3 e3 |
20 | |
21 | mkplane f1 w1 |
22 | mkplane f2 w2 |
23 | mkplane f3 w3 |
24 | |
25 | bclearobjects |
26 | bcleartools |
27 | baddobjects f1 f2 f3 |
28 | bfillds |
29 | bcbuild rx |
30 | |
31 | bcadd res f1 1 -m 1 |
32 | bcadd res f2 1 f3 0 -m 1 |
33 | bcadd res f3 1 f1 0 -m 2 |
34 | |
35 | bopcheck res |
36 | if {![regexp "This shape seems to be OK" [bopcheck res]]} { |
37 | puts "Error: Result of Cells Builder algorithm is invalid" |
38 | } |
39 | checkview -display res -2d -path ${imagedir}/${test_image}-1.png |
40 | |
41 | bcremoveint res |
42 | if {![regexp "This shape seems to be OK" [bopcheck res]]} { |
43 | puts "Error: Result of Cells Builder algorithm becomes invalid after removal of internal boundaries on faces" |
44 | } |
45 | checkview -display res -2d -path ${imagedir}/${test_image}-2.png |