Frame width depends now from the RBC sizes #275

[master-thesis.git] / Parasitemia / ParasitemiaUI / SourceImage.fs

diff --git a/Parasitemia/ParasitemiaUI/SourceImage.fs b/Parasitemia/ParasitemiaUI/SourceImage.fs
new file mode 100644 (file)
index 0000000..2330227
--- /dev/null
+++ b/Parasitemia/ParasitemiaUI/SourceImage.fs
@@ -0,0 +1,88 @@
+namespace ParasitemiaUI
+
+open System
+open System.Windows
+open System.Windows.Media
+
+open Emgu.CV
+open Emgu.CV.Structure
+
+open Types
+
+type SourceImage (num : int, name : string, config : ParasitemiaCore.Config.Config, dateLastAnalysis : DateTime, img : Image<Bgr, byte>, rbcs : RBC list) =
+    let mutable num = num
+    let mutable name = name
+    let mutable config = config
+    let mutable dateLastAnalysis = dateLastAnalysis // UTC.
+    let img = img
+    let mutable rbcs = rbcs
+    let mutable healthyRBCBrightness = 1.f
+    let mutable infectedRBCBrightness = 1.f
+
+    let mutable averageRBCSize = 1.
+
+    let healthyRBColor = Color.FromRgb (255uy, 255uy, 0uy) // Yellow-green.
+    let infectedRBColor = Color.FromRgb (255uy, 0uy, 40uy) // Red with a bit of blue.
+
+    let updateAverageRBCSize () =
+        averageRBCSize <-
+            rbcs
+            |> List.collect (fun rbc -> [ rbc.size.Width; rbc.size.Height ])
+            |> List.average
+
+    do
+        updateAverageRBCSize ()
+
+    member this.Num with get () = num and set value = num <- value
+
+    member this.Name with get () = name and set value = name <- value
+
+    member this.Config = config
+
+    member this.DateLastAnalysis with get () = dateLastAnalysis and set value = dateLastAnalysis <- value
+
+    member this.Img = img
+
+    member this.RBCs
+        with get () = rbcs
+        and set value = rbcs <- value
+
+    member this.ImageParasitemia : int * int =
+        List.length rbcs,
+        rbcs |> List.fold (fun nbInfected rbc -> if rbc.infected then nbInfected + 1 else nbInfected) 0
+
+    member this.ImageNbManuallyChangedRBC (setAsInfected : bool) : int * int =
+        List.length rbcs,
+        rbcs |> List.fold (fun nb rbc -> if rbc.setManually && rbc.infected = setAsInfected then nb + 1 else nb) 0
+
+    member this.ImageNbManuallyChangedRBCStr (setAsInfected : bool) : string =
+        Utils.percentText (this.ImageNbManuallyChangedRBC setAsInfected)
+
+    member this.ImageManuallyChangedRBC (setAsInfected : bool) : int seq =
+        query {
+            for rbc in rbcs do
+            where (rbc.setManually && rbc.infected = setAsInfected)
+            select rbc.num
+        }
+
+    member this.ImageManuallyChangedRBCStr (setAsInfected : bool) : string =
+        let listStr = Utils.listAsStr <| this.ImageManuallyChangedRBC setAsInfected
+        if listStr = "" then
+            ""
+        else
+            "[" + listStr + "]"
+
+    member this.HealthyRBCBrightness with get () = healthyRBCBrightness and set value = healthyRBCBrightness <- value
+    member this.InfectedRBCBrightness with get () = infectedRBCBrightness and set value = infectedRBCBrightness <- value
+
+    member this.HealthyRBCColor : SolidColorBrush =
+        let mutable color = healthyRBColor * healthyRBCBrightness
+        color.A <- 255uy
+        SolidColorBrush (color)
+
+    member this.InfectedRBCColor : SolidColorBrush =
+        let mutable color = infectedRBColor * infectedRBCBrightness
+        color.A <- 255uy
+        SolidColorBrush (color)
+
+    member this.AverageRBCSize = averageRBCSize
\ No newline at end of file