Line Segment Intersection
lazarus / 39-Graphics

----------------------------------------------------------------------
JasonLugg · 2012-05-06 15:00

Hi All

Could someone please help me with a line intersection function \
procedure:

Given Line Segment 1 Start (TPoint) L1Start.x & L1Start.y, End
(TPoint) L1End.x & L1End.y

Given Line Segment 2 Start (TPoint) L2Start.x & L2Start.y, End
(TPoint) L2End.x & L2End.y

With the intersection point store in Intersect (TPoint).x and .y.

My math is not good enough and I am going in circles....funny seeing
that I am drawing straight lines ha ha

Jason

----------------------------------------------------------------------
IPguy · 2012-05-06 15:07

There are many discussions of this found using Google.
http://en.wikipedia.org/wiki/Line_segment_intersection
I especially like: http://en.wikipedia.org/wiki/Line-
line_intersection, but that may be a bit rigorous for most needs.

----------------------------------------------------------------------
eny · 2012-05-06 15:12

not tested, just copy/paste to see if it works:

http://www.delphipages.com/tip/test_if_2_lines_cross_and_find_intersec
tion-10800.html
http://delphiforfun.org/programs/math_topics/intersecting_lines.htm