- let green = gaussianFilter green 1.5
-
- // let RBCSize = Granulometry.findRadius green (10, 100) 0.5
-
- match config.debug with
- | DebugOn output ->
- let dirPath = System.IO.Path.Combine(output, name)
- System.IO.Directory.CreateDirectory dirPath |> ignore
- let buildFileName postfix = System.IO.Path.Combine(dirPath, name + postfix)
-
- saveImg green (buildFileName " - green.png")
-
- let greenMaxima = green.Copy()
- let maxima = ImgTools.findMaxima greenMaxima
- for m in maxima do
- for p in m do
- greenMaxima.Data.[p.Y, p.X, 0] <- 255uy
-
- saveImg greenMaxima (buildFileName " - maxima.png")
-
- logTime "areaOpen" (fun () -> ImgTools.areaOpen green 800)
- saveImg green (buildFileName " - green opened.png")
-
- | _ -> ()
-
- []
- (*