0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / mesh / bug25378_3_3
1 puts "============"
2 puts "CR25378"
3 puts "============"
4 puts ""
5 ###################################################################################
6 # Building of triangulation for distored surfaces can take very long using BRepMesh_IncrementalMesh
7 ###################################################################################
8
9 restore [locate_data_file bug25378_Blower_good.brep] b
10 trinfo b
11
12 tclean b
13 set t_001 [expr [lindex [time {incmesh b 0.001}] 0]/1000000]
14 puts "t_001=${t_001}"
15 trinfo b
16
17 if { [regexp {Debug mode} [dversion]] } {
18     set max_t_001 50
19 } else {
20   if { [regexp {Windows} [dversion]] } {
21     set max_t_001 20
22   } else {
23     set max_t_001 55
24   }
25 }
26
27 set tol_percent 0.05
28
29 checktime ${t_001} ${max_t_001} ${tol_percent} "3. Time of building of triangulation "