projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleaning, micro-optimizations.
[master-thesis.git]
/
Parasitemia
/
Parasitemia
/
Utils.fs
diff --git
a/Parasitemia/Parasitemia/Utils.fs
b/Parasitemia/Parasitemia/Utils.fs
index
d6fa2f0
..
58e914f
100644
(file)
--- 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 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
let inline squaredDistanceTwoPoints (p1: PointD) (p2: PointD) =
(p1.X - p2.X) ** 2.0 + (p1.Y - p2.Y) ** 2.0