1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
occt/tests/bugs/mesh/bug24968_1
2014-07-11 13:42:53 +04:00

48 lines
898 B
Plaintext

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 0
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