0023282: Wrong triangulation on cone
[occt.git] / tests / bugs / modalg_5 / bug23282_2
1 puts "================"
2 puts "OCC23282"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # Wrong triangulation on cone
7 ######################################################################################
8
9 set BugNumber OCC23282
10
11 pcone result 10 0 20 90
12 incmesh result 0.1
13 triangles result
14 isos result 0
15
16 checkshape result
17
18 set square 454.16
19
20 set nb_v_good 4
21 set nb_e_good 7
22 set nb_w_good 4
23 set nb_f_good 4
24 set nb_sh_good 1
25 set nb_sol_good 1
26 set nb_compsol_good 0
27 set nb_compound_good 0
28 set nb_shape_good 21
29
30 vinit
31 vdisplay result
32 vsetdispmode 1
33 vfit
34 vzfit
35
36 # relative tolerance (%)
37 set rel_tol 1
38 set area_eps 0
39 #
40 puts "\nChecking triangulation area (triarea command)..."
41 set rel_err [expr abs([CheckTriArea result $area_eps])]
42 if { $rel_err > $rel_tol } {
43    puts "Error   : area by triangles differs from the actual area by $rel_err %"
44 } else {
45    if { $rel_tol > 1 && $rel_tol < 100 } {
46       puts "Error: Improvement: The current area difference is $rel_err instead of $rel_tol"
47    }
48 }
49
50 set only_screen 1