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

diff --git a/Parasitemia/Parasitemia/GUI/Types.fs b/Parasitemia/Parasitemia/GUI/Types.fs
index e912ad3..6e00586 100644
--- a/Parasitemia/Parasitemia/GUI/Types.fs
+++ b/Parasitemia/Parasitemia/GUI/Types.fs
@@ -8,12 +8,17 @@ 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 } with
+    member this.SetAsInfected (infected: bool) =
+        if infected <> this.infected
+        then
+            this.infected <- infected
+            this.setManually <- not this.setManually
 
 type SourceImage = {
     num: int