Parasitemia/Parasitemia/GUI/Types.fs

   1 module Parasitemia.GUI.Types
   2
   3 open System.Windows
   4
   5 open Emgu.CV
   6 open Emgu.CV.Structure
   7
   8 type RBC = {
   9     num: int
  10
  11     mutable infected: bool
  12     mutable setManually: bool
  13
  14     center: Point
  15     size: Size
  16     infectedArea: int } with
  17     member this.SetAsInfected (infected: bool) =
  18         if infected <> this.infected
  19         then
  20             this.infected <- infected
  21             this.setManually <- not this.setManually
  22
  23 type SourceImage = {
  24     num: int
  25     img: Image<Bgr, byte>
  26     mutable rbcs: RBC list }