projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleaning.
[master-thesis.git]
/
Parasitemia
/
ParasitemiaCore
/
MatchingEllipses.fs
diff --git
a/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
b/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
index
ec10d93
..
c7a0627
100644
(file)
--- a/
Parasitemia/ParasitemiaCore/MatchingEllipses.fs
+++ b/
Parasitemia/ParasitemiaCore/MatchingEllipses.fs
@@
-1,6
+1,7
@@
module ParasitemiaCore.MatchingEllipses
open System
module ParasitemiaCore.MatchingEllipses
open System
+open System.Drawing
open System.Linq
open System.Collections
open System.Collections.Generic
open System.Linq
open System.Collections
open System.Collections.Generic
@@
-29,7
+30,7
@@
type MatchingEllipses (radius: float32) =
let ellipses = List<EllipseScoreFlaggedKd>()
// All ellipses with a score below this are removed.
let ellipses = List<EllipseScoreFlaggedKd>()
// All ellipses with a score below this are removed.
- let matchingScoreThreshold = 0.4f
// 0.5f
+ let matchingScoreThreshold = 0.4f
member this.Add (e: Ellipse) =
ellipses.Add(EllipseScoreFlaggedKd(0.f, e))
member this.Add (e: Ellipse) =
ellipses.Add(EllipseScoreFlaggedKd(0.f, e))
@@
-46,7
+47,7
@@
type MatchingEllipses (radius: float32) =
let tree = KdTree.Tree.BuildTree (List.ofSeq ellipses)
// 2) Compute the matching score of each ellipses.
let tree = KdTree.Tree.BuildTree (List.ofSeq ellipses)
// 2) Compute the matching score of each ellipses.
- let windowSize = radius /
2
.f
+ let windowSize = radius /
3
.f
for e in ellipses do
e.Processed <- true
let areaE = e.Ellipse.Area
for e in ellipses do
e.Processed <- true
let areaE = e.Ellipse.Area