16 lines
751 B
Lua
16 lines
751 B
Lua
|
-- https://love2d.org/wiki/General_math
|
||
|
|
return function(l1p1x,l1p1y, l1p2x,l1p2y, l2p1x,l2p1y, l2p2x,l2p2y)
|
||
|
|
local a1,b1,a2,b2 = l1p2y-l1p1y, l1p1x-l1p2x, l2p2y-l2p1y, l2p1x-l2p2x
|
||
|
|
local c1,c2 = a1*l1p1x+b1*l1p1y, a2*l2p1x+b2*l2p1y
|
||
|
|
local det,x,y = a1*b2 - a2*b1
|
||
|
|
if det==0 then return false, "The lines are parallel." end
|
||
|
|
x,y = (b2*c1-b1*c2)/det, (a1*c2-a2*c1)/det
|
||
|
|
if not (math.min(l1p1x,l1p2x) <= x and x <= math.max(l1p1x,l1p2x) and
|
||
|
|
math.min(l1p1y,l1p2y) <= y and y <= math.max(l1p1y,l1p2y)) or
|
||
|
|
not (math.min(l2p1x,l2p2x) <= x and x <= math.max(l2p1x,l2p2x) and
|
||
|
|
math.min(l2p1y,l2p2y) <= y and y <= math.max(l2p1y,l2p2y)) then
|
||
|
|
return false, "The lines don't intersect."
|
||
|
|
end
|
||
|
|
return x,y
|
||
|
|
end
|