X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FTypes.fs;h=ada2a1f52cb4ee3db7c3468d523e0abf28f88eab;hp=eb778d80c6c213b505077f08db5027d329907d55;hb=2d712781def419c9acc98368f7102b19b064f16d;hpb=b87b35b922551f122228df1fd9c530bbb807935a diff --git a/Parasitemia/ParasitemiaUI/Types.fs b/Parasitemia/ParasitemiaUI/Types.fs index eb778d8..ada2a1f 100644 --- a/Parasitemia/ParasitemiaUI/Types.fs +++ b/Parasitemia/ParasitemiaUI/Types.fs @@ -11,8 +11,8 @@ open Newtonsoft.Json 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. +let healthyRBColor = Color.FromRgb (255uy, 255uy, 0uy) // Yellow-green. +let infectedRBColor = Color.FromRgb (255uy, 0uy, 40uy) // Red with a bit of blue. type RBC = { @@ -46,12 +46,12 @@ type SourceImage = member this.HealthyRBCColor : SolidColorBrush = let mutable color = healthyRBColor * this.healthyRBCBrightness color.A <- 255uy - SolidColorBrush(color) + SolidColorBrush (color) member this.InfectedRBCColor : SolidColorBrush = let mutable color = infectedRBColor * this.infectedRBCBrightness color.A <- 255uy - SolidColorBrush(color) + SolidColorBrush (color) type PredefinedPPI = { @@ -59,7 +59,7 @@ type PredefinedPPI = label : string } with - override this.ToString() = + override this.ToString () = sprintf "%s: %d" this.label this.ppi type SensorSize =