puts "============"
puts "OCC26841"
puts "============"
puts ""
###############################
## Wrong result obtained by intersection algorithm.
###############################

restore [locate_data_file bug26841c3-prism.brep] p3
restore [locate_data_file bug26841c3-deck.brep] a3

bsection result a3 p3 -n2d2

smallview
donly result
fit
display a3 p3


set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 10
 EDGE      : 10
 WIRE      : 0
 FACE      : 0
 SHELL     : 0
 SOLID     : 0
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 21
"

checknbshapes result -ref ${nbshapes_expected} -t -m "SECTION"

regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTolerance
puts "MaxTolerance=$MaxTolerance"

set expected_MaxTolerance 0.00010145423883977269
set tol_abs_MaxTolerance 0.0
set tol_rel_MaxTolerance 0.001
checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}

set log [checksection result]

if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
  puts "ERROR: the section is not closed"
} else {
  puts "The section is OK"
}

set only_screen_axo 1