X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FUtils.fs;h=6a1333756457656aa38ab0b5df0809eede73a046;hp=77e5e6fe70a012d88831c9a30f3f3671cb8b9411;hb=2d712781def419c9acc98368f7102b19b064f16d;hpb=d715615d0b1da40fd10e9dbabbd4530cd5125a19

diff --git a/Parasitemia/ParasitemiaCore/Utils.fs b/Parasitemia/ParasitemiaCore/Utils.fs
index 77e5e6f..6a13337 100644
--- a/Parasitemia/ParasitemiaCore/Utils.fs
+++ b/Parasitemia/ParasitemiaCore/Utils.fs
@@ -13,12 +13,12 @@ let inline dprintfn fmt =
 let inline lineFromTwoPoints (p1 : PointF) (p2 : PointF) : Line =
     let a = (p1.Y - p2.Y) / (p1.X - p2.X)
     let b = -(p2.X * p1.Y - p1.X * p2.Y) / (p1.X - p2.X)
-    Line(a, b)
+    Line (a, b)
 
 let inline pointFromTwoLines (l1 : Line) (l2 : Line) : PointF =
     let x = -(l1.B - l2.B) / (l1.A - l2.A)
     let y = -(l2.A * l1.B - l1.A * l2.B) / (l1.A - l2.A)
-    PointF(x, y)
+    PointF (x, y)
 
 let inline linePassThroughSegment (l : Line) (p1 : PointF) (p2 : PointF) : bool =
     let p = pointFromTwoLines l (lineFromTwoPoints p1 p2)