From 239fd07e4d7253ee1114595396088a3e3b51f316 Mon Sep 17 00:00:00 2001
From: skv <skv@opencascade.com>
Date: Fri, 11 Apr 2014 10:54:04 +0400
Subject: [PATCH] 0022512: Fix for regression after fix for 0022514

---
 src/GEOMImpl/GEOMImpl_ShapeDriver.cxx | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/GEOMImpl/GEOMImpl_ShapeDriver.cxx b/src/GEOMImpl/GEOMImpl_ShapeDriver.cxx
index 61b902d17..360b94c83 100644
--- a/src/GEOMImpl/GEOMImpl_ShapeDriver.cxx
+++ b/src/GEOMImpl/GEOMImpl_ShapeDriver.cxx
@@ -990,9 +990,23 @@ TopoDS_Edge GEOMImpl_ShapeDriver::MakeEdgeFromWire(const TopoDS_Shape& aWire,
           Handle(Geom_Curve)::DownCast(CurveSeq(1)->Copy());
 
         aNewCurve->Transform(LocSeq(1).Location().Transformation());
+
+        if (LocSeq(1).Orientation() == TopAbs_REVERSED) {
+          const TopoDS_Vertex aVtxTmp = FirstVertex;
+
+          FirstVertex = LastVertex;
+          LastVertex  = aVtxTmp;
+          FirstVertex.Orientation(TopAbs_FORWARD);
+          LastVertex.Orientation(TopAbs_REVERSED);
+        }
+
         ResEdge = BRepLib_MakeEdge(aNewCurve,
                                    FirstVertex, LastVertex,
                                    FparSeq(1), LparSeq(1));
+
+        if (LocSeq(1).Orientation() == TopAbs_REVERSED) {
+          ResEdge.Reverse();
+        }
       }
     }
 
-- 
2.39.2