+ let greenOpen1 = filteredGreen.Copy()
+ logTime "areaOpen1" (fun () -> ImgTools.areaOpen greenOpen1 2000)*)
+
+ let initialAreaOpen = 2000
+ logTime "areaOpen 1" (fun () -> ImgTools.areaOpen filteredGreen 2000)
+
+ config.RBCRadius <- Granulometry.findRadius filteredGreen (10, 100) 0.5 |> float
+
+ let secondAreaOpen = int <| config.RBCArea / 3.
+ if secondAreaOpen > initialAreaOpen
+ then
+ logTime "areaOpen 2" (fun () -> ImgTools.areaOpen filteredGreen secondAreaOpen)