X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FGUI%2FTypes.fs;h=c90fc0c6a57b9d3746c73ef5f7ca7c8373dd07d0;hb=05be8164d308447b916544ae3ce4211500dfd8da;hp=4f1260fcab4637b3b7c9be466a2afa7b1e42a70e;hpb=0af5da4bffad8333c8e57851e067218c0e21d7bb;p=master-thesis.git

diff --git a/Parasitemia/Parasitemia/GUI/Types.fs b/Parasitemia/Parasitemia/GUI/Types.fs
index 4f1260f..c90fc0c 100644
--- a/Parasitemia/Parasitemia/GUI/Types.fs
+++ b/Parasitemia/Parasitemia/GUI/Types.fs
@@ -1,6 +1,7 @@
 module Parasitemia.GUI.Types
 
-open System.Drawing
+open System
+open System.Windows
 
 open Emgu.CV
 open Emgu.CV.Structure
@@ -8,15 +9,16 @@ open Emgu.CV.Structure
 type RBC = {
     num: int
 
-    infected: bool
-    addedManually: bool
-    removed: bool
+    mutable infected: bool
+    mutable setManually: bool
 
     center: Point
     size: Size
-    stainArea: int }
+    infectedArea: int }
 
 type SourceImage = {
-    num: int
+    mutable num: int
+    mutable config: Config.Config
+    mutable dateLastAnalysis: DateTime // UTC.
     img: Image<Bgr, byte>
-    rbcs: RBC list }
\ No newline at end of file
+    mutable rbcs: RBC list }
\ No newline at end of file