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

0025020: checkoverlapedges doesn't have the check for degenerated edges

Browse Source 
the check for degenerated edges added
Test case for issue CR25020
This commit is contained in:
ibs 2014-06-19 13:29:13 +04:00 committed by apn
parent e01907f12a
commit 7d0496dd6d
2 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/SWDRAW/SWDRAW_ShapeFix.cxx
View File

@ -18,6 +18,7 @@
#include <Draw.hxx>
#include <DBRep.hxx>
#include <BRep_Tool.hxx>
#include <SWDRAW.hxx>
#include <gp_XYZ.hxx>
#include <gp_Pnt2d.hxx>
@ -635,6 +636,19 @@ static Standard_Integer checkoverlapedges(Draw_Interpretor& di, Standard_Integer
di<<"Invalid type of arguments"<<"\n";
return 1;
}
if (BRep_Tool::Degenerated(e1))
{
di << a[1] << " is degenerated\n";
return 1;
}
if (BRep_Tool::Degenerated(e2))
{
di << a[2] << " is degenerated\n";
return 1;
}
Standard_Real aTol = Precision::Confusion();
Standard_Real aDistDomain = 0.0;
Standard_Integer k = 3;

21
tests/bugs/demo/bug25020 Executable file
View File

@ -0,0 +1,21 @@
puts "============"
puts "CR25020"
puts "============"
puts ""
##########################################################################################################
# checkoverlapedges doesn't have the check for degenerated edges
##########################################################################################################
restore [locate_data_file bug25020_b.brep] b
explode b e
dlog reset
dlog on
catch {checkoverlapedges b_1 b_2}
set info [dlog get]
if { [regexp "degenerated" ${info} ] == 1 } {
puts "OK : checkoverlapedges have the check for degenerated edges"
} else {
puts "Error : checkoverlapedges doesn't have the check for degenerated edges"
}