X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FEEOver.fs;h=640d7525a2083aa559e4bdc40bd8883287d860a2;hp=81bdbf808fb08b746af7a7681c68b91503876ceb;hb=d9a6e072ecf299db691c05bb559a71265f812ba3;hpb=06bd63d8c01100c28873dfafd59b5efccbfb67e4

diff --git a/Parasitemia/Parasitemia/EEOver.fs b/Parasitemia/Parasitemia/EEOver.fs
index 81bdbf8..640d752 100644
--- 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