projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replace F# list by List<T> for KdTree.
[master-thesis.git]
/
Parasitemia
/
ParasitemiaCore
/
Classifier.fs
diff --git
a/Parasitemia/ParasitemiaCore/Classifier.fs
b/Parasitemia/ParasitemiaCore/Classifier.fs
index
475e336
..
b01a041
100644
(file)
--- a/
Parasitemia/ParasitemiaCore/Classifier.fs
+++ b/
Parasitemia/ParasitemiaCore/Classifier.fs
@@
-90,7
+90,7
@@
let findCells (ellipses : Ellipse list) (parasites : ParasitesMarker.Result) (wi
if e.State <> CellState.Removed then
tree.Search (searchRegion e)
// We only keep the ellipses touching 'e'.
if e.State <> CellState.Removed then
tree.Search (searchRegion e)
// We only keep the ellipses touching 'e'.
- |>
List
.choose (
+ |>
Seq
.choose (
fun otherE ->
if e <> otherE then
match EEOver.EEOverlapArea e otherE with
fun otherE ->
if e <> otherE then
match EEOver.EEOverlapArea e otherE with
@@
-104,6
+104,7
@@
let findCells (ellipses : Ellipse list) (parasites : ParasitesMarker.Result) (wi
else
None
)
else
None
)
+ |> List.ofSeq
else
[]
else
[]