X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FGUI%2FTypes.fs;h=f22afdb56cf50c3e956b8becb8a3d98062733641;hp=e912ad31de0a956bff0d13203a367d96d49bb2ef;hb=807437584bdd3d7b7b33be8282472f81f8cce606;hpb=999a48b8eb25c92e4403c9280fd4fe68f9bc4b7b

diff --git a/Parasitemia/Parasitemia/GUI/Types.fs b/Parasitemia/Parasitemia/GUI/Types.fs
index e912ad3..f22afdb 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
@@ -8,14 +9,16 @@ open Emgu.CV.Structure
 type RBC = {
     num: int
 
-    infected: bool
-    setManually: bool
+    mutable infected: bool
+    mutable setManually: bool
 
     center: Point
     size: Size
-    stainArea: int }
+    infectedArea: int }
 
 type SourceImage = {
-    num: int
+    mutable num: int
+    mutable rbcRadius: float
+    mutable dateLastAnalysis: DateTime // UTC.
     img: Image<Bgr, byte>
     mutable rbcs: RBC list }
\ No newline at end of file