From fe12f15cb498db130c72aeaf0dbb688c3b0abb2f Mon Sep 17 00:00:00 2001
From: AndreyLA <AndreyLA@opencascade.com>
Date: Thu, 24 Mar 2022 17:36:11 +0300
Subject: [PATCH] 0024657: 2dintersect returns different number of intersect
 points in curve intersecting the polygon points is never replaced by line

Test for 2d intersection is added
---
 tests/bugs/modalg_5/bug24657 | 45 ++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 tests/bugs/modalg_5/bug24657

diff --git a/tests/bugs/modalg_5/bug24657 b/tests/bugs/modalg_5/bug24657
new file mode 100644
index 0000000000..fba2aa6452
--- /dev/null
+++ b/tests/bugs/modalg_5/bug24657
@@ -0,0 +1,45 @@
+puts "============"
+puts "0024657: 2dintersect returns different number of intersect points"
+puts "==========="
+puts ""
+
+restore [locate_data_file bug24657.brep] a
+
+explode a e
+
+# Initialize two 2d pcurves
+pcurve p4 a_4 a
+pcurve p5 a_5 a
+
+# Recieve an output strings of the intersection operation
+set inter1 [2dintersect p4 p5 -tol 1.e-7]
+set inter2 [2dintersect p5 p4 -tol 1.e-7]
+
+# Check if the number of intersections is equal to 1
+set int1 [regexp -all {Intersection point} ${inter1}]
+set int2 [regexp -all {Intersection point} ${inter2}]
+
+if { ${int1} != ${int2} ||  ${int1} != 1} {
+    puts "Error : The intersection points number is different!"
+} 
+
+# Verify the coordinates of the intersection points
+regexp -all {Intersection point 1 : ([-0-9.+eE]+) ([-0-9.+eE]+)} $inter1 full x1 y1
+regexp -all {Intersection point 1 : ([-0-9.+eE]+) ([-0-9.+eE]+)} $inter2 full x2 y2
+if { [expr abs($x1 - $x2)] > 1.e-7 || [expr abs($y1 - $y2) ] > 1.e-7} {
+    puts "Error : The intersection points do not match!"
+}
+
+regexp -all {parameter on the fist: ([-0-9.+eE]+) parameter on the second: ([-0-9.+eE]+)} $inter1 full par11 par12
+regexp -all {parameter on the fist: ([-0-9.+eE]+) parameter on the second: ([-0-9.+eE]+)} $inter2 full par21 par22
+
+if { [expr abs($par11 - $par22)] > 1.e-7 || [expr abs($par21 - $par12) ] > 1.e-7} {
+    puts "Error : The intersection points parameters do not match!"
+}
+
+#v2d2
+view 1 -2D-  728 20 400 400
+
+2dfit
+
+xwd ${imagedir}/${test_image}.png