module Parasitemia.GUI.Types open System.Windows open Emgu.CV open Emgu.CV.Structure type RBC = { num: int mutable infected: bool mutable setManually: bool center: Point size: Size 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 img: Image mutable rbcs: RBC list }