From: nbv <nbv@opencascade.com>
Date: Thu, 19 Jan 2017 14:35:14 +0000 (+0300)
Subject: Fix for issue #28168
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=2ee1f18a62aafd22beb28cf56bea7e2da7254bb3;p=occt-copy.git

Fix for issue #28168

Set-62
---

diff --git a/src/IntPolyh/IntPolyh_MaillageAffinage.cxx b/src/IntPolyh/IntPolyh_MaillageAffinage.cxx
index ac68281463..11b0c5c8bf 100644
--- a/src/IntPolyh/IntPolyh_MaillageAffinage.cxx
+++ b/src/IntPolyh/IntPolyh_MaillageAffinage.cxx
@@ -2197,7 +2197,7 @@ void CalculPtsInterTriEdgeCoplanaires2(const Standard_Integer TriSurfID,
     Standard_Real p0p = Per.Dot(PT1);
     ///The edge are PT1 are projected on the perpendicular of the side in the plane of the triangle
     if ( ( (p1p>=p0p)&&(p0p>=p2p) )||( (p1p<=p0p)&&(p0p<=p2p) ) ) {
-      Standard_Real lambda=(p1p-p0p)/(p1p-p2p);
+      const Standard_Real lambda= Abs(p1p-p2p) < RealSmall() ? 0.0 : (p1p-p0p)/(p1p-p2p);
       if (lambda<-MyConfusionPrecision) {
 
       }