0024657: 2dintersect returns different number of intersect points in curve intersecti...

Test for 2d intersection is added

diff --git a/tests/bugs/modalg_5/bug24657 b/tests/bugs/modalg_5/bug24657
new file mode 100644 (file)
index 0000000..fba2aa6
--- /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