0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug30150
CommitLineData
0fdcb9c9 1puts "========"
2puts "0030150: Modeling Algorithms - Removal of BRepAlgo_BooleanOperations and BRepAlgo_DSAccess classes"
3puts "========"
4puts ""
5
6box b1 10 10 10
7explode b1 f
8shape sx Sh
9foreach f [lrange [explode b1 f] 0 4] { add $f sx }
10
11box b2 -50 -50 30 100 100 10
12explode b2 f
13
14
15draft r1 sx 0 0 1 0.2 b2
16draft r2 sx 0 0 1 0.2 b2_6
17draft r3 sx 0 0 1 0.2 b2 -OUT
18
19foreach r {r1 r2 r3} {
20 checkshape $r
21 if {![regexp "OK" [bopcheck $r]]} {
22 puts "Error: $r is self-interfered shape"
23 }
24}
25
26checkprops r1 -s 25319.3 -v 105060
27checknbshapes r1 -vertex 20 -edge 32 -wire 16 -face 15 -shell 1 -solid 1
28
29checkprops r2 -s 11977.8
30checknbshapes r2 -vertex 16 -edge 24 -wire 11 -face 10 -shell 1 -solid 0
31
32checkprops r3 -s 1975.12 -v 5059.99
33checknbshapes r3 -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1
34
35checkview -display r3 -2d -path ${imagedir}/${test_image}.png