* Add an exact method to compute an ellipse from three points and two tangents.

[master-thesis.git] / Parasitemia / Parasitemia / Utils.fs

diff --git a/Parasitemia/Parasitemia/Utils.fs b/Parasitemia/Parasitemia/Utils.fs
index c2440b9..638f9f5 100644 (file)
--- a/Parasitemia/Parasitemia/Utils.fs
+++ b/Parasitemia/Parasitemia/Utils.fs
@@ -37,7 +37,7 @@ let inline linePassThroughSegment (l: Line) (p1: PointD) (p2: PointD) : bool =
 let inline squaredDistanceTwoPoints (p1: PointD) (p2: PointD) =
     (p1.X - p2.X) ** 2.f + (p1.Y - p2.Y) ** 2.f
 
-let distanceTwoPoints (p1: PointD) (p2: PointD) =
+let inline distanceTwoPoints (p1: PointD) (p2: PointD) =
     squaredDistanceTwoPoints p1 p2 |> sqrt
 
 let countCells (cells: Cell list) : int * int =