tests/bugs/mesh/bug24022

   1 puts "=========="
   2 puts "OCC24022"
   3 puts "=========="
   4 puts ""
   5 #####################################
   6 # Slow meshing in BRepMesh
   7 #####################################
   8
   9 restore [locate_data_file bug24022_hung_mesh.brep] result
  10 tclean result
  11 dchrono h reset
  12 dchrono h start
  13 incmesh result 0.1
  14 dchrono h stop
  15 set info [dchrono h show]
  16 regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time
  17 if { $cpu_time > 3. } {
  18     puts "Error : meshing is slow"
  19 } else {
  20     puts "OK: meshing is quite fast"
  21 }
  22 vinit
  23 vdisplay result
  24 vfit
  25 vsetdispmode 1
  26
  27 set only_screen 1
  28
  29
  30