...
Procedure: GetIntersectPoint(p1x, p1y, p2x, p2y, p3x, p3y, p4x, p4y: Double; var p5x: Double; var p5y: Double): Integer;
API Call:
| Code Block | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
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; |