puts "============"
puts "OCC26717"
puts "============"
puts ""
######################################################
# Error in IntPatch_PrmPrmIntersection: change of local resolution leads to break of walking line
######################################################

smallview

set expected_MaxTolerance 2.14e-05
set tol_abs_MaxTolerance 1.e-06
set tol_rel_MaxTolerance 1.e-06

set FileName1 bug26717_xrf1_eval_fuselage.brep
restore [locate_data_file ${FileName1}] a

set FileName2 bug26717_xrf1_eval5_wing.brep
restore [locate_data_file ${FileName2}] b

bfuse r a b

set aList [explode r]

# check 1
if { [llength ${aList}] == 1} {
  puts "OK: Good explode of result"
} else {
  puts "Error: Bad explode of result"
}

# check2
checknbshapes r -solid 1

# check3
checkshape r

# check4
regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance r] full MaxTolerance
checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}

clear
donly r
fit

xwd ${imagedir}/${test_image}.png
