puts "========"
puts "OCC26310"
puts "========"
puts ""
#################################################
# Very slow boolean cut operations on cylinders
#################################################

set ExpTol 3.05e-07

set GoodNbCurv 4

restore [locate_data_file OCC26310-b1.brep] b1 
restore [locate_data_file OCC26310-b2.brep] b2

explode b1 f
explode b2 f

set log [bopcurves b1_1 b2_1 -2d]
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv

checkreal ToleranceReached ${Toler} ${ExpTol} 0.0 0.01

if {${NbCurv} != ${GoodNbCurv}} {
  puts "Error: Number of curves is bad!"
}

set log [bopcurves b2_1 b1_1 -2d]
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv

checkreal ToleranceReached ${Toler} ${ExpTol} 0.0 0.01

if {${NbCurv} != ${GoodNbCurv}} {
  puts "Error: Number of curves is bad!"
}