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

diff --git a/Parasitemia/Parasitemia/Utils.fs b/Parasitemia/Parasitemia/Utils.fs
index d6fa2f0..58e914f 100644
--- a/Parasitemia/Parasitemia/Utils.fs
+++ b/Parasitemia/Parasitemia/Utils.fs
@@ -30,6 +30,10 @@ let inline pointFromTwoLines (l1: Line) (l2: Line) : PointD =
     let y = -(l2.A * l1.B - l1.A * l2.B) / (l1.A - l2.A)
     PointD(x, y)
 
+let inline linePassThroughSegment (l: Line) (p1: PointD) (p2: PointD) : bool =
+    let p = pointFromTwoLines l (lineFromTwoPoints p1 p2)
+    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