cleanup
This commit is contained in:
16
PBMap.pb
16
PBMap.pb
@@ -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
|
||||
|
Reference in New Issue
Block a user