0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / mesh / bug23650
1 puts "=========="
2 puts "OCC23650"
3 puts "=========="
4 puts ""
5 ##################################################################
6 # Slow mesher: one bspline surface, 80 seconds for 132 triangles
7 ##################################################################
8
9 restore [locate_data_file bug23650_slowmesh.brep] result
10 tclean result
11 dchrono h reset
12 dchrono h start
13 incmesh result 0.2
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 > 5. } {
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 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
28
29
30
31