- let threshold = CvInvoke.Threshold(magnitudesByte, edges, 0.0, 1.0, CvEnum.ThresholdType.Otsu ||| CvEnum.ThresholdType.Binary)
- thin edges
- removeArea edges 12
+ let threshold = CvInvoke.Threshold(magnitudesByte, edges, 0.0, 1.0, CvEnum.ThresholdType.Otsu ||| CvEnum.ThresholdType.Binary)
+
+// let filteredGreenMat = new Matrix<float32>(filteredGreen.Size)
+// filteredGreen.CopyTo(filteredGreenMat)
+ let parasites = ParasitesMarker.find green filteredGreen config
+
+ saveImg parasites.darkStain "parasites_dark_stain.png"
+ saveImg parasites.stain "parasites_stain.png"
+ saveImg parasites.infection "parasites_infection.png"
+
+ logTime "Finding edges" (fun() ->
+ thin edges)
+
+ logTime "Removing small connected components" (fun () ->
+ removeArea edges 12)