Remove ellipses touching the edges.

[master-thesis.git] / Parasitemia / Parasitemia / EEOver.fs

diff --git a/Parasitemia/Parasitemia/EEOver.fs b/Parasitemia/Parasitemia/EEOver.fs
index 81bdbf8..640d752 100644 (file)
--- a/Parasitemia/Parasitemia/EEOver.fs
+++ b/Parasitemia/Parasitemia/EEOver.fs
@@ -716,4 +716,6 @@ let EEOverlapArea (e1: Types.Ellipse) (e2: Types.Ellipse) : (float * float[] * f
                 | 3 -> threeintpts xint yint a1 b1 phi_1 a2 b2 h2_tr k2_tr phi_2 aa bb cc dd ee ff
                 | 4 -> fourintpts xint yint a1 b1 phi_1 a2 b2 h2_tr k2_tr phi_2 aa bb cc dd ee ff
                 | _ -> -1.0
-            Some (area, xint.[..nintpts-1], yint.[..nintpts-1])
\ No newline at end of file
+            if nintpts = 0
+            then Some (area, [||], [||])
+            else Some (area, xint.[..nintpts-1], yint.[..nintpts-1])
\ No newline at end of file