projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
| 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