0026841: Boolean operation "bsection" produce invalid result on the attached cases
[occt.git] / tests / bugs / modalg_6 / bug26841_2
1 puts "============"
2 puts "OCC26841"
3 puts "============"
4 puts ""
5 ###############################
6 ## Wrong result obtained by intersection algorithm.
7 ###############################
8
9 restore [locate_data_file bug26841c3-prism.brep] p3
10 restore [locate_data_file bug26841c3-deck.brep] a3
11
12 bsection result a3 p3 -n2d2
13
14 smallview
15 donly result
16 fit
17 display a3 p3
18
19
20 set nbshapes_expected "
21 Number of shapes in shape
22  VERTEX    : 10
23  EDGE      : 10
24  WIRE      : 0
25  FACE      : 0
26  SHELL     : 0
27  SOLID     : 0
28  COMPSOLID : 0
29  COMPOUND  : 1
30  SHAPE     : 21
31 "
32
33 checknbshapes result -ref ${nbshapes_expected} -t -m "SECTION"
34
35 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTolerance
36 puts "MaxTolerance=$MaxTolerance"
37
38 set expected_MaxTolerance 0.00010145423883977269
39 set tol_abs_MaxTolerance 0.0
40 set tol_rel_MaxTolerance 0.001
41 checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
42
43 set log [checksection result]
44
45 if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
46   puts "ERROR: the section is not closed"
47 } else {
48   puts "The section is OK"
49 }
50
51 set only_screen_axo 1