Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

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.

...

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


API Call:

Code Block
languagedelphi
titleScripting
linenumberstrue
collapsetrue
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;