Remove ellipses touching the edges.

[master-thesis.git] / Parasitemia / Parasitemia / Program.fs

diff --git a/Parasitemia/Parasitemia/Program.fs b/Parasitemia/Parasitemia/Program.fs
index fd9a2f9..b44c65f 100644 (file)
--- a/Parasitemia/Parasitemia/Program.fs
+++ b/Parasitemia/Parasitemia/Program.fs
@@ -55,17 +55,18 @@ do
     //use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/rbc_single_oblong_4.png")
     //use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/strange_rbc_1.png")
     //use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/rbc_single_blurred.png")   
-    //use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/lot.png")
+    use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/lot.png")
 
 
     ///// PARASITES /////
-    use img = new Image<Bgr, byte>("../../../../src/Parasites/images/1.png")
+    //use img = new Image<Bgr, byte>("../../../../src/Parasites/images/1.png")
     
 //    KdTree.test3 ()
 //    Utils.dprintfn "area: %A" area
 
-    let result = ImageAnalysis.doAnalysis img config
+    let result = Utils.logTime "Total" (fun () ->
+        ImageAnalysis.doAnalysis img config )
     
-    display mainWindow result.img
+    display mainWindow img
     mainWindow.Root.Show()
     app.Run() |> ignore