This commit is contained in:
djes
2016-09-02 12:48:46 +02:00
parent cfc43dd86c
commit f6f149e84e

View File

@@ -403,8 +403,7 @@ Module PBMap
Protected n.d = Pow(2.0, PBMap\Zoom)
Protected LatitudeRad.d
;Ensures the longitude to be in the range [-180;180[
*Location\Longitude = Mod(Mod(*Coords\x / n * 360.0, 360.0) + 360.0, 360.0)
*Location\Longitude - 180
*Location\Longitude = Mod(Mod(*Coords\x / n * 360.0, 360.0) + 360.0, 360.0) - 180
; *Location\Longitude = Mod(*Coords\x / n * 360.0, 360.0)
; If *Location\Longitude < 0
; *Location\Longitude + 360
@@ -784,15 +783,6 @@ Module PBMap
ny = Round(Degrees1\Latitude, #PB_Round_Up) +1
nx1 = Mod(Mod(Round(Degrees2\Longitude, #PB_Round_Up) +1, 360) + 360, 360)
ny1 = Round(Degrees2\Latitude, #PB_Round_Down)-1
realx = nx
; If nx < 0
; nx + 360
; EndIf
; If nx1 < 0
; nx1 + 360
; EndIf
; nx % 360
; nx1 % 360
Degrees1\Longitude = nx
Degrees1\Latitude = ny
Degrees2\Longitude = nx1
@@ -821,11 +811,7 @@ Module PBMap
MovePathCursor(pos1\x, pos1\y)
AddPathLine( pos1\x, pos2\y)
MovePathCursor(pos1\x,10)
DrawVectorText(StrD(realx, 1))
realx + 1
If realx > 180
realx - 360
EndIf
DrawVectorText(StrD(Mod(x + 180, 360) - 180, 1))
x = (x + 1)%360
Until x = nx1
StrokePath(1)
@@ -1402,8 +1388,8 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf
; IDE Options = PureBasic 5.50 (Windows - x64)
; CursorPosition = 1364
; FirstLine = 1352
; CursorPosition = 413
; FirstLine = 467
; Folding = ----------
; EnableThread
; EnableXP