0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug28245
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