From 074eb06e7a2845e9186cef3d08bfdb29240558fd Mon Sep 17 00:00:00 2001
From: nbv <nbv@opencascade.com>
Date: Thu, 18 May 2017 15:31:13 +0300
Subject: [PATCH] 0028718: Section result has a break

Fix of the problem.
---
 src/IntTools/IntTools_FaceFace.cxx |  7 +++++--
 tests/bugs/modalg_6/bug28718       | 30 ++++++++++++++++++++++++++++++
 2 files changed, 35 insertions(+), 2 deletions(-)
 create mode 100644 tests/bugs/modalg_6/bug28718

diff --git a/src/IntTools/IntTools_FaceFace.cxx b/src/IntTools/IntTools_FaceFace.cxx
index b3a1ba5134..d99c0c1792 100644
--- a/src/IntTools/IntTools_FaceFace.cxx
+++ b/src/IntTools/IntTools_FaceFace.cxx
@@ -1025,12 +1025,15 @@ Standard_Real IntTools_FaceFace::ComputeTolerance()
     }
   }// if ((aType1==GeomAbs_Plane && aType2==GeomAbs_Torus) ||
   //
+  else if ((aType1 == GeomAbs_Plane && aType2 == GeomAbs_SurfaceOfExtrusion) ||
+           (aType2 == GeomAbs_Plane && aType1 == GeomAbs_SurfaceOfExtrusion))
+  {
+    myTolReached3d = ComputeTolerance();
+  }
   else if ((aType1==GeomAbs_SurfaceOfRevolution && aType2==GeomAbs_Cylinder) ||
            (aType2==GeomAbs_SurfaceOfRevolution && aType1==GeomAbs_Cylinder) ||
            (aType1==GeomAbs_Plane && aType2==GeomAbs_Sphere) ||
            (aType2==GeomAbs_Plane && aType1==GeomAbs_Sphere) ||
-           (aType1==GeomAbs_Plane && aType2==GeomAbs_SurfaceOfExtrusion) ||
-           (aType2==GeomAbs_Plane && aType1==GeomAbs_SurfaceOfExtrusion) ||
            (aType1==GeomAbs_Plane && aType2==GeomAbs_BSplineSurface) ||
            (aType2==GeomAbs_Plane && aType1==GeomAbs_BSplineSurface) ||
            (aType1==GeomAbs_Cylinder && aType2==GeomAbs_BSplineSurface) ||
diff --git a/tests/bugs/modalg_6/bug28718 b/tests/bugs/modalg_6/bug28718
new file mode 100644
index 0000000000..22727f3c8c
--- /dev/null
+++ b/tests/bugs/modalg_6/bug28718
@@ -0,0 +1,30 @@
+puts "========"
+puts "OCC28718"
+puts "========"
+puts ""
+#################################################
+# Section result has a break
+#################################################
+
+set ExpTol 1.0665733242938802e-008
+
+restore [locate_data_file bug28718_bulk_1.brep] b1
+restore [locate_data_file bug28718_hull.brep] b2
+
+####
+
+explode b1 f
+explode b2 f
+axo
+don b2_61
+fit
+
+set log [bopcurves b1_1 b2_61 -2d]
+
+regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
+checkreal TolReached $Toler $ExpTol 0.0 0.1
+
+bsection result b1 b2
+
+set length 19.1199
+set 2dviewer 1
\ No newline at end of file
-- 
2.39.5