module ParasitemiaCore.MatchingEllipses
open System
+open System.Drawing
open System.Linq
open System.Collections
open System.Collections.Generic
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))
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