X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;ds=sidebyside;f=Parasitemia%2FParasitemia%2FParasitesMarker2.fs;fp=Parasitemia%2FParasitemia%2FParasitesMarker2.fs;h=03af2b6e715a25b4d567085459673e91ad5eb73a;hb=84fdf7404133803fdf0dc867a4da68a144975191;hp=0000000000000000000000000000000000000000;hpb=5ac2dedf8ead5275ac216e0b41829ab39c843800;p=master-thesis.git

diff --git a/Parasitemia/Parasitemia/ParasitesMarker2.fs b/Parasitemia/Parasitemia/ParasitesMarker2.fs
new file mode 100644
index 0000000..03af2b6
--- /dev/null
+++ b/Parasitemia/Parasitemia/ParasitesMarker2.fs
@@ -0,0 +1,50 @@
+module ParasitesMarker2
+
+open System.Drawing
+
+open Emgu.CV
+open Emgu.CV.Structure
+
+type Result = {
+    darkStain: Image<Gray, byte>
+    stain: Image<Gray, byte>
+    infection: Image<Gray, byte> }
+
+// Create three binary markers :
+// * 'Dark stain' corresponds to the colored pixel, it's independent of the size of the areas.
+// * 'Stain' corresponds to the stain around the parasites.
+// * 'Infection' corresponds to the parasite. It shouldn't contain thrombocytes.
+let find (filteredGreen: Image<Gray, byte>) (filteredGreenFloat: Image<Gray, float32>) (kmediansResult: KMedians.Result) (config: Config.Config) : Result * Image<Gray, byte> * Image<Gray, byte> =
+
+    // We use the filtered image to find the dark stain.
+    let { KMedians.fg = fg; KMedians.median_bg = median_bg; KMedians.median_fg = median_fg; KMedians.d_fg = d_fg } = kmediansResult
+    let darkStain = d_fg.Cmp(median_bg * config.Parameters.darkStainLevel, CvEnum.CmpType.GreaterThan)
+    darkStain._And(filteredGreenFloat.Cmp(median_fg, CvEnum.CmpType.LessThan))
+
+    let marker (area: int) (threshold: float) : Image<Gray, byte> * Image<Gray, byte> =
+        let closed = filteredGreen.Copy()
+        ImgTools.areaClose closed area
+        let diff = closed - filteredGreen
+
+        let min = ref [| 0. |]
+        let minLocation = ref <| [| Point() |]
+        let max = ref [| 0. |]
+        let maxLocation = ref <| [| Point() |]
+        diff.MinMax(min, max, minLocation, maxLocation)
+
+        diff._ThresholdBinary((!max).[0] * threshold |> Gray, Gray(255.))
+        diff, closed
+
+    let parasitesMarker, filteredGreenWithoutParasites  = marker (int config.ParasiteArea) config.Parameters.infectionLevel
+    let stainMarker, filteredGreenWithoutStain = marker (int config.StainArea) config.Parameters.stainLevel
+
+    { darkStain = darkStain
+      stain = parasitesMarker
+      infection = stainMarker },
+    filteredGreenWithoutParasites,
+    filteredGreenWithoutStain
+
+
+
+
+