0031835: Modeling Algorithms - step by step Boolean common produces bad shape on...
[occt.git] / tests / bugs / modalg_7 / bug31835_2
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 bfuzzyvalue 1.e-6
14 bnondestructive 1
15 brunparallel 1
16 setfillhistory 0
17
18 bcommon r c1 c2
19 checkshape r
20 if {![regexp "OK" [bopcheck r]]} {
21   puts "Error: r is self-intersecting shape"
22 }
23 checkmaxtol r -ref 2.e-7
24 checknbshapes r -wire 5 -face 5 -shell 1 -solid 1
25 checkprops r -s 160000 -v 5.33333e+06
26
27 bcommon result r c3
28 checkshape result
29 if {![regexp "OK" [bopcheck result]]} {
30   puts "Error: result is self-intersecting shape"
31 }
32 checkmaxtol result -ref 2.e-7
33 checknbshapes result -wire 12 -face 12 -shell 1 -solid 1
34 checkprops result -s 140589 -v 4.68629e+06
35
36 bclearobjects
37 bcleartools
38 baddobjects c1 c2 c3
39 bfillds
40 bcbuild r
41
42 bcremoveall
43 bcadd result1 c1 1 c2 1 c3 1
44
45 boptions -default
46
47 checkprops result1 -equal result
48 checknbshapes result1 -ref [nbshapes result]
49 checkmaxtol result1 -ref 2.e-7
50
51 checkview -display result -2d -path ${imagedir}/${test_image}.png