mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
0025020: checkoverlapedges doesn't have the check for degenerated edges
the check for degenerated edges added Test case for issue CR25020
This commit is contained in:
parent
e01907f12a
commit
7d0496dd6d
@ -18,6 +18,7 @@
|
|||||||
|
|
||||||
#include <Draw.hxx>
|
#include <Draw.hxx>
|
||||||
#include <DBRep.hxx>
|
#include <DBRep.hxx>
|
||||||
|
#include <BRep_Tool.hxx>
|
||||||
#include <SWDRAW.hxx>
|
#include <SWDRAW.hxx>
|
||||||
#include <gp_XYZ.hxx>
|
#include <gp_XYZ.hxx>
|
||||||
#include <gp_Pnt2d.hxx>
|
#include <gp_Pnt2d.hxx>
|
||||||
@ -635,6 +636,19 @@ static Standard_Integer checkoverlapedges(Draw_Interpretor& di, Standard_Integer
|
|||||||
di<<"Invalid type of arguments"<<"\n";
|
di<<"Invalid type of arguments"<<"\n";
|
||||||
return 1;
|
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 aTol = Precision::Confusion();
|
||||||
Standard_Real aDistDomain = 0.0;
|
Standard_Real aDistDomain = 0.0;
|
||||||
Standard_Integer k = 3;
|
Standard_Integer k = 3;
|
||||||
|
21
tests/bugs/demo/bug25020
Executable file
21
tests/bugs/demo/bug25020
Executable 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"
|
||||||
|
}
|
Loading…
x
Reference in New Issue
Block a user