0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29580_1
1 puts "========"
2 puts "OCC29580"
3 puts "========"
4 puts ""
5 #################################################
6 # Regression: invalid result of BOP Fuse
7 #################################################
8
9 restore [locate_data_file bug29580_Cylinder.brep] b1
10 restore [locate_data_file bug29580_Solid.brep] b2
11
12 bfuse result b1 b2
13
14 foreach f [explode result f] {
15   explode $f w
16   foreach w [explode $f w] {
17     if {[regexp "A self-intersecting wire" [checkselfintersection $w $f]]} {
18       puts "Error: BOP produces a face with self-intersecting wire"
19     }
20   }
21 }
22
23 checkshape result
24 checknbshapes result -wire 11 -face 10 -shell 1 -solid 1
25 checkprops result -s 865.851 -v 1622.17
26
27 checkview -display result -2d -path ${imagedir}/${test_image}.png