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

0025569: Tests 24959_1 and 24959_2 are not correct

Browse Source 
Test cases were corrected to check triangulation deflection
This commit is contained in:
ski 2015-01-21 14:56:10 +03:00 committed by bugmaster
parent 99c5f9f045
commit 8f7e78f4de
2 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/bugs/moddata_3/bug24959_1
View File

@ -10,15 +10,13 @@ bsplinesurf s 2 4 0.0 3 0.34 1 0.67 1 1.0 3 1 2 0.0 2 1.0 2 10 0 0 1 6 0 0 1 4 0
mkface result s mkface result s
incmesh result 1 incmesh result 1
set tri_info [trinfo result] set tri_info [trinfo result]
regexp {deflection ([0-9.+e-]+)} $tri_info full defl
set tri 0 # check deflections
set nod 0 if { $defl > 1 } {
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri puts "Error: too big deflection on original face (${defl} > 1)"
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
if { ${tri} < 90 || ${nod} < 54 } {
puts "Error: Bad meshing"
} else { } else {
puts "OK: Good meshing" puts "Deflection is OK (${defl})"
} }
vdisplay result vdisplay result

13
tests/bugs/moddata_3/bug24959_2
View File

@ -7,19 +7,16 @@ puts ""
#################################################### ####################################################
bsplinesurf s 2 12 0.0 3 0.1 1 0.2 1 0.3 1 0.4 1 0.5 1 0.525 1 0.55 1 0.575 1 0.8 1 0.9 1 1.0 3 1 2 0.0 2 1.0 2 16 0 0 1 14 0 0 1 12 0 0 1 10 0 0 1 8 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 -2 0 0 1 -4 0 0 1 -6 0 0 1 -8 0 0 1 16 5 0 1 14 5 0 1 12 5 0 1 10 5 0 1 8 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1 -2 5 0 1 -4 5 0 1 -6 5 0 1 -8 5 0 1 bsplinesurf s 2 12 0.0 3 0.1 1 0.2 1 0.3 1 0.4 1 0.5 1 0.525 1 0.55 1 0.575 1 0.8 1 0.9 1 1.0 3 1 2 0.0 2 1.0 2 16 0 0 1 14 0 0 1 12 0 0 1 10 0 0 1 8 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 -2 0 0 1 -4 0 0 1 -6 0 0 1 -8 0 0 1 16 5 0 1 14 5 0 1 12 5 0 1 10 5 0 1 8 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1 -2 5 0 1 -4 5 0 1 -6 5 0 1 -8 5 0 1
mkface result s mkface result s
incmesh result 1 incmesh result 1
set tri_info [trinfo result] set tri_info [trinfo result]
regexp {deflection ([0-9.+e-]+)} $tri_info full defl
set tri 0 # check deflections
set nod 0 if { $defl > 1 } {
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri puts "Error: too big deflection on original face (${defl} > 1)"
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
if { ${tri} < 76 || ${nod} < 50 } {
puts "Error: Bad meshing"
} else { } else {
puts "OK: Good meshing" puts "Deflection is OK (${defl})"
} }
vdisplay result vdisplay result