puts "========"
puts "OCC28764"
puts "========"
puts ""
#################################################
# [Regression to 7.0] Intersection of faces gives exception in debug mode
#################################################

restore [locate_data_file bug28764_ff.brep] f
explode f

####

axo
don f
fit

# Before the fix: Exception in Debug-mode only
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f_1 f_2 -2d] full Toler NbCurv

checkreal Tolerance $Toler 4.601149532364662e-008 1.0e-7 0.0

if {$NbCurv != 1} {
  puts "Error: Please check NbCurves for intersector"
}

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