X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FUnitsOfMeasure.fs;h=4af1e557e95aa789f59202aedbfd9e108a104dc8;hp=637f49e0a63757333d30cf48e84f14fad4480c84;hb=2d712781def419c9acc98368f7102b19b064f16d;hpb=23466ba92c5595f6c0b9f97c86a221a4e5ffebe9

diff --git a/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
index 637f49e..4af1e55 100644
--- a/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
+++ b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
@@ -6,12 +6,12 @@
 [<Measure>] type inch
 [<Measure>] type ppi = px / inch // Pixel per inch.
 
-let μmInchRatio = 25.4e3<μm/inch>
-let mmInchRatio = 25.4<mm/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 / mmInchRatio
-let inchTomm(x: float<inch>) : float<mm> = x * mmInchRatio
+let mmToInch (x : float<mm>) : float<inch> = x / mmPerInch
+let inchTomm (x : float<inch>) : float<mm> = x * mmPerInch