From 8bd22224ca77f3d7b9fb84a3e767f4ef6edd9bdb Mon Sep 17 00:00:00 2001
From: jfa <jfa@opencascade.com>
Date: Wed, 9 Mar 2022 18:33:58 +0300
Subject: [PATCH] [bos #26723] EDF 24464 - Problem of extra-edges

---
 src/BlockFix/BlockFix_BlockFixAPI.cxx | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/BlockFix/BlockFix_BlockFixAPI.cxx b/src/BlockFix/BlockFix_BlockFixAPI.cxx
index 1e1a7b6ff..513526b3b 100644
--- a/src/BlockFix/BlockFix_BlockFixAPI.cxx
+++ b/src/BlockFix/BlockFix_BlockFixAPI.cxx
@@ -96,6 +96,8 @@ void BlockFix_BlockFixAPI::Perform()
     //Unifier.SetLinearTolerance(myTolerance);
     Unifier.SetLinearTolerance(Precision::Confusion());
     Unifier.SetAngularTolerance(Precision::Confusion());
+    //Unifier.SetAngularTolerance(1e-5);
+    //Unifier.SetAngularTolerance(0.1);
     Unifier.Build();
     aResult = Unifier.Shape();
   }
@@ -121,6 +123,7 @@ void BlockFix_BlockFixAPI::Perform()
   Standard_Boolean isConcatBSplines = Standard_True;
   Unifier.Initialize(aResult, isUnifyEdges, isUnifyFaces, isConcatBSplines);
   Unifier.SetLinearTolerance(myTolerance);
+  Unifier.SetAngularTolerance(1e-5);
   Unifier.Build();
   myShape = Unifier.Shape();
 #endif
-- 
2.39.2