From 2a00c4658c20bbd041ac6f3aabf68fee5f375d20 Mon Sep 17 00:00:00 2001
From: vsr <vsr@opencascade.com>
Date: Mon, 24 Sep 2012 15:10:59 +0000
Subject: [PATCH] 0021868: EDF GEOM : Bug with "What is"

---
 src/GEOMAlgo/GEOMAlgo_ShapeInfoFiller.cxx | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/GEOMAlgo/GEOMAlgo_ShapeInfoFiller.cxx b/src/GEOMAlgo/GEOMAlgo_ShapeInfoFiller.cxx
index a599ca89e..5bfdb55cb 100644
--- a/src/GEOMAlgo/GEOMAlgo_ShapeInfoFiller.cxx
+++ b/src/GEOMAlgo/GEOMAlgo_ShapeInfoFiller.cxx
@@ -570,9 +570,11 @@ void GEOMAlgo_ShapeInfoFiller::FillEdge(const TopoDS_Shape& aS)
     aPc.SetXYZ(aXYZc);
     aInfo.SetLocation(aPc);
     //
-    gp_Vec aVec(aPc, aP2);
-    gp_Dir aDir(aVec);
-    aInfo.SetDirection(aDir);
+    if ( aLength >= gp::Resolution() ) {
+      gp_Vec aVec(aPc, aP2);
+      gp_Dir aDir(aVec);
+      aInfo.SetDirection(aDir);
+    }
   }
   //modified by NIZNHY-PKV Tue Jul 03 10:19:06 2012t
   // Line
-- 
2.39.2