+ let greenFloat = green.Convert<Gray, float32>()
+
+ let filteredGreen = gaussianFilter green config.Parameters.preFilterSigma
+
+ (*let maximaImg = filteredGreen.Copy()
+ let maxima = logTime "maxima" (fun () -> ImgTools.findMaxima maximaImg)
+ for m in maxima do
+ ImgTools.drawPoints maximaImg m 255uy
+
+ let greenOpen1 = filteredGreen.Copy()
+ logTime "areaOpen1" (fun () -> ImgTools.areaOpen greenOpen1 2000)*)
+
+ logTime "areaOpen" (fun () -> ImgTools.areaOpen filteredGreen 2000)
+
+ config.RBCSize <- Granulometry.findRadius filteredGreen (10, 100) 0.5 |> float
+
+ let filteredGreenFloat = filteredGreen.Convert<Gray, float32>() // Is it neccessary?
+
+ let kmediansResults = logTime "Finding foreground (k-medians)" (fun () -> KMedians.kmedians filteredGreenFloat 1.0)
+
+ let parasites, filteredGreenWhitoutParasites, filteredGreenWhitoutStain = ParasitesMarker2.find filteredGreen filteredGreenFloat kmediansResults config
+ let filteredGreenWhitoutParasitesFloat = filteredGreenWhitoutParasites.Convert<Gray, float32>()