0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug28113_1
CommitLineData
4ccdb6f6 1puts "======="
2puts "OCC28113: BOPAlgo_Builder produces invalid shape"
3puts "======="
4puts ""
5
6
7restore [locate_data_file bug28113_shapes.brep] s
8explode s
9
10# fix the first shape in compound
11# 1. exclude s_1_3 from compsolid
12eval compound [lrange [explode s_1 so] 0 1] [lrange [explode s_1 so] 3 end] comp
13# fix SI in compound
14eval mkvolume v [explode comp f]
15checkshape v
16checknbshapes v -solid 18 -shell 18
17if {![regexp "OK" [bopcheck v]]} {
18 puts "Error: unable to rebuild the shape"
19}
20
21# create Compsolid
22shape s1 CS
23foreach s [explode v so] { add $s s1}
24
25# perform the operation
26bclearobjects
27bcleartools
28baddobjects s1
29baddtools s_2 s_3 s_4 s_5
30bfillds
31bbuild gf
32bsplit result
33
34foreach r {gf result} {
35 checkshape $r
36 if {![regexp "OK" [bopcheck $r]]} {
37 puts "Error: result is a self-interfering shape"
38 }
39}
40
41checknbshapes gf -wire 417 -face 417 -shell 91 -solid 90
42checkprops gf -s 259559 -v 690192
43
44checknbshapes result -wire 417 -face 417 -shell 90 -solid 90
45checkprops result -s 226564 -v 669028
46
47checkview -display result -2d -path ${imagedir}/${test_image}.png