module ParasitemiaUI.Types

open System
open System.Windows
open System.Windows.Media

open Emgu.CV
open Emgu.CV.Structure

open Newtonsoft.Json

open ParasitemiaCore.UnitsOfMeasure

let healthyRBColor = Color.FromRgb (255uy, 255uy, 0uy) // Yellow-green.
let infectedRBColor = Color.FromRgb (255uy, 0uy, 40uy) // Red with a bit of blue.

type RBC =
    {
        num : int

        [<JsonIgnore>]
        mutable infected : bool

        [<JsonIgnore>]
        mutable setManually : bool

        center : Point
        size : Size
        infectedArea : int
    }

type SourceImage =
    {
        mutable num : int
        mutable name : string

        mutable config : ParasitemiaCore.Config.Config
        mutable dateLastAnalysis : DateTime // UTC.
        img : Image<Bgr, byte>
        mutable rbcs : RBC list

        mutable healthyRBCBrightness : float32
        mutable infectedRBCBrightness : float32
    }
    with
        member this.HealthyRBCColor : SolidColorBrush =
            let mutable color = healthyRBColor * this.healthyRBCBrightness
            color.A <- 255uy
            SolidColorBrush (color)

        member this.InfectedRBCColor : SolidColorBrush =
            let mutable color = infectedRBColor * this.infectedRBCBrightness
            color.A <- 255uy
            SolidColorBrush (color)

type PredefinedPPI =
    {
        ppi : int<ppi>
        label : string
    }
    with
        override this.ToString () =
            sprintf "%s: %d" this.label this.ppi

type SensorSize =
    {
        w : float<mm>
        h : float<mm>
        label : string
    }
    with
        override this.ToString () =
            sprintf "%g mm × %g mm%s" this.w this.h (if this.label = "" then "" else " (" + this.label + ")")

let defaultPredefinedPPI =
    [
        { ppi = 230000<ppi>; label = "50×" }
        { ppi = 460000<ppi>; label = "100×" }
    ]

let defaultSensorSizes =
    [
        { w = 3.2<mm>;  h = 2.4<mm>;  label = "1/4″" }
        { w = 4.8<mm>;  h = 3.6<mm>;  label = "1/3″" }
        { w = 5.76<mm>; h = 4.29<mm>; label = "1/2.5″" }
        { w = 6.4<mm>;  h = 4.8<mm>;  label = "1/2″" }
        { w = 7.18<mm>; h = 5.32<mm>; label = "1/1.8″" }
        { w = 7.6<mm>;  h = 5.7<mm>;  label = "1/1.7″" }
        { w = 8.8<mm>;  h = 6.6<mm>;  label = "2/3″" }
        { w = 13.2<mm>; h = 8.8<mm>;  label = "1″" }
    ]