0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / moddata_1 / bug15519
1 puts "TODO OCC12345 ALL: Error: Number of triangles"
2 puts "TODO OCC12345 ALL: Error: Number of nodes"
3 puts "TODO OCC12345 ALL: Error: Maximal deflection"
4
5 puts "============"
6 puts "OCC15519"
7 puts "============"
8 puts ""
9 #######################################################################
10 # Exception while meshing shape
11 #######################################################################
12
13 set BugNumber OCC15519
14
15 restore [locate_data_file OCC15519.brep] result
16 tclean result
17
18 set Deflection 1.
19 catch {incmesh result ${Deflection} }
20
21 if { [string compare $tcl_platform(platform) "windows"] == 0 }  {
22    set good_tri  96265
23    set good_nod  71339
24    set good_defl 27.956052399907215
25 } else {
26    set good_tri  95582
27    set good_nod  70796
28    set good_defl 0.99827404224216676
29 }
30
31 checktrinfo result -tri ${good_tri} -nod ${good_nod} -defl ${good_defl} -tol_rel_defl 0.001 -tol_rel_tri 0.001 -tol_rel_nod 0.001
32 checkview -display result -2d -path ${imagedir}/${test_image}.png