Math Functions - GetIntersectPoint - FD

Math Functions - GetIntersectPoint

Calculates at what point Line 1, given by p1 and p2 intersects with Line 2, given by p3 and p4 and returns the result point in p5. Returns 1 (True) if the lines intersect or 0 (False) if the lines are parallel.

Declaration:

GetIntersectPoint(p1x, p1y, p2x, p2y, p3x, p3y, p4x, p4y: Double; var p5x: Double; var p5y: Double): Integer;

Source Code

Delphi

 var
  p5x, p5y: double;

Begin
  if getintersectpoint(10, 10, 100, 10, 10, 20, 100, 20, p5x, p5y) = 1 then
    showmessage('Intersects')
  else
    showmessage('Parallel');
End;