Angle to XY

Category:

Dates and Math

Type:

Snippets

Difficulty:

Intermediate

Author: LPChip Interactive

Version Compatibility:

More information:

This code is used for games or other applications where you'll need an corner with an angle. You can specify The Starting XY(center), the Length (up) and the Angle ofcource. Then you'll retrieve the XY of where it is. (this routine is 10 times faster than TAN, COS and SIN.

USAGE:
|Retrieved XY
|BR> | /Length
|/<- Angle
XY+

You'll Find the statement 'Buiging'. the default is 1.80 but changing this could create cool things.(if you'll draw a circle with this tool, you should be able to change the size of the circle without changing the width on the horizontal and vertical points of the circle. (so, you'll be able to draw ellipses)

Use as follows:

Angle = 20 'degrees
Length = 1000
NewX = CurX + GetXfromAngle(Angle, Length, 1.8)
NewY = CurY - Length + GetYfromAngle(Angle, Length, 1.8)

test on the form (form1)

Form1.Line(CurX,CurY)-(NewX,NewY)

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Private Function GetXfromAngle(Angle, Length, Buiging)
Select Case Angle
    Case 0 To 89, 360
        GetXfromAngle = Length - (90 - Angle Mod 90) ^ _
         Buiging * Length / 90 ^ Buiging
    Case 90 To 179
        GetXfromAngle = Length - (Angle Mod 90) ^ _
            Buiging * Length / 90 ^ Buiging
    Case 180 To 269
        GetXfromAngle = (90 - Angle Mod 90) ^ Buiging * _
            Length / 90 ^ Buiging - Length
    Case 270 To 359
        GetXfromAngle = (Angle Mod 90) ^ Buiging * _
            Length / 90 ^ Buiging - Length
End Select
End Function

Private Function GetYfromAngle(Angle, Length, Buiging)
Select Case Angle
    Case 0 To 89, 360
        GetYfromAngle = (Angle Mod 90) ^ Buiging * _
             Length / 90 ^ Buiging
    Case 90 To 179
        GetYfromAngle = Length - (90 - Angle Mod 90) ^ _
             Buiging * Length / 90 ^ Buiging + Length
    Case 180 To 269
        GetYfromAngle = Length - (Angle Mod 90) ^ _
             Buiging * Length / 90 ^ Buiging + Length
    Case 270 To 360
        GetYfromAngle = (90 - Angle Mod 90) ^ Buiging * _
             Length / 90 ^ Buiging
End Select
End Function