open Emgu.CV.Structure
open Const
+open UnitsOfMeasure
type Points = HashSet<Point>
override this.ToString () =
sprintf "{Ellipse: cx = %f, cy = %f, a = %f, b = %f, alpha = %f}" this.Cx this.Cy this.A this.B this.Alpha
+[<Struct>]
type CellClass = HealthyRBC | InfectedRBC | Peculiar
type Cell =
member this.ReturnFrom (x) = x
-let result = ResultBuilder ()
\ No newline at end of file
+let result = ResultBuilder ()
+
+type AnalysisResult =
+ {
+ Cells : Cell list
+ RBCSize_μm : float<μm>
+ RBCSize_px : float32
+ }
\ No newline at end of file