0028245: Result of Cells Builder algorithm becomes invalid after removal of internal...
[occt.git] / tests / boolean / cells_test / K1
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 r1 f1 1 -m 1 -u
32 bcadd r1 f2 1 -m 2 -u
33
34 checknbshapes r1 -face 2
35 checkprops r1 -s 505.482
36
37 bcremoveall
38 bcadd r2 f1 1 -m 1 -u
39 bcadd r2 f2 1 -m 1 -u
40
41 checknbshapes r2 -face 1
42 checkprops r2 -s 505.482
43
44 bcremoveall
45 bcadd result f1 1 -m 1
46 bcadd result f2 1 f3 0 -m 1
47 bcadd result f3 1 f1 0 -m 2
48 bcremoveint result
49
50 set bcheck [bopcheck result]
51 if {![regexp {This shape seems to be OK.} $bcheck]} {
52     puts "Error: result shape is self intersected"
53 }
54
55 checknbshapes result -edge 8 -face 2
56 checkprops result -s 651.238