Utils.log <- (fun m -> log mainWindow m)
let config = {
+ scale = 1.0
+
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_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()
-
app.Run() |> ignore