X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FGUI%2FTypes.fs;h=c90fc0c6a57b9d3746c73ef5f7ca7c8373dd07d0;hb=ee562c3b613791fd89a5c322546229e9d364cafb;hp=6e0058637479f1c969fa87a84d4a7dca23ce20f9;hpb=8013d6a586604e443332e6e9a715c86df444a875;p=master-thesis.git

diff --git a/Parasitemia/Parasitemia/GUI/Types.fs b/Parasitemia/Parasitemia/GUI/Types.fs
index 6e00586..c90fc0c 100644
--- a/Parasitemia/Parasitemia/GUI/Types.fs
+++ b/Parasitemia/Parasitemia/GUI/Types.fs
@@ -1,5 +1,6 @@
 module Parasitemia.GUI.Types
 
+open System
 open System.Windows
 
 open Emgu.CV
@@ -13,14 +14,11 @@ type RBC = {
 
     center: Point
     size: Size
-    infectedArea: int } with
-    member this.SetAsInfected (infected: bool) =
-        if infected <> this.infected
-        then
-            this.infected <- infected
-            this.setManually <- not this.setManually
+    infectedArea: int }
 
 type SourceImage = {
-    num: int
+    mutable num: int
+    mutable config: Config.Config
+    mutable dateLastAnalysis: DateTime // UTC.
     img: Image<Bgr, byte>
     mutable rbcs: RBC list }
\ No newline at end of file