Problemas con la aplicación VB.NET Liang-Barsky
-
29-09-2019 - |
Pregunta
Después de algunas investigaciones, he decidido utilizar el Liang-Barsky línea de algoritmo de recorte en mi juego en 2D. Google no entregar en cualquier implementación de este algoritmo VB.NET, pero hay muchos C / ++ queridos. Por lo tanto, como no tengo conocimientos en C ++, decidió puerto que se encuentra en Skytopia a VB.Net. Por desgracia, no funciona con:
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
Estoy utilizando la clase / método como:
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
Sin embargo, la CollideRay método falla en su tercera iteración borde (borde = 3), r Me pregunto si alguien puede detectar algún problema con mi CollideRay función que daría lugar a este comportamiento, porque estoy bien y verdaderamente perplejo. Gracias de antemano.
Solución
El código se supone un sistema de coordenadas diferente, nota que topEdge es mayor que bottomEdge en la página web del enlace. Su prueba funciona con coordenadas gráficos normales, donde conclusión es más grande que la superior. Usted tiene que cambiar la parte inferior y superior argumentos.