1
module ParasitemiaUI.Types
5 open System.Windows.Media
12 let healthyRBColor = Color.FromRgb(255uy, 255uy, 0uy) // Yellow-green.
13 let infectedRBColor = Color.FromRgb(255uy, 0uy, 40uy) // Red with a bit of blue.
19 mutable infected: bool
22 mutable setManually: bool
32 mutable config: ParasitemiaCore.Config.Config
33 mutable dateLastAnalysis: DateTime // UTC.
35 mutable rbcs: RBC list
37 mutable healthyRBCBrightness: float32
38 mutable infectedRBCBrightness: float32
} with
40 member this
.HealthyRBCColor: SolidColorBrush =
41 let mutable color = healthyRBColor * this
.healthyRBCBrightness
43 SolidColorBrush(color)
45 member this
.InfectedRBCColor: SolidColorBrush =
46 let mutable color = infectedRBColor * this
.infectedRBCBrightness
48 SolidColorBrush(color)