456b33eb |
1 | if { [info exists rel_tol] } { |
2 | puts "\nChecking triangulation area (triarea command)..." |
3 | set rel_err [expr abs([CheckTriArea result $area_eps])] |
4 | if { $rel_err > $rel_tol } { |
5 | puts "Error : area by triangles differs from the actual area by $rel_err %" |
6 | } else { |
7 | if { $rel_tol > 1 && $rel_tol < 100 } { |
302f96fb |
8 | puts "Error: Improvement: The current area difference is $rel_err instead of $rel_tol" |
456b33eb |
9 | } |
10 | } |
11 | } |
12 | |
fa920fb1 |
13 | # to end a test script |
14 | puts "TEST COMPLETED" |