Maths Stuff

[PsyVision]

Hi,

A few maths questions here. If i have a line that goes from 25,30 to 40,10 and another line moves towards it, how can i find if the end of the line collieds with it:


|
| <-- ----------------
|
|
|
|
|
So how would i work out if the horizontal line hit with the vertical one. Secondally. How would i do the same with too circles ?

Excuse the art work.

[Wak]

Let line1.name = lne1
Let line2.name = lne2


Private Sub Timer1_Timer()
Dim x As Boolean
Dim y As Boolean

If (lne2.X1 < lne1.X2) And ((lne2.X2 > lne1.X1) And (lne2.X2 > lne1.X2)) Then x = True
If (lne2.Y1 > lne1.Y1) Then y = True

If (lne2.X1 > lne1.X2) And (lne2.X2 < lne1.X1) Then x = True
If (lne2.Y2 > lne1.Y1) And (lne2.Y1 < lne1.Y1) And x = True Then y = True

If x = True And y = True Then MsgBox "Colision Detected!"
MsgBox "X: " & x & "Y: " & y
End Sub



I wasn't sure whether the lines where straight or diagonal, but this should work for both.

[PsyVision]

A Reply, Thanks.