This commit is contained in:
djes
2016-09-02 14:00:25 +02:00
parent f6f149e84e
commit 93c64758ac

View File

@@ -421,19 +421,16 @@ Module PBMap
Protected px.d = Pos\x
;check the x boundaries of the map to adjust the position (coz of the longitude wrapping)
If dpx - px > tilemax / 2
;Debug "c1"
Debug "c1"
*Pixel\x = cx + (px - dpx + tilemax) * PBMap\TileSize
ElseIf px - dpx > tilemax / 2
;Debug "c2"
Debug "c2"
*Pixel\x = cx + (px - dpx - tilemax) * PBMap\TileSize
ElseIf dpx - px < 0
;Debug "c3"
*Pixel\x = cx + (px - dpx) * PBMap\TileSize
ElseIf px - dpx < 0
;Debug "c4"
Debug "c3"
*Pixel\x = cx - (dpx - px) * PBMap\TileSize
Else
;Debug "c0"
Debug "c0"
*Pixel\x = cx + (px - dpx) * PBMap\TileSize
EndIf
*Pixel\y = PBMap\Drawing\CenterY + (Pos\y - PBMap\Drawing\Position\y) * PBMap\TileSize
@@ -1092,6 +1089,7 @@ Module PBMap
;Convert X, Y in tile.decimal into real pixels
MouseX = PBMap\Drawing\Position\x * PBMap\TileSize + GadgetWidth(PBMap\Gadget) / 2 - x
MouseY = PBMap\Drawing\Position\y * PBMap\TileSize + GadgetHeight(PBMap\Gadget) / 2 - y
Debug "------" ;TODO bug when zoom near the wrap
Debug PBMap\Position\x
;Cross-multiply to get the new center
PBMap\Position\x = (OldPx * MouseX) / OldMx
@@ -1388,8 +1386,8 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf
; IDE Options = PureBasic 5.50 (Windows - x64)
; CursorPosition = 413
; FirstLine = 467
; CursorPosition = 1091
; FirstLine = 1070
; Folding = ----------
; EnableThread
; EnableXP