10 type CellClass = HealthyRBC | InfectedRBC | Peculiar
15 elements
: Matrix<byte
> }
17 type KdEllipse (e
: Types.Ellipse) =
18 inherit Types.Ellipse (e
.Cx, e
.Cy, e
.A, e
.B, e
.Alpha)
20 interface KdTree.I2DCoords with
21 member this
.X = this
.Cx
22 member this
.Y = this
.Cy
25 let findCells (ellipses
: Types.Ellipse list) (parasites
: ParasitesMarker.Result) (fg
: Image<Gray, byte
>) : Cell list =
30 let tree = KdTree.Tree.buildTree
(ellipses
|> List.map
KdEllipse)