0031835: Modeling Algorithms - step by step Boolean common produces bad shape on...
[occt.git] / tests / bugs / modalg_7 / bug31835_1
1 puts "============================================================================================="
2 puts "0031835: Modeling Algorithms - step by step Boolean common produces bad shape on given three cylinders"
3 puts "============================================================================================="
4 puts ""
5
6 plane p1 -200 2.22044604925033e-14 12.6935294289015 1 -1.11022302462516e-16 0
7 pcylinder c1 p1 100 400
8 plane p2 0 0 -187.306470571099 0 0 1
9 pcylinder c2 p2 100 400
10 plane p3 0 200 12.6935294289015 0 -1 1.11022302462516e-16
11 pcylinder c3 p3 100 400
12
13 bcommon r c1 c2
14 checkshape r
15 if {![regexp "OK" [bopcheck r]]} {
16   puts "Error: r is self-intersecting shape"
17 }
18 checkmaxtol r -ref 2.e-7
19 checknbshapes r -wire 5 -face 5 -shell 1 -solid 1
20 checkprops r -s 160000 -v 5.33333e+06
21
22 bcommon result r c3
23 checkshape result
24 if {![regexp "OK" [bopcheck result]]} {
25   puts "Error: result is self-intersecting shape"
26 }
27 checkmaxtol result -ref 2.e-7
28 checknbshapes result -wire 12 -face 12 -shell 1 -solid 1
29 checkprops result -s 140589 -v 4.68629e+06
30
31 bclearobjects
32 bcleartools
33 baddobjects c1 c2 c3
34 bfillds
35 bcbuild r
36
37 bcremoveall
38 bcadd result1 c1 1 c2 1 c3 1
39
40 checkprops result1 -equal result
41 checknbshapes result1 -ref [nbshapes result]
42 checkmaxtol result1 -ref 2.e-7
43
44 checkview -display result -2d -path ${imagedir}/${test_image}.png