X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FUtils.fs;h=b30e9ace4dc41a4ec39350824448bcfec4dba25f;hp=58e914f2af9a24ea8c14d6fa41e67afcea2f9734;hb=044b0ae69df3ac565432545b2fa934589016f9bd;hpb=bef2e9f0bf1bba21d4c988fdf654c2dc303ec34a

diff --git a/Parasitemia/Parasitemia/Utils.fs b/Parasitemia/Parasitemia/Utils.fs
index 58e914f..b30e9ac 100644
--- a/Parasitemia/Parasitemia/Utils.fs
+++ b/Parasitemia/Parasitemia/Utils.fs
@@ -4,7 +4,7 @@ open System.Diagnostics
 
 open Types
 
-let roundInt = int << round
+let inline roundInt v = v |> round |> int
 
 let inline dprintfn fmt =
     Printf.ksprintf System.Diagnostics.Debug.WriteLine fmt
@@ -35,7 +35,7 @@ let inline linePassThroughSegment (l: Line) (p1: PointD) (p2: PointD) : bool =
     sign (p.X - p1.X) <> sign (p.X - p2.X)
 
 let inline squaredDistanceTwoPoints (p1: PointD) (p2: PointD) =
-    (p1.X - p2.X) ** 2.0 + (p1.Y - p2.Y) ** 2.0
+    (p1.X - p2.X) ** 2.f + (p1.Y - p2.Y) ** 2.f
 
 let distanceTwoPoints (p1: PointD) (p2: PointD) =
     squaredDistanceTwoPoints p1 p2 |> sqrt