e.Removed <- true
// 5) Define pixels associated to each ellipse and create the cells.
- let radiusParasiteRatio = 0.4f
- let radiusParasite = config.RBCRadius.Pixel * 0.5f
- let perimeterParasiteSquared = (2.f * radiusParasite) ** 2.f |> roundInt
- let parasiteOccupation = 0.08f // 8 %
- let minimumParasiteArea = Const.PI * radiusParasite ** 2.f * parasiteOccupation |> roundInt
- //let minimumStainArea = roundInt <| config.RBCRadius.Area * 0.02f // 1.5 %
+ let perimeterParasiteSquared = (2.f * config.RBCRadius.ParasiteRadius) ** 2.f |> roundInt
+ let minimumParasiteArea = config.RBCRadius.MinimumParasiteArea |> roundInt
ellipsesWithNeigbors
|> List.choose (fun (e, neighbors) ->
if e.Removed