X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FUnitsOfMeasure.fs;h=6a3b745619b2abe40874c9539b0b7d9206f9abc2;hp=ff9ea676bdc58fd94d35d8d8bf406184505658d5;hb=ee562c3b613791fd89a5c322546229e9d364cafb;hpb=4147bfad3c85dcf4fe7d291abf7d356379d88b4f

diff --git a/Parasitemia/Parasitemia/UnitsOfMeasure.fs b/Parasitemia/Parasitemia/UnitsOfMeasure.fs
index ff9ea67..6a3b745 100644
--- a/Parasitemia/Parasitemia/UnitsOfMeasure.fs
+++ b/Parasitemia/Parasitemia/UnitsOfMeasure.fs
@@ -1,18 +1,16 @@
 module UnitsOfMeasure
 
-[<Measure>]
-type px
+[<Measure>] type px
+[<Measure>] type μm
+[<Measure>] type inch
+[<Measure>] type ppi = px / inch
 
-[<Measure>]
-type μm =
-    static member ConvertToInch(x: float<μm>) : float<inch> =
-        x * 1.<inch> / 25.4e3<μm>
+let μmInchRatio = 25.4e3<μm/inch>
 
-and [<Measure>] 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