puts "=========="
puts "OCC24968"
puts "=========="
puts ""
#####################################
# Impove BRepMesh_Classifier to cope with intersection of huge number of wires
#####################################

cpulimit 2500

restore [locate_data_file bug24968_Shape_1.brep] result

tclean result
dchrono h reset
dchrono h start
incmesh result 0.1
dchrono h stop

set info [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} ${info} full cpu_time

if { [regexp {Debug mode} [dversion]] } {
  if { [regexp {Windows} [dversion]] } {
    set max_time 2500
  } else {
    set max_time 2500
  }
} else {
  if { [regexp {Windows} [dversion]] } {
    set max_time 100
  } else {
    set max_time 250
  }
}

if { ${cpu_time} > ${max_time} } {
    puts "Error : meshing is slow"
} else {
    puts "OK: meshing is quite fast"
}

vinit
vdisplay result
vfit
vsetdispmode 1

set only_screen 1
