...
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; |