puts "========"
puts "0029673: Ex-ception while Face-Face intersection"
puts "========"
puts ""

restore [locate_data_file bug29673_f1.brep] f1
restore [locate_data_file bug29673_f2.brep] f2

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f1 f2 -2d] full Toler NbCurv

if {$Toler > 1.0e-7} {
  puts "Error: too big tolerance"
}

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