- |> List.choose (fun (e, neighbors) ->
- if e.State = CellState.Removed then
- None
- else
- let mutable darkStainPixels = 0
- let mutable nbElement = 0
- let minX, minY, maxX, maxY = ellipseWindow e
- for y = minY to maxY do
- for x = minX to maxX do
- let p = PointF(float32 x, float32 y)
- if pixelOwnedByE p e neighbors then
- nbElement <- nbElement + 1
- if darkStainData.[y, x, 0] > 0uy then
- darkStainPixels <- darkStainPixels + 1
+ |> List.choose (
+ fun (e, neighbors) ->
+ if e.State = CellState.Removed then
+ None
+ else
+ let mutable darkStainPixels = 0
+ let mutable nbElement = 0
+ let minX, minY, maxX, maxY = ellipseWindow e
+ for y = minY to maxY do
+ for x = minX to maxX do
+ let p = PointF (float32 x, float32 y)
+ if pixelOwnedByE p e neighbors then
+ nbElement <- nbElement + 1
+ if darkStainData.[y, x, 0] > 0uy then
+ darkStainPixels <- darkStainPixels + 1