Finding ellipses and parasites.

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

diff --git a/Parasitemia/Parasitemia/Program.fs b/Parasitemia/Parasitemia/Program.fs
index 56672bd..fd9a2f9 100644 (file)
--- a/Parasitemia/Parasitemia/Program.fs
+++ b/Parasitemia/Parasitemia/Program.fs
@@ -33,20 +33,39 @@ do
     Utils.log <- (fun m -> log mainWindow m)
 
     let config = {
     Utils.log <- (fun m -> log mainWindow m)
 
     let config = {

+        scale = 1.0
+

         doGSigma1 = 1.5
         doGSigma2 = 20.0
         doGLowFreqPercentageReduction = 0.9
         doGSigma1 = 1.5
         doGSigma2 = 20.0
         doGLowFreqPercentageReduction = 0.9

-        scale = 1.0
-    }
+
+        darkStainLevel = 0.839     
+        
+        stainSigma = 10.0
+        stainLevel = 0.9
+        stainSpreadRequired = 3.0
+    
+        infectionSigma = 2.0
+        infectionLevel = 0.762
+        infectionPixelsRequired = 1 }

    
    

-    //use img = new Image<Rgb, byte>("../../../../src/Tests_hough/images/1508133543-7-4-120-0001.png")
+    ///// ELLIPSES /////
+    //use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/1508133543-7-4-120-0001.png")

     //use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/rbc_single.png")
     //use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/rbc_single.png")

-    //use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/rbc_single_oblong_2.png")
-    use img = new Image<Bgr, byte>("../../../../src/Tests_hough/images/two_rbc_1.png")
-   
-    let result = ImageAnalysis.doAnalysis img config
+    //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")
+
+
+    ///// PARASITES /////
+    use img = new Image<Bgr, byte>("../../../../src/Parasites/images/1.png")
+    
+//    KdTree.test3 ()
+//    Utils.dprintfn "area: %A" area

 
 

+    let result = ImageAnalysis.doAnalysis img config
+    

     display mainWindow result.img
     mainWindow.Root.Show()
     display mainWindow result.img
     mainWindow.Root.Show()

-

     app.Run() |> ignore
     app.Run() |> ignore