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

diff --git a/Parasitemia/Parasitemia/UnitsOfMeasure.fs b/Parasitemia/Parasitemia/UnitsOfMeasure.fs
new file mode 100644
index 0000000..ff9ea67
--- /dev/null
+++ b/Parasitemia/Parasitemia/UnitsOfMeasure.fs
@@ -0,0 +1,18 @@
+module UnitsOfMeasure
+
+[<Measure>]
+type px
+
+[<Measure>]
+type μm =
+    static member ConvertToInch(x: float<μm>) : float<inch> =
+        x * 1.<inch> / 25.4e3<μm>
+
+and [<Measure>] inch
+
+
+[<Measure>]
+type ppi = px / inch
+
+
+