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