module ParasitemiaCore.UnitsOfMeasure

[<Measure>] type px // Pixel.
[<Measure>] type mm
[<Measure>] type μm
[<Measure>] type inch
[<Measure>] type ppi = px / inch // Pixel per inch.

let μmInchRatio = 25.4e3<μm/inch>
let mmInchRatio = 25.4<mm/inch>

let μmToInch(x: float<μm>) : float<inch> = x / μmInchRatio
let inchToμm(x: float<inch>) : float<μm> = x * μmInchRatio

let mmToInch(x: float<mm>) : float<inch> = x / mmInchRatio
let inchTomm(x: float<inch>) : float<mm> = x * mmInchRatio