OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

0023282: Wrong triangulation on cone

Browse Source 
Adding test cases for this fix
This commit is contained in:
mkv 2013-04-03 17:12:53 +04:00
parent ad2a6c0662
commit 0691a5bb8f
2 changed files with 97 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
tests/bugs/modalg_5/bug23282_1 Executable file
View File

@ -0,0 +1,47 @@
puts "================"
puts "OCC23282"
puts "================"
puts ""
#######################################################################################
# Wrong triangulation on cone
######################################################################################
set BugNumber OCC23282
pcone result 10 0 10 90
checkshape result
set square 289.612
set nb_v_good 4
set nb_e_good 7
set nb_w_good 4
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 21
vinit
vdisplay result
vsetdispmode 1
vfit
vzfit
# relative tolerance (%)
set rel_tol 1
set area_eps 0
#
puts "\nChecking triangulation area (triarea command)..."
set rel_err [expr abs([CheckTriArea result $area_eps])]
if { $rel_err > $rel_tol } {
puts "Error : area by triangles differs from the actual area by $rel_err %"
} else {
if { $rel_tol > 1 && $rel_tol < 100 } {
puts "Error: Improvement: The current area difference is $rel_err instead of $rel_tol"
}
}
set only_screen 1

50
tests/bugs/modalg_5/bug23282_2 Executable file
View File

@ -0,0 +1,50 @@
puts "================"
puts "OCC23282"
puts "================"
puts ""
#######################################################################################
# Wrong triangulation on cone
######################################################################################
set BugNumber OCC23282
pcone result 10 0 20 90
incmesh result 0.1
triangles result
isos result 0
checkshape result
set square 454.16
set nb_v_good 4
set nb_e_good 7
set nb_w_good 4
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 21
vinit
vdisplay result
vsetdispmode 1
vfit
vzfit
# relative tolerance (%)
set rel_tol 1
set area_eps 0
#
puts "\nChecking triangulation area (triarea command)..."
set rel_err [expr abs([CheckTriArea result $area_eps])]
if { $rel_err > $rel_tol } {
puts "Error : area by triangles differs from the actual area by $rel_err %"
} else {
if { $rel_tol > 1 && $rel_tol < 100 } {
puts "Error: Improvement: The current area difference is $rel_err instead of $rel_tol"
}
}
set only_screen 1