0027928: BOP common produces empty compound
[occt.git] / tests / bugs / modalg_7 / bug27928
1 puts "=============================================================="
2 puts "OCC27928: BOP common produces empty compound"
3 puts "=============================================================="
4
5 restore [locate_data_file bug27928_b1.brep] b1
6 restore [locate_data_file bug27928_b2.brep] b2
7
8 bclearobjects
9 bcleartools
10 baddobjects b1
11 baddtools b2
12 bfillds
13
14 bbop r0 0
15 bbop r1 1
16 bbop r2 2
17 bbop r3 3
18 bbop r4 4
19
20 foreach r {r0 r1 r2 r3 r4} {
21   checkshape $r
22   if {![regexp "OK" [bopcheck $r]]} {
23     puts "Error: the result of BOP is self-interfering shape"
24   }
25 }
26
27 checknbshapes r0 -wire 8 -face 8 -shell 1 -solid 1
28 checkprops r0 -s 21820.6 -v 221499
29
30 checknbshapes r1 -wire 14 -face 14 -shell 1 -solid 1
31 checkprops r1 -s 22455.1 -v 224813
32
33 checknbshapes r2 -wire 5 -face 5 -shell 1 -solid 1
34 checkprops r2 -s 2075.44 -v 1489.33
35
36 checknbshapes r3 -wire 5 -face 5 -shell 1 -solid 1
37 checkprops r3 -s 2521.83 -v 1824.69
38
39 checknbshapes r4 -vertex 12 -edge 18 -t
40 checkprops r4 -l 825.645
41
42 checkview -display r0 -2d -path ${imagedir}/${test_image}.png