More homogeneous ellipse density.

[master-thesis.git] / Parasitemia / ParasitemiaCore / UnitsOfMeasure.fs

diff --git a/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
index 81ce51f..ec343ea 100644 (file)
--- a/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
+++ b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
@@ -1,16 +1,17 @@
 module ParasitemiaCore.UnitsOfMeasure
 
-[<Measure>] type px
+[<Measure>] type px // Pixel.
+[<Measure>] type mm
 [<Measure>] type μm
 [<Measure>] type inch
-[<Measure>] type ppi = px / inch
-
-let μmInchRatio = 25.4e3<μm/inch>
-
-let μmToInch(x: float<μm>) : float<inch> = x / μmInchRatio
-let inchToμm(x: float<inch>) : float<μm> = x * μmInchRatio
-
+[<Measure>] type ppi = px / inch // Pixel per inch.
 
+let μmPerInch = 25.4e3<μm/inch>
+let mmPerInch = 25.4<mm/inch>
 
+let μmToInch(x: float<μm>) : float<inch> = x / μmPerInch
+let inchToμm(x: float<inch>) : float<μm> = x * μmPerInch
 
+let mmToInch(x: float<mm>) : float<inch> = x / mmPerInch
+let inchTomm(x: float<inch>) : float<mm> = x * mmPerInch