Проблема с реализацией VB.NET Лян-Барского - PullRequest
Новая
       26

Проблема с реализацией VB.NET Лян-Барского

0 голосов
/ 06 ноября 2010

После некоторых исследований я решил использовать алгоритм Liang-Barsky в моей 2D-игре.Google не предоставил ни одной реализации этого алгоритма на VB.NET, но много C / ++.Поэтому, поскольку у меня есть знания в C ++, я решил перенести один из найденных в Skytopia на VB.Net.К сожалению, он не работает с: 

Public Class PhysicsObject
    Public Function CollideRay(ByVal p0 As Point, ByVal p1 As Point, ByRef clip0 As Point, ByRef clip1 As Point) As Boolean
        Dim t0 As Double = 0.0
        Dim t1 As Double = 1.0
        Dim xdelta As Double = p1.X - p0.X
        Dim ydelta As Double = p1.Y - p0.Y
        Dim p, q, r As Double

        For edge = 0 To 3
            ' Traverse through left, right, bottom, top edges
            If (edge = 0) Then
                p = -xdelta
                q = -(AABB.Left - p0.X)
            ElseIf (edge = 1) Then
                p = xdelta
                q = (AABB.Right - p0.X)
            ElseIf (edge = 2) Then
                p = -ydelta
                q = -(AABB.Bottom - p0.Y)
            ElseIf (edge = 3) Then
                p = ydelta
                q = (AABB.Top - p0.Y)
            End If

            r = q / p

            If p = 0 And q < 0 Then Return False ' Don't draw line at all. (parallel line outside)

            If p < 0 Then
                If r > t1 Then
                    Return False ' Don't draw line at all.
                ElseIf r > t0 Then
                    t0 = r ' Line is clipped!
                End If
            ElseIf p > 0 Then
                If r < t0 Then
                    Return False ' Don't draw line at all.
                ElseIf r < t1 Then
                    t1 = r ' Line is clipped!
                End If
            End If
        Next

        clip0.X = p0.X + t0 * xdelta
        clip0.Y = p0.Y + t0 * ydelta
        clip1.X = p0.X + t1 * xdelta
        clip1.Y = p0.Y + t1 * ydelta

        Return True        ' (clipped) line is drawn
    End Function

    Public AABB As Rectangle
End Class

Я использую класс / метод, например: 

    Dim testPhysics As PhysicsObject = New PhysicsObject
    testPhysics.AABB = New Rectangle(30, 30, 20, 20)

    Dim p0, p1 As Point
    p0 = New Point(0, 0)
    p1 = New Point(120, 120)

    Dim clip0, clip1 As Point
    clip0 = New Point(-1, -1)
    clip1 = New Point(-1, -1)

    GlobalRenderer.Graphics.DrawLine(Pens.LimeGreen, p0, p1)

    If testPhysics.CollideRay(p0, p1, clip0, clip1) Then
        GlobalRenderer.Graphics.DrawLine(Pens.Magenta, clip0, clip1)
    End If

Однако метод CollideRay не работает на своем3-я итерация ребра (edge ​​= 3), r

Мне интересно, может ли кто-нибудь обнаружить какую-то проблему с моей функцией CollideRay , которая приведет кповедение, потому что я хорошо и действительно в тупик.

Заранее спасибо.

1 Ответ

2 голосов
/ 06 ноября 2010

Код предполагает другую систему координат, обратите внимание, что topEdge на больше , чем bottomEdge на связанной веб-странице. Ваш тест работает с обычными графическими координатами, где Bottom больше, чем Top. Вы должны поменять местами нижний и верхний аргументы.

...