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)