Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs

   1 module ParasitemiaCore.UnitsOfMeasure
   2
   3 [<Measure>] type px
   4 [<Measure>] type μm
   5 [<Measure>] type inch
   6 [<Measure>] type ppi = px / inch
   7
   8 let μmInchRatio = 25.4e3<μm/inch>
   9
  10 let μmToInch(x: float<μm>) : float<inch> = x / μmInchRatio
  11 let inchToμm(x: float<inch>) : float<μm> = x * μmInchRatio
  12