open Types
-let roundInt = int << round
+let inline roundInt v = v |> round |> int
let inline dprintfn fmt =
Printf.ksprintf System.Diagnostics.Debug.WriteLine fmt
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
+ (p1.X - p2.X) ** 2.f + (p1.Y - p2.Y) ** 2.f
let distanceTwoPoints (p1: PointD) (p2: PointD) =
squaredDistanceTwoPoints p1 p2 |> sqrt