0030913: Invalid result of Fusing slices
[occt.git] / tests / bugs / modalg_7 / bug30913_2
1 puts "========"
2 puts "0030913: Invalid result of Fusing slices"
3 puts "========"
4 puts ""
5
6 restore [locate_data_file bug30913_case2.brep] s
7
8 bclearobjects
9 bcleartools
10 set exp [explode s]
11 baddobjects s_1
12 eval baddtools [lrange $exp 1 end]
13
14 # Use gluing Shift option
15 bglue 1
16 # Avoid History filling
17 setfillhistory 0
18
19 bfillds
20 bbop result 1
21
22 checkshape result
23
24 dchrono unify restart
25 unifysamedom result result
26 dchrono unify stop counter UNIFY_SD
27
28 checkshape result
29
30 checkprops result -s 3.89766e+06 -v 1.40733e+08
31 checknbshapes result -vertex 46597 -edge 70375 -wire 24212 -face 23995 -shell 1 -solid 1 -t
32
33 #if {![regexp "This shape seems to be OK" [bopcheck result]]} {
34 #  puts "Error: result is a self-intersecting shape"
35 #}
36
37 checkview -display result -2d -path ${imagedir}/${test_image}.png
38
39 boptions -default