X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FUnitsOfMeasure.fs;fp=Parasitemia%2FParasitemiaCore%2FUnitsOfMeasure.fs;h=81ce51f28901c1283f56f76c1d7008e2e8d0e78d;hp=0000000000000000000000000000000000000000;hb=4bfa3cbdc6145e6944f02e24829ab2ef3a851ac1;hpb=48ecdfc43001c444eff6ad442986049384674af2

diff --git a/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
new file mode 100644
index 0000000..81ce51f
--- /dev/null
+++ b/Parasitemia/ParasitemiaCore/UnitsOfMeasure.fs
@@ -0,0 +1,16 @@
+module ParasitemiaCore.UnitsOfMeasure
+
+[<Measure>] type px
+[<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
+
+
+
+
+