0025937: Failed Cut Edge or Face by HalfSpace.
[occt.git] / tests / bugs / modalg_6 / bug26098
1 puts "============"
2 puts "OCC26098"
3 puts "============"
4 puts ""
5 ###############################
6 ## The result of General Fuse operation is self-interfered shape
7 ###############################
8
9 restore [locate_data_file bug26098_c.brep ] c
10
11 explode c
12
13 bclearobjects
14 bcleartools
15 baddobjects c_1
16 baddtools c_2 c_3 c_4 c_5
17
18 bfillds
19 bbuild result
20
21 set info [bopcheck result]
22
23 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
24     puts "Error : The result of General Fuse operation is self-interfered shape"
25 }
26
27 set square 173.444
28
29 set nbshapes_expected "
30 Number of shapes in shape
31  VERTEX    : 230
32  EDGE      : 400
33  WIRE      : 196
34  FACE      : 185
35  SHELL     : 20
36  SOLID     : 20
37  COMPSOLID : 0
38  COMPOUND  : 1
39  SHAPE     : 1052
40 "
41
42 checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by General Fuse operator"
43
44 set 3dviewer 1