open ParasitemiaCore.UnitsOfMeasure
-let healthyRBColor = Color.FromRgb(255uy, 255uy, 0uy) // Yellow-green.
-let infectedRBColor = Color.FromRgb(255uy, 0uy, 40uy) // Red with a bit of blue.
-
type RBC =
{
num : int
infectedArea : int
}
-type SourceImage =
- {
- mutable num : int
- mutable name : string
-
- mutable config : ParasitemiaCore.Config.Config
- mutable dateLastAnalysis : DateTime // UTC.
- img : Image<Bgr, byte>
- mutable rbcs : RBC list
-
- mutable healthyRBCBrightness : float32
- mutable infectedRBCBrightness : float32
- }
- with
- member this.HealthyRBCColor : SolidColorBrush =
- let mutable color = healthyRBColor * this.healthyRBCBrightness
- color.A <- 255uy
- SolidColorBrush(color)
-
- member this.InfectedRBCColor : SolidColorBrush =
- let mutable color = infectedRBColor * this.infectedRBCBrightness
- color.A <- 255uy
- SolidColorBrush(color)
-
type PredefinedPPI =
{
ppi : int<ppi>
label : string
}
with
- override this.ToString() =
+ override this.ToString () =
sprintf "%s: %d" this.label this.ppi
type SensorSize =