8202b8e28da7ed81e3ae6dc429dab74ef933dd60
1
module ParasitemiaCore.UnitsOfMeasure
3 [<Measure>] type px // Pixel.
7 [<Measure>] type ppi = px / inch // Pixel per inch.
9 let μmPerInch
= 25.4e3<μm
/inch>
10 let mmPerInch = 25.4<mm/inch>
12 let μmToInch
(x
: float<μm
>) : float<inch> = x
/ μmPerInch
13 let inchToμm
(x
: float<inch>) : float<μm
> = x
* μmPerInch
15 let mmToInch(x
: float<mm>) : float<inch> = x
/ mmPerInch
16 let inchTomm(x
: float<inch>) : float<mm> = x
* mmPerInch