X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FTypes.fs;h=3a3cf564558273c79c04bd1c6afe92a79cff3f3f;hb=d3f9cd7b16d25f49bd8d06394b0f1d4040809fbd;hp=eb778d80c6c213b505077f08db5027d329907d55;hpb=b87b35b922551f122228df1fd9c530bbb807935a;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaUI/Types.fs b/Parasitemia/ParasitemiaUI/Types.fs
index eb778d8..3a3cf56 100644
--- a/Parasitemia/ParasitemiaUI/Types.fs
+++ b/Parasitemia/ParasitemiaUI/Types.fs
@@ -11,9 +11,6 @@ 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.
-
 type RBC =
     {
         num : int
@@ -29,37 +26,13 @@ type RBC =
         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 =