1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-09 18:50:54 +03:00
occt/tests/bugs/mesh/bug23650
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

32 lines
705 B
Plaintext

puts "=========="
puts "OCC23650"
puts "=========="
puts ""
##################################################################
# Slow mesher: one bspline surface, 80 seconds for 132 triangles
##################################################################
restore [locate_data_file bug23650_slowmesh.brep] result
tclean result
dchrono h reset
dchrono h start
incmesh result 0.2
dchrono h stop
set info [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time
if { $cpu_time > 5. } {
puts "Error : meshing is slow"
} else {
puts "OK: meshing is quite fast"
}
vinit
vdisplay result
vfit
vsetdispmode 1
checkview -screenshot -3d -path ${imagedir}/${test_image}.png