X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FClassifier.fs;fp=Parasitemia%2FParasitemia%2FClassifier.fs;h=24ea4a72f61ef20411d447207d96017f0090118c;hp=644163549163319d37077b25f59ab00006a41806;hb=d9a6e072ecf299db691c05bb559a71265f812ba3;hpb=06bd63d8c01100c28873dfafd59b5efccbfb67e4

diff --git a/Parasitemia/Parasitemia/Classifier.fs b/Parasitemia/Parasitemia/Classifier.fs
index 6441635..24ea4a7 100644
--- a/Parasitemia/Parasitemia/Classifier.fs
+++ b/Parasitemia/Parasitemia/Classifier.fs
@@ -14,5 +14,18 @@ type Cell = {
     center: Point
     elements: Matrix<byte> }
 
+type KdEllipse (e: Types.Ellipse) =
+    inherit Types.Ellipse (e.Cx, e.Cy, e.A, e.B, e.Alpha)
+    
+    interface KdTree.I2DCoords with    
+        member this.X = this.Cx
+        member this.Y = this.Cy
+        
+    
 let findCells (ellipses: Types.Ellipse list) (parasites: ParasitesMarker.Result) (fg: Image<Gray, byte>) : Cell list =
-    []
\ No newline at end of file
+    if ellipses.IsEmpty
+    then
+        []
+    else
+        let tree = KdTree.Tree.buildTree (ellipses |> List.map KdEllipse)
+        []
\ No newline at end of file