Versions Compared

Key

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

...

Procedure: ParallelLine(p1x, p1y, p2x, p2y, Distance: Double; var p3x: Double; var p3y: Double; var p4x: Double; var p4y: Double);


API Call:

Code Block
languagedelphi
titleScripting
linenumberstrue
collapsetrue
var
  p3x, p3y, p4x, p4y: double;

begin
  parallelline(10, 10, 100, 100, 10, p3x, p3y, p4x, p4y); 
end;