Some minor fixes on the map screen.

This commit is contained in:
jianmingyong 2016-09-30 01:02:07 +08:00
parent 8e9fc03c8f
commit 962f15f3fc

View File

@ -16,7 +16,7 @@
Dim cities As New List(Of City) Dim cities As New List(Of City)
Dim routes As New List(Of Route) Dim routes As New List(Of Route)
Dim places As New List(Of Place) Dim places As New List(Of Place)
'Dim RoamingPoke As New List(Of Roaming) Dim RoamingPoke As New List(Of Roaming)
Dim objectsTexture As Texture2D Dim objectsTexture As Texture2D
Dim mapTexture As Texture2D Dim mapTexture As Texture2D
@ -1083,7 +1083,7 @@
Me.PositionX = PositionX Me.PositionX = PositionX
Me.PositionY = PositionY Me.PositionY = PositionY
Me.Location = Location Me.Location = Location
Me.Distance = (2).xRoot((PositionX * 2) + (PositionY * 2)) Me.Distance = Math.Pow(Math.Pow(PositionX, 2) + Math.Pow(PositionY, 2), 0.5) ' (x^2 + y^2)^0.5
End Sub End Sub
Public Function getPosition() As Vector2 Public Function getPosition() As Vector2