puts "========"
puts "0024676: Wrong result done by intersection algorithm"
puts "========"
puts ""

restore [locate_data_file bug24676_b2.brep] b2

for {set i 1} { $i <= 6} {incr i} {
  restore [locate_data_file bug24676_b1_${i}.brep] b1_$i
  set log [bopcurves b1_$i b2]
  regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} $log full Toler NbCurv
  if {$NbCurv != 1} {
    puts "Error: Number of curves is wrong"
  }
}