Versions Compared

Old Version 4

changes.mady.by.user Former user

Saved on

compared with

New Version 5

changes.mady.by.user Former user

Saved on

Key

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

...

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;