ParasitemiaCore/ImgTools/IO.fs

   1 module ParasitemiaCore.IO
   2
   3 open System
   4 open System.Drawing
   5
   6 open Emgu.CV
   7 open Emgu.CV.Structure
   8
   9 let saveImg (img : Image<'TColor, 'TDepth>) (filepath : string) =
  10     img.Save filepath
  11
  12 let saveMat (mat : Matrix<'TDepth>) (filepath : string) =
  13     use img = new Image<Gray, 'TDeph> (mat.Size)
  14     mat.CopyTo img
  15     saveImg img filepath