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

0029494: Intersection line between two parametric surfaces is restricted incorrectly if it matches the surface boundary

Browse Source 
Creation of IntPatch_Points is forbidden in tangent-zones exceptionally domain boundaries of intersected surface.
This commit is contained in:
nbv 2018-02-08 15:59:41 +03:00 committed by apn
parent 7797eb389a
commit 8dc56d0f88
10 changed files with 482 additions and 589 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/GeometryTest/GeometryTest_TestProjCommands.cxx
View File

@ -365,7 +365,7 @@ static Standard_Integer xdistcs(Draw_Interpretor& di, Standard_Integer n, const
// report error or warning if distance is greater than tolerance // report error or warning if distance is greater than tolerance
if (aD > anErrTol) if (aD > anErrTol)
{ {
di << "Error :"; di << "Error in " << a[1] << ":";
} }
else if (aD > aWarnTol) else if (aD > aWarnTol)
{ {

876
src/IntPatch/IntPatch_RstInt.cxx
View File

@ -234,40 +234,6 @@ static void GetLinePoint2d (const Handle(IntPatch_Line)& L,
V = (1.-par)*vs1+par*vs2; V = (1.-par)*vs1+par*vs2;
} }
static void GetWLinePoint (const Handle(IntPatch_WLine)& wlin,
const Standard_Real param,
Standard_Real& U1, Standard_Real& V1,
Standard_Real& U2, Standard_Real& V2,
gp_Pnt& P)
{
Standard_Integer Nbptlin = wlin->NbPnts();
Standard_Real par = IntegerPart(param);
Standard_Integer Irang = Standard_Integer(par);
if (Irang == Nbptlin) {
Irang--;
par = 1.0;
}
else
par = Abs(param-par);
const IntSurf_PntOn2S& p2s1 = wlin->Point(Irang);
const IntSurf_PntOn2S& p2s2 = wlin->Point(Irang+1);
const gp_Pnt& p1 = p2s1.Value();
const gp_Pnt& p2 = p2s2.Value();
P.ChangeCoord().SetLinearForm(1.-par, p1.XYZ(), par, p2.XYZ());
Standard_Real us1,vs1,us2,vs2;
p2s1.ParametersOnS1(us1,vs1);
p2s2.ParametersOnS1(us2,vs2);
U1 = (1.-par)*us1+par*us2;
V1 = (1.-par)*vs1+par*vs2;
p2s1.ParametersOnS2(us1,vs1);
p2s2.ParametersOnS2(us2,vs2);
U2 = (1.-par)*us1+par*us2;
V2 = (1.-par)*vs1+par*vs2;
}
static Standard_Boolean FindParameter(const Handle(IntPatch_Line)& L, static Standard_Boolean FindParameter(const Handle(IntPatch_Line)& L,
const Handle(Adaptor3d_HSurface)& OtherSurf, const Handle(Adaptor3d_HSurface)& OtherSurf,
const Standard_Real Tol, const Standard_Real Tol,
@ -394,50 +360,6 @@ inline Standard_Boolean ArePnt2dEqual(const gp_Pnt2d& p1, const gp_Pnt2d& p2,
return Abs(p1.X()-p2.X()) < tolU && Abs(p1.Y()-p2.Y()) < tolV; return Abs(p1.X()-p2.X()) < tolU && Abs(p1.Y()-p2.Y()) < tolV;
} }
static gp_Pnt2d GetPointOnPolygo(const IntPatch_Polygo& Pol,
const Standard_Real param)
{
Standard_Real par = IntegerPart(param);
Standard_Integer irang = Standard_Integer(par) + 1;
if (irang == Pol.NbPoints()) {
irang--;
par = 1.;
}
else {
par = Abs(param-par);
}
gp_Pnt2d p1 = Pol.Point(irang);
gp_Pnt2d p2 = Pol.Point(irang+1);
gp_Pnt2d p;
p.ChangeCoord().SetLinearForm(1.-par,p1.XY(),par,p2.XY());
return p;
}
static Standard_Boolean IsSegment2dSmall(const IntPatch_Polygo& Pol,
const Standard_Real parmin,
const Standard_Real parmax,
const Standard_Real URes,
const Standard_Real VRes)
{
Standard_Integer irang1 = Standard_Integer(IntegerPart(parmin)) + 2;
Standard_Integer irang2 = Standard_Integer(IntegerPart(parmax)) + 1;
gp_Pnt2d p1,p2;
Standard_Real du=0.,dv=0.;
p1 = GetPointOnPolygo(Pol,parmin);
for (Standard_Integer i=irang1; i <= irang2 && du <= URes && dv <= VRes; i++) {
p2 = Pol.Point(i);
du += Abs(p2.X()-p1.X());
dv += Abs(p2.Y()-p1.Y());
p1 = p2;
}
if (du <= URes && dv <= VRes) {
p2 = GetPointOnPolygo(Pol,parmax);
du += Abs(p2.X()-p1.X());
dv += Abs(p2.Y()-p1.Y());
}
return du <= URes && dv <= VRes;
}
//======================================================================= //=======================================================================
//function : PutVertexOnLine //function : PutVertexOnLine
//purpose : //purpose :
@ -467,7 +389,6 @@ void IntPatch_RstInt::PutVertexOnLine (const Handle(IntPatch_Line)& L,
Handle(IntPatch_RLine) rlin (Handle(IntPatch_RLine)::DownCast (L)); //-- aucune verification n est Handle(IntPatch_RLine) rlin (Handle(IntPatch_RLine)::DownCast (L)); //-- aucune verification n est
Handle(IntPatch_WLine) wlin (Handle(IntPatch_WLine)::DownCast (L)); //-- faite au cast. Handle(IntPatch_WLine) wlin (Handle(IntPatch_WLine)::DownCast (L)); //-- faite au cast.
Standard_Integer Nbvtx =0; Standard_Integer Nbvtx =0;
Standard_Integer Nbptlin =0;
Standard_Real tolPLin = Surf->UResolution(Precision::Confusion()); Standard_Real tolPLin = Surf->UResolution(Precision::Confusion());
tolPLin = Max (tolPLin, Surf->VResolution(Precision::Confusion())); tolPLin = Max (tolPLin, Surf->VResolution(Precision::Confusion()));
tolPLin = Min (tolPLin, Precision::Confusion()); tolPLin = Min (tolPLin, Precision::Confusion());
@ -491,12 +412,10 @@ void IntPatch_RstInt::PutVertexOnLine (const Handle(IntPatch_Line)& L,
if (typL == IntPatch_Walking) { if (typL == IntPatch_Walking) {
Nbvtx = wlin->NbVertex(); Nbvtx = wlin->NbVertex();
PLin.SetWLine(OnFirst,wlin); PLin.SetWLine(OnFirst,wlin);
Nbptlin = wlin->NbPnts();
} }
else if ( typL == IntPatch_Restriction) { else if ( typL == IntPatch_Restriction) {
Nbvtx = rlin->NbVertex(); Nbvtx = rlin->NbVertex();
PLin.SetRLine(OnFirst,rlin); PLin.SetRLine(OnFirst,rlin);
Nbptlin = rlin->NbPnts();
} }
else { else {
throw Standard_DomainError(); throw Standard_DomainError();
@ -553,8 +472,6 @@ void IntPatch_RstInt::PutVertexOnLine (const Handle(IntPatch_Line)& L,
// MSV Oct 15, 2001: use tolerance of this edge if possible // MSV Oct 15, 2001: use tolerance of this edge if possible
Standard_Real edgeTol = Tol3d(arc,Domain,Tol); Standard_Real edgeTol = Tol3d(arc,Domain,Tol);
Standard_Real URes = Surf->UResolution(edgeTol);
Standard_Real VRes = Surf->VResolution(edgeTol);
IntPatch_HInterTool::Bounds(arc,PFirst,PLast); IntPatch_HInterTool::Bounds(arc,PFirst,PLast);
if(Precision::IsNegativeInfinite(PFirst)) if(Precision::IsNegativeInfinite(PFirst))
@ -567,26 +484,16 @@ void IntPatch_RstInt::PutVertexOnLine (const Handle(IntPatch_Line)& L,
// return; // return;
//} //}
Standard_Boolean isVFirst = Standard_False, isVLast = Standard_False;
gp_Pnt2d p2dFirst,p2dLast; gp_Pnt2d p2dFirst,p2dLast;
Standard_Real tolUFirst=0.,tolVFirst=0.,tolULast=0.,tolVLast=0.;
Domain->Initialize(arc); Domain->Initialize(arc);
for (Domain->InitVertexIterator(); Domain->MoreVertex(); Domain->NextVertex()) { for (Domain->InitVertexIterator(); Domain->MoreVertex(); Domain->NextVertex()) {
Handle(Adaptor3d_HVertex) vtx = Domain->Vertex(); Handle(Adaptor3d_HVertex) vtx = Domain->Vertex();
Standard_Real prm = IntPatch_HInterTool::Parameter(vtx,arc); Standard_Real prm = IntPatch_HInterTool::Parameter(vtx,arc);
if (Abs(prm - PFirst) < Precision::PConfusion()) { if (Abs(prm - PFirst) < Precision::PConfusion()) {
arc->D0(PFirst,p2dFirst); arc->D0(PFirst,p2dFirst);
Standard_Real tol3d = Max (Tol3d(vtx,Domain), edgeTol);
tolUFirst = Surf->UResolution(tol3d);
tolVFirst = Surf->VResolution(tol3d);
isVFirst = Standard_True;
} }
else if (Abs(prm - PLast) < Precision::PConfusion()) { else if (Abs(prm - PLast) < Precision::PConfusion()) {
arc->D0(PLast,p2dLast); arc->D0(PLast,p2dLast);
Standard_Real tol3d = Max (edgeTol, Tol3d(vtx,Domain));
tolULast = Surf->UResolution(tol3d);
tolVLast = Surf->VResolution(tol3d);
isVLast = Standard_True;
} }
} }
@ -697,473 +604,378 @@ void IntPatch_RstInt::PutVertexOnLine (const Handle(IntPatch_Line)& L,
Commun.Perform(PLin,Brise); Commun.Perform(PLin,Brise);
locpt.Clear(); locpt.Clear();
locpt2.Clear(); locpt2.Clear();
Standard_Integer Commun_NbSectionPoints = Commun.NbSectionPoints();
Standard_Integer Commun_NbTangentZones = Commun.NbTangentZones();
Standard_Integer Commun_Section_Tangent = Commun_NbSectionPoints
+ Commun_NbTangentZones;
for (i=1;i<=Commun_Section_Tangent;i++) {
Standard_Real W1[2],W2[2];
Standard_Boolean refine[2],useWL[2];
Standard_Integer nbpt = 1;
if(i<=Commun_NbSectionPoints) {
// intersection point
W1[0] = Commun.PntValue(i).ParamOnFirst();
W2[0] = Commun.PntValue(i).ParamOnSecond();
refine[0] = Standard_True;
}
else {
// tangent zone
Standard_Real UMinCh,UMaxCh; //-- ligne de cheminement 0..(Nbptlin-1)
Standard_Real UMinAr,UMaxAr; //-- polyline of arc 0..(NbEchant-1)
Commun.ZoneValue(i-Commun_NbSectionPoints).ParamOnFirst(UMinCh,UMaxCh);
Commun.ZoneValue(i-Commun_NbSectionPoints).ParamOnSecond(UMinAr,UMaxAr);
gp_Pnt2d p1Ar = GetPointOnPolygo(Brise,UMinAr);
gp_Pnt2d p2Ar = GetPointOnPolygo(Brise,UMaxAr);
Standard_Real tolU = URes*2.;
Standard_Real tolV = VRes*2.;
if (isVFirst && ArePnt2dEqual(p1Ar,p2dFirst,tolUFirst,tolVFirst)) {
tolU = Max(tolUFirst,tolU); tolV = Max(tolVFirst,tolV);
}
if (isVLast && ArePnt2dEqual(p2Ar,p2dLast,tolULast,tolVLast)) {
tolU = Max(tolULast,tolU); tolV = Max(tolVLast,tolV);
}
Standard_Real nptCh = UMaxCh-UMinCh;
Standard_Boolean isNptLow = (nptCh < 10. && nptCh < Nbptlin/100.) ||
(!Domain->Has3d() && Standard_Integer(nptCh)+1 < Nbptlin);
if (!isNptLow && !IsSegment2dSmall(Brise,UMinAr,UMaxAr,tolU,tolV)) {
// treat both ends
Standard_Real UMinChP,UMinArP,UMaxArP;
UMinChP = IntegerPart(UMinCh);
UMinArP = IntegerPart(UMinAr);
UMaxArP = IntegerPart(UMaxAr);
Standard_Integer irangAr1,irangAr2;
irangAr1 = Standard_Integer(UMinArP)+1;
irangAr2 = Standard_Integer(UMaxArP)+1;
UMinChP = UMinCh - UMinChP;
UMinArP = UMinAr - UMinArP;
//UMaxChP = UMaxCh - UMaxChP; UMaxArP = UMaxAr - UMaxArP;
const Standard_Real eps = 1e-10;
// Standard_Boolean isChExtr1 = irangCh1==1 && UMinChP<eps;
// Standard_Boolean isChExtr2 = irangCh2==Nbptlin;
Standard_Boolean isArExtr1 = irangAr1==1 && UMinArP<eps;
Standard_Boolean isArExtr2 = irangAr2==NbEchant;
// detect orientation
gp_Pnt2d p1Ch = GetPointOnPolygo(PLin,UMinCh);
Standard_Real d11 = p1Ch.SquareDistance(p1Ar);
Standard_Real d12 = p1Ch.SquareDistance(p2Ar);
Standard_Boolean sameOri = d11 < d12;
if (!sameOri) {
Standard_Boolean itmp=isArExtr1; isArExtr1=isArExtr2; isArExtr2=itmp;
Standard_Real dtmp=UMinAr; UMinAr=UMaxAr; UMaxAr=dtmp;
}
W1[0] = UMinCh; W1[1] = UMaxCh;
W2[0] = UMinAr; W2[1] = UMaxAr;
//refine[0] = ! (isChExtr1 || isArExtr1);
//refine[1] = ! (isChExtr2 || isArExtr2);
refine[0] = refine[1] = Standard_False;
useWL[0] = !isArExtr1;
useWL[1] = !isArExtr2;
nbpt = 2;
}
else {
// treat the middle point as an intersection point
W1[0] = 0.5*(UMinCh+UMaxCh);
W2[0] = 0.5*(UMinAr+UMaxAr);
refine[0] = Standard_True;
}
}
Standard_Integer nbTreated = 0; // We do not need in putting vertex into tangent zone(s).
for (Standard_Integer ip=0; ip < nbpt; ip++) { // Therefore, only section points are interested by us.
GetLinePoint2d (L, W1[ip]+1, !OnFirst, U,V); // Boundary of WLine (its first/last points) will be
// marked by some vertex later. See bug #29494.
const Standard_Integer aNbSectionPts = Commun.NbSectionPoints();
for (i = 1; i <= aNbSectionPts; i++)
{
const Standard_Real aW1 = Commun.PntValue(i).ParamOnFirst(),
aW2 = Commun.PntValue(i).ParamOnSecond();
if (!refine[ip] && useWL[ip]) { Standard_Integer nbTreated = 0;
Standard_Real aU1,aV1; GetLinePoint2d (L, aW1+1, !OnFirst, U,V);
GetLinePoint2d (L, W1[ip]+1, OnFirst, aU1,aV1);
p2d.SetCoord(aU1,aV1);
Standard_Real paramProj;
if (!IntPatch_HInterTool::Project(arc,p2d,paramProj,p2d)) continue;
W = paramProj;
}
else {
Standard_Real par = IntegerPart(W2[ip]);
Standard_Integer Irang = Standard_Integer(par) + 1;
if (Irang == Brise.NbPoints()) {
Irang--;
par = 1.;
}
else {
par =Abs(W2[ip]-par);
}
W = (1.-par)*Brise.Parameter(Irang) + par*Brise.Parameter(Irang+1);
}
Standard_Boolean refined = Standard_False; Standard_Real par = IntegerPart(aW2);
if (refine[ip]) Standard_Integer Irang = Standard_Integer(par) + 1;
if (Irang == Brise.NbPoints())
{
Irang--;
par = 1.;
}
else
{
par = Abs(aW2 - par);
}
W = (1. - par)*Brise.Parameter(Irang) + par*Brise.Parameter(Irang + 1);
//------------------------------------------------------------------------
//-- On a trouve un point 2d approche Ua,Va intersection de la ligne
//-- de cheminement et de la restriction.
//--
//-- On injecte ce point ds les intersections Courbe-Surface
//--
IntPatch_CSFunction thefunc(OtherSurf,arc,Surf);
// MSV: extend UV bounds to not miss solution near the boundary
const Standard_Real margCoef = 0.004;
Standard_Boolean refined = Standard_False;
IntPatch_CurvIntSurf IntCS(U,V,W,thefunc,edgeTol,margCoef);
if (IntCS.IsDone() && !IntCS.IsEmpty())
{
ptsommet = IntCS.Point();
IntCS.ParameterOnSurface(U2,V2);
gp_Pnt anOldPnt, aNewPnt;
OtherSurf->D0(U,V, anOldPnt);
OtherSurf->D0(U2,V2, aNewPnt);
if (anOldPnt.SquareDistance(aNewPnt) < Precision::SquareConfusion())
{ {
//------------------------------------------------------------------------ U2 = U;
//-- On a trouve un point 2d approche Ua,Va intersection de la ligne V2 = V;
//-- de cheminement et de la restriction.
//--
//-- On injecte ce point ds les intersections Courbe-Surface
//--
IntPatch_CSFunction thefunc(OtherSurf,arc,Surf);
// MSV: extend UV bounds to not miss solution near the boundary
Standard_Real margCoef = 0.004;
IntPatch_CurvIntSurf IntCS(U,V,W,thefunc,edgeTol,margCoef);
if (IntCS.IsDone())
{
if (!IntCS.IsEmpty())
{
ptsommet = IntCS.Point();
IntCS.ParameterOnSurface(U2,V2);
gp_Pnt anOldPnt, aNewPnt;
OtherSurf->D0(U,V, anOldPnt);
OtherSurf->D0(U2,V2, aNewPnt);
if (anOldPnt.SquareDistance(aNewPnt) < Precision::Confusion()
* Precision::Confusion())
{
U2 = U;
V2 = V;
}
paramarc = IntCS.ParameterOnCurve();
refined = Standard_True;
}
}
} }
else { paramarc = IntCS.ParameterOnCurve();
U2 = U; V2 = V; refined = Standard_True;
paramarc = W; }
arc->D0(paramarc,p2d);
Surf->D0(p2d.X(),p2d.Y(),ptsommet); if (refined) {
duplicate = Standard_False;
for (j=1; j<=locpt.Length();j++) {
if (ptsommet.Distance(locpt(j)) <= edgeTol) {
if (possiblyClosed) {
locpt2(j).Coord(U,V);
if ((OSurfaceIsUClosed && Abs(U-U2) > tolOUClosed) ||
(OSurfaceIsVClosed && Abs(V-V2) > tolOVClosed))
continue;
}
duplicate = Standard_True;
break;
}
} }
if (!refine[ip] || refined) { if (!duplicate) {
duplicate = Standard_False; Standard_Integer ParamApproxOnLine = Standard_Integer(aW1)+1;
for (j=1; j<=locpt.Length();j++) {
if (ptsommet.Distance(locpt(j)) <= edgeTol) { arc->D1(paramarc,p2d,d2d);
if (possiblyClosed) { U1 = p2d.X(); V1 = p2d.Y();
locpt2(j).Coord(U,V); if (typL == IntPatch_Walking && SurfaceIsPeriodic) {
if ((OSurfaceIsUClosed && Abs(U-U2) > tolOUClosed) || if (OnFirst)
(OSurfaceIsVClosed && Abs(V-V2) > tolOVClosed)) Recadre(TypeS1,TypeS2,wlin,ParamApproxOnLine,U1,V1,U2,V2);
continue; else
} Recadre(TypeS1,TypeS2,wlin,ParamApproxOnLine,U2,V2,U1,V1);
duplicate = Standard_True; }
break; locpt.Append(ptsommet);
locpt2.Append(gp_Pnt2d(U2,V2));
found = FindParameter(L,OtherSurf,edgeTol,ptsommet,gp_Pnt2d(U2,V2),
paramline,tgline,ParamApproxOnLine,OnFirst);
if (typL == IntPatch_Walking && found && possiblyClosed) {
// check in 2d
if (SurfaceIsUClosed || SurfaceIsVClosed) {
GetLinePoint2d (L, paramline, OnFirst, U,V);
if ((SurfaceIsUClosed && Abs(U-U1) > tolUClosed) ||
(SurfaceIsVClosed && Abs(V-V1) > tolVClosed))
found = Standard_False;
}
if (found && (OSurfaceIsUClosed || OSurfaceIsVClosed)) {
GetLinePoint2d (L, paramline, !OnFirst, U,V);
if ((OSurfaceIsUClosed && Abs(U-U2) > tolOUClosed) ||
(OSurfaceIsVClosed && Abs(V-V2) > tolOVClosed))
found = Standard_False;
} }
} }
if (!found) {
continue;
}
if (!duplicate) { VtxOnArc = CoincideOnArc(ptsommet,arc,Surf,edgeTol,Domain,vtxarc);
Standard_Integer ParamApproxOnLine = Standard_Integer(W1[ip])+1; Standard_Real vtxTol;
if (VtxOnArc) {
vtxTol = Tol3d(vtxarc,Domain);
if (edgeTol > vtxTol) vtxTol = edgeTol;
}
else vtxTol = edgeTol;
arc->D1(paramarc,p2d,d2d); //-- It is necessary to test that the point does not already exist
U1 = p2d.X(); V1 = p2d.Y(); //-- - It can be already a point on arc
if (typL == IntPatch_Walking && SurfaceIsPeriodic) { //-- BUT on a different arc
if (OnFirst) // MSV 27.03.2002: find the nearest point; add check in 2d
Recadre(TypeS1,TypeS2,wlin,ParamApproxOnLine,U1,V1,U2,V2); Standard_Integer ivtx = 0;
else Standard_Real dmin = RealLast();
Recadre(TypeS1,TypeS2,wlin,ParamApproxOnLine,U2,V2,U1,V1); for (j=1; j<=Nbvtx; j++) {
} const IntPatch_Point& Rptline = (typL == IntPatch_Walking
locpt.Append(ptsommet); ? wlin->Vertex(j)
locpt2.Append(gp_Pnt2d(U2,V2)); : rlin->Vertex(j));
Standard_Boolean APointOnRstStillExist =
found = FindParameter(L,OtherSurf,edgeTol,ptsommet,gp_Pnt2d(U2,V2), ((OnFirst && Rptline.IsOnDomS1() && Rptline.ArcOnS1() == arc) ||
paramline,tgline,ParamApproxOnLine,OnFirst); (!OnFirst && Rptline.IsOnDomS2() && Rptline.ArcOnS2() == arc));
if(!APointOnRstStillExist) {
if (typL == IntPatch_Walking && found && possiblyClosed) { if (possiblyClosed) {
// check in 2d if (SurfaceIsUClosed || SurfaceIsVClosed) {
if (SurfaceIsUClosed || SurfaceIsVClosed) { if (OnFirst) Rptline.ParametersOnS1(U,V);
GetLinePoint2d (L, paramline, OnFirst, U,V); else Rptline.ParametersOnS2(U,V);
if ((SurfaceIsUClosed && Abs(U-U1) > tolUClosed) || if ((SurfaceIsUClosed && Abs(U-U1) > tolUClosed) ||
(SurfaceIsVClosed && Abs(V-V1) > tolVClosed)) (SurfaceIsVClosed && Abs(V-V1) > tolVClosed))
found = Standard_False; continue;
}
if (found && (OSurfaceIsUClosed || OSurfaceIsVClosed)) {
GetLinePoint2d (L, paramline, !OnFirst, U,V);
if ((OSurfaceIsUClosed && Abs(U-U2) > tolOUClosed) ||
(OSurfaceIsVClosed && Abs(V-V2) > tolOVClosed))
found = Standard_False;
}
}
if (!found) {
continue;
}
VtxOnArc = CoincideOnArc(ptsommet,arc,Surf,edgeTol,Domain,vtxarc);
Standard_Real vtxTol;
if (VtxOnArc) {
vtxTol = Tol3d(vtxarc,Domain);
if (edgeTol > vtxTol) vtxTol = edgeTol;
}
else vtxTol = edgeTol;
//-- It is necessary to test that the point does not already exist
//-- - It can be already a point on arc
//-- BUT on a different arc
// MSV 27.03.2002: find the nearest point; add check in 2d
Standard_Integer ivtx = 0;
Standard_Real dmin = RealLast();
for (j=1; j<=Nbvtx; j++) {
const IntPatch_Point& Rptline = (typL == IntPatch_Walking
? wlin->Vertex(j)
: rlin->Vertex(j));
Standard_Boolean APointOnRstStillExist =
((OnFirst && Rptline.IsOnDomS1() && Rptline.ArcOnS1() == arc) ||
(!OnFirst && Rptline.IsOnDomS2() && Rptline.ArcOnS2() == arc));
if(!APointOnRstStillExist) {
if (possiblyClosed) {
if (SurfaceIsUClosed || SurfaceIsVClosed) {
if (OnFirst) Rptline.ParametersOnS1(U,V);
else Rptline.ParametersOnS2(U,V);
if ((SurfaceIsUClosed && Abs(U-U1) > tolUClosed) ||
(SurfaceIsVClosed && Abs(V-V1) > tolVClosed))
continue;
}
if (OSurfaceIsUClosed || OSurfaceIsVClosed) {
if (OnFirst) Rptline.ParametersOnS2(U,V);
else Rptline.ParametersOnS1(U,V);
if ((OSurfaceIsUClosed && Abs(U-U2) > tolOUClosed) ||
(OSurfaceIsVClosed && Abs(V-V2) > tolOVClosed))
continue;
}
} }
Standard_Real dist = ptsommet.Distance(Rptline.Value()); if (OSurfaceIsUClosed || OSurfaceIsVClosed) {
Standard_Real dt = Max(vtxTol, Rptline.Tolerance()); if (OnFirst) Rptline.ParametersOnS2(U,V);
if (dist < dmin) { else Rptline.ParametersOnS1(U,V);
if (dist <= dt) { if ((OSurfaceIsUClosed && Abs(U-U2) > tolOUClosed) ||
ptline = Rptline; (OSurfaceIsVClosed && Abs(V-V2) > tolOVClosed))
ivtx = j; continue;
if( surfacetype == GeomAbs_Cone ) { }
ivtx = 0; }
} Standard_Real dist = ptsommet.Distance(Rptline.Value());
} Standard_Real dt = Max(vtxTol, Rptline.Tolerance());
else { if (dist < dmin) {
// cancel previous solution because this point is better if (dist <= dt) {
// but its tolerance is not large enough ptline = Rptline;
ivtx = j;
if( surfacetype == GeomAbs_Cone ) {
ivtx = 0; ivtx = 0;
} }
dmin = dist;
}
}
}
if (ivtx) {
if (ptline.Tolerance() > vtxTol) {
vtxTol = ptline.Tolerance();
if (!VtxOnArc) {
// now we should repeat attempt to coincide on a bound of arc
VtxOnArc = CoincideOnArc(ptsommet,arc,Surf,vtxTol,Domain,vtxarc);
if (VtxOnArc) {
Standard_Real tol = Tol3d(vtxarc,Domain);
if (tol > vtxTol) vtxTol = tol;
}
}
}
}
if (typL == IntPatch_Walking)
VerifyTgline(wlin,(Standard_Integer)paramline,edgeTol,tgline);
Surf->D1(U1,V1,ptbid,d1u,d1v);
tgrst.SetLinearForm(d2d.X(),d1u,d2d.Y(),d1v);
normsurf = d1u.Crossed(d1v);
if (normsurf.Magnitude() < gp::Resolution()) {
transline.SetValue(Standard_True,IntSurf_Undecided);
transarc.SetValue(Standard_True,IntSurf_Undecided);
}
else
IntSurf::MakeTransition(tgline,tgrst,normsurf,transline,transarc);
if (typL == IntPatch_Walking && !refine[ip]) {
// for new vertex use coordinates from Line
if (OnFirst)
GetWLinePoint (wlin, paramline, U1,V1,U2,V2,ptsommet);
else
GetWLinePoint (wlin, paramline, U2,V2,U1,V1,ptsommet);
}
nbTreated++;
if (!ivtx) {
Sommet.SetValue(ptsommet,vtxTol,Standard_False); // pour tangence
if (OnFirst)
Sommet.SetParameters(U1,V1,U2,V2);
else
Sommet.SetParameters(U2,V2,U1,V1);
if (VtxOnArc)
Sommet.SetVertex(OnFirst,vtxarc);
//---------------------------------------------------------
//-- lbr : On remplace le point d indice paramline sur la -
//-- ligne par le vertex . -
//---------------------------------------------------------
Sommet.SetParameter(paramline); // sur ligne d intersection
Sommet.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (typL == IntPatch_Walking) {
wlin->AddVertex(Sommet);
Nbvtx++;
}
else {
rlin->AddVertex(Sommet);
Nbvtx++;
}
}
else {
// CAS DE FIGURE : en appelant s1 la surf sur laquelle on
// connait les pts sur restriction, et s2 celle sur laquelle
// on les cherche. Le point trouve verifie necessairement
// IsOnDomS1 = True.
// Pas vtxS1, pas vtxS2 :
// on recupere le point et on applique SetArcOnS2 et
// eventuellement SetVertexOnS2. Si on a deja IsOnDomS2,
// on considere que le point est deja traite, mais ne devrait
// pas se produire.
// vtxS1, pas vtxS2 :
// si pas IsOnDomS2 : pour chaque occurrence, faire SetArcOnS2,
// et eventuellement SetVertexOnS2.
// si IsOnDomS2 : impossible, on doit avoir IsVtxOnS2.
// vtxS1,vtxS2 :
// on doit avoir VtxOnArc = True. On duplique chaque occurrence
// "sur S1" du point en changeant ArcOnS2.
// pas vtxS1, vtxS2 :
// on doit avoir VtxOnArc = True. On duplique le point sur S1
// en changeant ArcOnS2.
Standard_Boolean OnDifferentRst =
((OnFirst && ptline.IsOnDomS1() && ptline.ArcOnS1() != arc) ||
(!OnFirst && ptline.IsOnDomS2() && ptline.ArcOnS2() != arc));
ptline.SetTolerance(vtxTol);
if ( (!ptline.IsVertexOnS1() && OnFirst)
|| (!ptline.IsVertexOnS2() && !OnFirst)
|| (OnDifferentRst)) {
if ( (!ptline.IsOnDomS2() && !OnFirst)
||(!ptline.IsOnDomS1() && OnFirst)
||(OnDifferentRst)) {
ptline.SetArc(OnFirst,arc,paramarc,transline,transarc);
//ptline.SetParameter(paramline); //-- rajout lbr le 20 nov 97
if (VtxOnArc)
ptline.SetVertex(OnFirst,vtxarc);
if (typL == IntPatch_Walking) {
if(OnDifferentRst) {
wlin->AddVertex(ptline);
Nbvtx++;
}
else {
wlin->Replace(ivtx,ptline);
}
}
else {
if(OnDifferentRst) {
rlin->AddVertex(ptline);
Nbvtx++;
}
else {
rlin->Replace(ivtx,ptline);
}
}
}
else if ( ( OnFirst && ptline.IsVertexOnS2())
||(!OnFirst && ptline.IsVertexOnS1())) {
Sommet = ptline;
Sommet.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (VtxOnArc)
Sommet.SetVertex(OnFirst,vtxarc);
if (typL == IntPatch_Walking) {
wlin->AddVertex(Sommet);
Nbvtx++;
}
else {
rlin->AddVertex(Sommet);
Nbvtx++;
}
} }
else { else {
//-- cout << "pb dans RstInt Type 1 " << endl; // cancel previous solution because this point is better
// but its tolerance is not large enough
ivtx = 0;
}
dmin = dist;
}
}
}
if (ivtx) {
if (ptline.Tolerance() > vtxTol) {
vtxTol = ptline.Tolerance();
if (!VtxOnArc) {
// now we should repeat attempt to coincide on a bound of arc
VtxOnArc = CoincideOnArc(ptsommet,arc,Surf,vtxTol,Domain,vtxarc);
if (VtxOnArc) {
Standard_Real tol = Tol3d(vtxarc,Domain);
if (tol > vtxTol) vtxTol = tol;
} }
} }
else { }
Handle(Adaptor3d_HVertex) vtxref = (OnFirst)? (ptline.VertexOnS1()) : (ptline.VertexOnS2()) ; }
if ( ( OnFirst && !ptline.IsOnDomS2())
||(!OnFirst && !ptline.IsOnDomS1())) { if (typL == IntPatch_Walking)
ptline.SetArc(OnFirst,arc,paramarc,transline,transarc); VerifyTgline(wlin,(Standard_Integer)paramline,edgeTol,tgline);
if (VtxOnArc)
ptline.SetVertex(OnFirst,vtxarc); Surf->D1(U1,V1,ptbid,d1u,d1v);
if (typL == IntPatch_Walking) { tgrst.SetLinearForm(d2d.X(),d1u,d2d.Y(),d1v);
normsurf = d1u.Crossed(d1v);
if (normsurf.Magnitude() < gp::Resolution()) {
transline.SetValue(Standard_True,IntSurf_Undecided);
transarc.SetValue(Standard_True,IntSurf_Undecided);
}
else
IntSurf::MakeTransition(tgline,tgrst,normsurf,transline,transarc);
nbTreated++;
if (!ivtx) {
Sommet.SetValue(ptsommet,vtxTol,Standard_False); // pour tangence
if (OnFirst)
Sommet.SetParameters(U1,V1,U2,V2);
else
Sommet.SetParameters(U2,V2,U1,V1);
if (VtxOnArc)
Sommet.SetVertex(OnFirst,vtxarc);
//---------------------------------------------------------
//-- lbr : On remplace le point d indice paramline sur la -
//-- ligne par le vertex . -
//---------------------------------------------------------
Sommet.SetParameter(paramline); // sur ligne d intersection
Sommet.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (typL == IntPatch_Walking) {
wlin->AddVertex(Sommet);
Nbvtx++;
}
else {
rlin->AddVertex(Sommet);
Nbvtx++;
}
}
else {
// CAS DE FIGURE : en appelant s1 la surf sur laquelle on
// connait les pts sur restriction, et s2 celle sur laquelle
// on les cherche. Le point trouve verifie necessairement
// IsOnDomS1 = True.
// Pas vtxS1, pas vtxS2 :
// on recupere le point et on applique SetArcOnS2 et
// eventuellement SetVertexOnS2. Si on a deja IsOnDomS2,
// on considere que le point est deja traite, mais ne devrait
// pas se produire.
// vtxS1, pas vtxS2 :
// si pas IsOnDomS2 : pour chaque occurrence, faire SetArcOnS2,
// et eventuellement SetVertexOnS2.
// si IsOnDomS2 : impossible, on doit avoir IsVtxOnS2.
// vtxS1,vtxS2 :
// on doit avoir VtxOnArc = True. On duplique chaque occurrence
// "sur S1" du point en changeant ArcOnS2.
// pas vtxS1, vtxS2 :
// on doit avoir VtxOnArc = True. On duplique le point sur S1
// en changeant ArcOnS2.
Standard_Boolean OnDifferentRst =
((OnFirst && ptline.IsOnDomS1() && ptline.ArcOnS1() != arc) ||
(!OnFirst && ptline.IsOnDomS2() && ptline.ArcOnS2() != arc));
ptline.SetTolerance(vtxTol);
if ( (!ptline.IsVertexOnS1() && OnFirst)
|| (!ptline.IsVertexOnS2() && !OnFirst)
|| (OnDifferentRst)) {
if ( (!ptline.IsOnDomS2() && !OnFirst)
||(!ptline.IsOnDomS1() && OnFirst)
||(OnDifferentRst)) {
ptline.SetArc(OnFirst,arc,paramarc,transline,transarc);
//ptline.SetParameter(paramline); //-- rajout lbr le 20 nov 97
if (VtxOnArc)
ptline.SetVertex(OnFirst,vtxarc);
if (typL == IntPatch_Walking) {
if(OnDifferentRst) {
wlin->AddVertex(ptline);
Nbvtx++;
}
else {
wlin->Replace(ivtx,ptline); wlin->Replace(ivtx,ptline);
} }
}
else {
if(OnDifferentRst) {
rlin->AddVertex(ptline);
Nbvtx++;
}
else { else {
rlin->Replace(ivtx,ptline); rlin->Replace(ivtx,ptline);
} }
for (k=1; k<=Nbvtx; k++) if (k != ivtx) {
if (typL == IntPatch_Walking) {
ptline = wlin->Vertex(k);
}
else {
ptline = rlin->Vertex(k);
}
if ( ( OnFirst && ptline.IsVertexOnS1())
|| (!OnFirst && ptline.IsVertexOnS2())) {
if (Domain->Identical(vtxref, (OnFirst)? (ptline.VertexOnS1()) : (ptline.VertexOnS2()))) {
if (ptline.Tolerance() < vtxTol) ptline.SetTolerance(vtxTol);
ptline.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (VtxOnArc)
ptline.SetVertex(OnFirst,vtxarc);
if (typL == IntPatch_Walking) {
wlin->Replace(k,ptline);
}
else {
rlin->Replace(k,ptline);
}
}
}
}
} }
else if( ( OnFirst && ptline.IsVertexOnS2()) }
|| (!OnFirst && ptline.IsVertexOnS1())) { else if ( ( OnFirst && ptline.IsVertexOnS2())
// on doit avoir vtxons2 = vtxarc... pas de verif... ||(!OnFirst && ptline.IsVertexOnS1())) {
Sommet = ptline; Sommet = ptline;
Sommet.SetArc(OnFirst,arc,paramarc,transline,transarc); Sommet.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (typL == IntPatch_Walking) { if (VtxOnArc)
wlin->AddVertex(Sommet); Sommet.SetVertex(OnFirst,vtxarc);
Nbvtx++; if (typL == IntPatch_Walking) {
} wlin->AddVertex(Sommet);
else { Nbvtx++;
rlin->AddVertex(Sommet);
Nbvtx++;
}
for (k=1; k<=Nbvtx; k++) if (k != ivtx) {
if (typL == IntPatch_Walking) {
ptline = wlin->Vertex(k);
}
else {
ptline = rlin->Vertex(k);
}
if ( ( OnFirst && ptline.IsVertexOnS1())
||(!OnFirst && ptline.IsVertexOnS2())) {
if (Domain->Identical(vtxref,(OnFirst)? (ptline.VertexOnS1()) : (ptline.VertexOnS2()))) {
if (ptline.Tolerance() < vtxTol) ptline.SetTolerance(vtxTol);
Sommet = ptline;
Sommet.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (typL == IntPatch_Walking) {
wlin->Replace(k,ptline);
wlin->AddVertex(Sommet);
Nbvtx++;
}
else {
rlin->Replace(k,ptline);
rlin->AddVertex(Sommet);
Nbvtx++;
}
}
}
}
} }
else { else {
//-- cout << "pb dans RstInt Type 2 " << endl; rlin->AddVertex(Sommet);
Nbvtx++;
} }
} }
else {
//-- cout << "pb dans RstInt Type 1 " << endl;
}
}
else {
Handle(Adaptor3d_HVertex) vtxref = (OnFirst)? (ptline.VertexOnS1()) : (ptline.VertexOnS2()) ;
if ( ( OnFirst && !ptline.IsOnDomS2())
||(!OnFirst && !ptline.IsOnDomS1())) {
ptline.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (VtxOnArc)
ptline.SetVertex(OnFirst,vtxarc);
if (typL == IntPatch_Walking) {
wlin->Replace(ivtx,ptline);
}
else {
rlin->Replace(ivtx,ptline);
}
for (k=1; k<=Nbvtx; k++) if (k != ivtx) {
if (typL == IntPatch_Walking) {
ptline = wlin->Vertex(k);
}
else {
ptline = rlin->Vertex(k);
}
if ( ( OnFirst && ptline.IsVertexOnS1())
|| (!OnFirst && ptline.IsVertexOnS2())) {
if (Domain->Identical(vtxref, (OnFirst)? (ptline.VertexOnS1()) : (ptline.VertexOnS2()))) {
if (ptline.Tolerance() < vtxTol) ptline.SetTolerance(vtxTol);
ptline.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (VtxOnArc)
ptline.SetVertex(OnFirst,vtxarc);
if (typL == IntPatch_Walking) {
wlin->Replace(k,ptline);
}
else {
rlin->Replace(k,ptline);
}
}
}
}
}
else if( ( OnFirst && ptline.IsVertexOnS2())
|| (!OnFirst && ptline.IsVertexOnS1())) {
// on doit avoir vtxons2 = vtxarc... pas de verif...
Sommet = ptline;
Sommet.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (typL == IntPatch_Walking) {
wlin->AddVertex(Sommet);
Nbvtx++;
}
else {
rlin->AddVertex(Sommet);
Nbvtx++;
}
for (k=1; k<=Nbvtx; k++) if (k != ivtx) {
if (typL == IntPatch_Walking) {
ptline = wlin->Vertex(k);
}
else {
ptline = rlin->Vertex(k);
}
if ( ( OnFirst && ptline.IsVertexOnS1())
||(!OnFirst && ptline.IsVertexOnS2())) {
if (Domain->Identical(vtxref,(OnFirst)? (ptline.VertexOnS1()) : (ptline.VertexOnS2()))) {
if (ptline.Tolerance() < vtxTol) ptline.SetTolerance(vtxTol);
Sommet = ptline;
Sommet.SetArc(OnFirst,arc,paramarc,transline,transarc);
if (typL == IntPatch_Walking) {
wlin->Replace(k,ptline);
wlin->AddVertex(Sommet);
Nbvtx++;
}
else {
rlin->Replace(k,ptline);
rlin->AddVertex(Sommet);
Nbvtx++;
}
}
}
}
}
else {
//-- cout << "pb dans RstInt Type 2 " << endl;
}
} }
} }
} }

60
tests/bugs/modalg_5/bug24472
View File

@ -6,6 +6,10 @@ puts ""
## Wrong section curves ## Wrong section curves
############################### ###############################
puts "TODO OCC29501 ALL: Error in ii12_22"
set MaxToler 1.5e-4
restore [locate_data_file bug24472_Pipe_1.brep] b1 restore [locate_data_file bug24472_Pipe_1.brep] b1
explode b1 f explode b1 f
@ -19,43 +23,51 @@ mksurface s3 f3
puts "" puts ""
puts "First test" puts "First test"
# 1.1 geometry # 1.1 geometry
intersect i s1 s2 intersect ii12 s1 s2
#donly i_22; fit foreach c [directory ii12*] {
bounds $c U1 U2
xdistcs i_22 s1 0 1 10 1e-7
if {[dval U2-U1] < 1.0e-9} {
puts "Error: Wrong curve's range!"
}
xdistcs $c s1 U1 U2 10 $MaxToler
xdistcs $c s2 U1 U2 10 $MaxToler
}
puts "" puts ""
puts "Second test" puts "Second test"
# 1.2 topology # 1.2 topology
bsection r f1 f2 bsection r12 f1 f2
bopcheck r bopcheck r12
# r is self interfered # OK
explode r e
mkcurve c r_1
#donly r_1; fit regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r12] full toler
if { $toler > $MaxToler } { puts "Error: Tolerance of the section r12 is too large" }
xdistcs c s1 0.0714822451660209 1 10 1e-12 1e-7
puts "" puts ""
puts "Third test" puts "Third test"
# 2.1 geometry # 2.1 geometry
intersect i s1 s3 intersect ii13 s1 s3
#donly i_4; fit foreach c [directory ii13*] {
bounds $c U1 U2
xdistcs i_4 s1 0 1 10 1e-6 1e-7
if {[dval U2-U1] < 1.0e-9} {
puts "Error: Wrong curve's range!"
}
xdistcs $c s1 U1 U2 10 $MaxToler
xdistcs $c s2 U1 U2 10 $MaxToler
}
puts "" puts ""
puts "Fourth test" puts "Fourth test"
# 2.2 topology # 2.2 topology
bsection r f1 f3 bsection r13 f1 f3
bopcheck r bopcheck r13
#r is self interfered # OK
explode r
mkcurve c r_1
#donly r_1; fit regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r13] full toler
if { $toler > $MaxToler } { puts "Error: Tolerance of the section r13 is too large" }
xdistcs c s1 0.0714822451660209 1 10 1e-12 1e-7

61
tests/bugs/modalg_6/bug25890
View File

@ -6,35 +6,50 @@ puts ""
## Intersection algorithm produces curves overlaped ## Intersection algorithm produces curves overlaped
############################### ###############################
set ExpToler 1.5361108163989659e-007
set ExpLen 5.036361740755879
restore [locate_data_file bug25890_f1.brep] f1 restore [locate_data_file bug25890_f1.brep] f1
restore [locate_data_file bug25890_f2.brep] f2 restore [locate_data_file bug25890_f2.brep] f2
set log [bopcurves f1 f2] set log [ bopcurves f1 f2 -2d ]
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
if { ${NbCurv} != 5 } { checkreal TolReached $Toler $ExpToler 0.0 0.1
puts "Error : NbCurv is bad"
}
set nbshapes_expected " if { ${NbCurv} != 1 } {
Number of shapes in shape puts "Error : NbCurv is bad"
VERTEX : 0
EDGE : 0 set nbshapes_expected "
WIRE : 0 Number of shapes in shape
FACE : 0 VERTEX : 0
SHELL : 0 EDGE : 0
SOLID : 0 WIRE : 0
COMPSOLID : 0 FACE : 0
COMPOUND : 1 SHELL : 0
SHAPE : 1 SOLID : 0
" COMPSOLID : 0
COMPOUND : 1
SHAPE : 1
"
for {set i 1} {$i <= $NbCurv} {incr i} { set SumLen 0.0
for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
puts " Check c_$i and c_$j" # Check for overlapping
mkedge e1 c_$i for {set i 1} {$i <= $NbCurv} {incr i} {
mkedge e2 c_$j regexp "The +length+ c_$i +is +(\[-0-9.+eE\]+)" [ length c_$i ] full m
bcommon rr e1 e2 set SumLen [ expr $SumLen + $m]
checknbshapes rr -ref "${nbshapes_expected}" -t -m "Partition of 2 shapes" for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
puts " Check c_$i and c_$j"
mkedge e1 c_$i
mkedge e2 c_$j
bcommon rr e1 e2
checknbshapes rr -ref "${nbshapes_expected}" -t -m "Partition of 2 shapes"
}
} }
checkreal Length $SumLen $ExpLen 1.0e-7 0.0
} else {
checklength c_1 -l $ExpLen
} }

2
tests/bugs/modalg_7/bug24418_1
View File

@ -1,4 +1,4 @@
puts "TODO OCC24418 ALL: Error : T=" puts "TODO OCC24418 ALL: Error in ii_2: T="
puts "========" puts "========"
puts "OCC24418" puts "OCC24418"

2
tests/bugs/modalg_7/bug24418_2
View File

@ -1,4 +1,4 @@
puts "TODO OCC24418 ALL: Error : T=" puts "TODO OCC24418 ALL: Error in ii_1: T="
puts "========" puts "========"
puts "OCC24418" puts "OCC24418"

2
tests/bugs/modalg_7/bug28544_1
View File

@ -1,4 +1,4 @@
puts "TODO OCC28544 ALL: Error : T=" puts "TODO OCC28544 ALL: Error in ii: T="
puts "========" puts "========"
puts "OCC28544" puts "OCC28544"

12
tests/bugs/modalg_7/bug29488_1
View File

@ -10,7 +10,17 @@ restore [locate_data_file bug29488_shapes.brep] s
eval mkvolume result [lrange [explode s] 1 end] eval mkvolume result [lrange [explode s] 1 end]
checkshape result checkshape result
checknbshapes result -wire 77 -face 77 -shell 1 -solid 1 checknbshapes result -wire 74 -face 74 -shell 1 -solid 1
checkprops result -s 3073.39 -v 10240.8 checkprops result -s 3073.39 -v 10240.8
set MinArea 0.001
foreach f [explode result f] {
regexp {Mass +: +([-0-9.+eE]+)} [sprops $f 1.0e-4] full anArea
if { $anArea == 0.0 } {
puts "Error in area computation: it is equal to 0"
} elseif {$anArea < $MinArea} {
puts "Error: Too small face has been created (S < $MinArea)"
}
}
checkview -display result -2d -path ${imagedir}/${test_image}.png checkview -display result -2d -path ${imagedir}/${test_image}.png

19
tests/bugs/modalg_7/bug29488_2
View File

@ -6,9 +6,6 @@ puts ""
# Regression: boolean operation " general fuse" creates solid containing 5 not connected shells lying on the one level # Regression: boolean operation " general fuse" creates solid containing 5 not connected shells lying on the one level
################################################# #################################################
puts "TODO OCC29494 ALL: Error : is WRONG because number of WIRE entities"
puts "TODO OCC29494 ALL: Error : is WRONG because number of FACE entities"
restore [locate_data_file bug29488_shapes.brep] s restore [locate_data_file bug29488_shapes.brep] s
bclearobjects bclearobjects
@ -18,5 +15,17 @@ bfillds
bbuild result bbuild result
checkshape result checkshape result
checknbshapes result -wire 401 -face 377 -shell 10 -solid 2 checknbshapes result -wire 390 -face 366 -shell 10 -solid 2
checkprops result -s 77135.9 -v 246693 checkprops result -s 77135.9 -v 245074
set MinArea 0.001
foreach f [explode result f] {
regexp {Mass +: +([-0-9.+eE]+)} [sprops $f 1.0e-4] full anArea
if { $anArea == 0.0 } {
puts "Error in area computation: it is equal to 0"
} elseif {$anArea < $MinArea} {
puts "Error: Too small face has been created (S < $MinArea)"
}
}
checkview -display result -2d -path ${imagedir}/${test_image}.png

35
tests/bugs/modalg_7/bug29494 Normal file
View File

@ -0,0 +1,35 @@
puts "========"
puts "OCC29494"
puts "========"
puts ""
#################################################
# Intersection line between two parametric surfaces is restricted incorrectly if it matches
# the surface boundary
#################################################
restore [locate_data_file bug29488_shapes.brep] s
explode s
explode s_4 f; copy s_4_13 f1
explode s_6 f; copy s_6_18 f2
smallview
clear
bopcurves f1 f2 -2d
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f1 f2 -2d] full Toler NbCurv
if {$Toler > 1.0e-7} {
puts "Error: Big tolerance is returned by intersector"
}
if {$NbCurv != 1} {
puts "Error: Please check NbCurves for intersector"
} else {
checklength c_1 -l 19.2
}
fit
disp f1 f2
checkview -screenshot -2d -path ${imagedir}/${test_image}.png