X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FUnitsOfMeasure.fs;h=8202b8e28da7ed81e3ae6dc429dab74ef933dd60;hb=b87b35b922551f122228df1fd9c530bbb807935a;hp=36c949542e8e909662d92032418f35420e19cff2;hpb=3f8b0d281b3058faf23dbd0363de440bd04c6574;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
index 36c9495..8202b8e 100644
--- a/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
+++ b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
@@ -1,12 +1,17 @@
 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 μmPerInch = 25.4e3<μm/inch>
+let mmPerInch = 25.4<mm/inch>
 
-let μmToInch(x: float<μm>) : float<inch> = x / μmInchRatio
-let inchToμm(x: float<inch>) : float<μm> = x * μmInchRatio
+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