projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change the way the dark stain is marked.
[master-thesis.git]
/
Parasitemia
/
ParasitemiaCore
/
MatchingEllipses.fs
diff --git
a/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
b/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
index
f028e90
..
d4a6a41
100644
(file)
--- a/
Parasitemia/ParasitemiaCore/MatchingEllipses.fs
+++ b/
Parasitemia/ParasitemiaCore/MatchingEllipses.fs
@@
-10,10
+10,11
@@
open Types
open Utils
// All ellipses with a score below this are removed.
open Utils
// All ellipses with a score below this are removed.
-let matchingScoreThresholdPerRadiusUnit = 0.0
25f // For a radius of 1.
+let matchingScoreThresholdPerRadiusUnit = 0.0
7f // For a radius of 1. // 0.25
let matchingScorePower = 20.f
let matchingScorePower = 20.f
-let windowSizeRadiusFactor = 1.f / 2.f
-let minimumDistanceFromCenterRadiusFactor = 1.f / 4.f
+let windowSizeRadiusFactor = 1.f / 2.f // Used when searching for neighbor ellipses.
+let minimumDistanceFromCenterRadiusFactor = 1.f / 3.f
+let minimumAreaFactor = 1.1f;
type private EllipseScoreFlaggedKd (matchingScore: float32, e: Ellipse) =
let mutable matchingScore = matchingScore
type private EllipseScoreFlaggedKd (matchingScore: float32, e: Ellipse) =
let mutable matchingScore = matchingScore
@@
-92,7
+93,7
@@
type MatchingEllipses (radius: float32) =
else
// Case where ellipses are overlapped.
match EEOver.EEOverlapArea e.Ellipse other.Ellipse with
else
// Case where ellipses are overlapped.
match EEOver.EEOverlapArea e.Ellipse other.Ellipse with
- | Some (overlapArea, _, _) when e.Ellipse.Area <
1.1f * overlapArea || other.Ellipse.Area < 1.1f
* overlapArea ->
+ | Some (overlapArea, _, _) when e.Ellipse.Area <
minimumAreaFactor * overlapArea || other.Ellipse.Area < minimumAreaFactor
* overlapArea ->
other.Removed <- true
| _ ->
()
other.Removed <- true
| _ ->
()