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

restore [locate_data_file bug26841c1-prism.brep] p1
restore [locate_data_file bug26841c1-deck.brep] a1

bsection result a1 p1 -n2d2

smallview
donly result
fit
display a1 p1

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

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

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

set expected_MaxTolerance 4.8861509475438473e-005
set tol_abs_MaxTolerance 0.0
set tol_rel_MaxTolerance 0.01
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"
}

checkview -screenshot -2d -path ${imagedir}/${test_image}.png