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

if { [regexp {Debug mode} [dversion]] } {
    set max_time 0.3
} else {
    set max_time 0.15
}

set maxToler 1.5e-5

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

explode b1 f
explode b2 f

dchrono cr restart
set log1 [bopcurves b1_1 b2_1 -2d]
dchrono cr stop counter bopcurves

regexp {Tolerance Reached=+([-0-9.+eE]+)} ${log1} full Toler
puts "TolReached = $Toler"

if { $Toler > $maxToler } {
  puts "Error: Tolerance is too big ($Toler > $maxToler)"
}