Angle Collisions

[james2464]

Just wondering as I am still trying to better understand collisions, if anyone here would be interested in shedding some light on this subject.

I'm currently trying to get my mind around the idea of angular collision responses.   Specifically if a moving ball is to collide with odd angled surfaces (2D only).   Looking into this, I've discovered yet again that my math skills are nearly zero, so this could perhaps be easy for others here.   Or maybe it's difficult - I don't know.   

Vectors are at play here and apparently the math involves multiplying vectors, which is new to me.   The "dot product" seems to be the way to do this, rather than using degrees and more code.   But honestly it's a bit confusing to me at this point. 

So just to illustrate the idea...if the ball in this scenario was bouncing off these walls, would this be a nightmare to program?   Or is this not as bad as it seems?

Code: (Select All)

Screen _NewImage(800, 600, 32)

Randomize Timer
Dim c1 As Long
c1 = _RGB(255, 255, 255)

x1 = 50
y1 = 50
flag = 0
While flag = 0
    x2 = (Rnd * 80) + 80 + x1
    If x2 > 750 Then
        x2 = 750
        flag = 1
    End If
    y2 = Rnd * 60 + 20
    Line (x1, y1)-(x2, y2), c1
    x1 = x2
    y1 = y2
Wend

flag = 0
While flag = 0
    y2 = (Rnd * 80) + 80 + y1
    If y2 > 550 Then
        y2 = 550
        flag = 1
    End If
    x2 = 750 - (Rnd * 60 + 20)
    Line (x1, y1)-(x2, y2), c1
    x1 = x2
    y1 = y2
Wend

flag = 0
While flag = 0
    x2 = x1 - ((Rnd * 80) + 80)
    If x2 < 50 Then
        x2 = 50
        flag = 1
    End If
    y2 = 550 - (Rnd * 60 + 20)
    Line (x1, y1)-(x2, y2), c1
    x1 = x2
    y1 = y2
Wend

flag = 0
While flag = 0
    y2 = y1 - ((Rnd * 80) + 80)
    If y2 < 50 Then
        y2 = 50
        flag = 1
    End If
    x2 = Rnd * 60 + 20
    If flag = 1 Then x2 = 50
    Line (x1, y1)-(x2, y2), c1
    x1 = x2
    y1 = y2
Wend

Circle (400, 300), 10, c1