0028245: Result of Cells Builder algorithm becomes invalid after removal of internal...
[occt.git] / tests / boolean / cells_test / D5
1 puts "========"
2 puts "OCC26798"
3 puts "========"
4 puts ""
5 #######################################################################
6 # Boolean operations: keep desired cells and boundaries in the result
7 #######################################################################
8
9 smallview
10
11 circle c1 0 10 0 15
12 circle c2 20 10 0 15
13 circle c3 10 0 0 15
14 mkedge e1 c1
15 mkedge e2 c2
16 mkedge e3 c3
17 wire w1 e1
18 wire w2 e2
19 wire w3 e3
20 mkplane f1 w1
21 mkplane f2 w2
22 mkplane f3 w3
23
24 donly f1 f2 f3
25 fit
26
27 bclearobjects
28 bcleartools
29 baddobjects f1 f2
30 baddtools f3
31 bfillds
32 bcbuild r
33
34 bcremoveall
35 bcadd result f1 1 f2 0 f3 0 -m 1
36 bcadd result f1 1 f2 0 f3 1 -m 1
37 bcadd result f1 1 f2 1 f3 0 -m 2
38 bcadd result f1 1 f2 1 f3 1 -m 2
39 bcadd result f1 0 f2 1 f3 1 -m 2
40 bcremoveint result
41
42 if {![regexp {This shape seems to be OK.} [bopcheck result]]} {
43     puts "Error: result shape is self intersected"
44 }
45
46 donly result
47 fit
48
49 checkprops result -s 882.85
50