- let factorNbPick = 1.0;
- let ellipses = Ellipse.find edges xEdges yEdges radiusRange windowSize factorNbPick
-
- drawEllipse img (List.head ellipses) (Bgr(0.0, 255.0, 255.0))
- saveImg img "ellipses.png"
-
- { RBCPositions = []; infectedRBCPositions = []; img = img }
+ let factorNbPick = 1.5
+ let ellipses = logTime "Finding ellipses" (fun () ->
+ Ellipse.find edges xEdges yEdges radiusRange windowSize factorNbPick) |> List.filter (fun e -> not (e.CutAVericalLine 0.0) &&
+ not (e.CutAVericalLine (float img.Width)) &&
+ not (e.CutAnHorizontalLine 0.0) &&
+ not (e.CutAnHorizontalLine (float img.Height)))
+
+ drawEllipses img ellipses (Bgr(0.0, 255.0, 255.0))
+ //saveImg img "ellipses.png"
+
+ Classifier.findCells ellipses parasites kmediansResults.fg