dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

push tile bounds calc down into tiles from caller

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-23 12:03:29 +00:00
parent fb61919c96
commit 795e63d773
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
frontend/src/Main.elm
View File

@ -527,8 +527,6 @@ canvas centre zoom width height model =
offsetY = pixelCentreY - (height // 2) - topedge offsetY = pixelCentreY - (height // 2) - topedge
pixWidth = (1 + maxtile.x - mintile.x) * 256 pixWidth = (1 + maxtile.x - mintile.x) * 256
pixHeight = (1 + maxtile.y - mintile.y) * 256 pixHeight = (1 + maxtile.y - mintile.y) * 256
xs = List.range mintile.x maxtile.x
ys = List.range mintile.y maxtile.y
epos e = Tuple.mapBoth floor floor e.pointer.clientPos epos e = Tuple.mapBoth floor floor e.pointer.clientPos
tv = ifTrack model (trackView leftedge topedge zoom) tv = ifTrack model (trackView leftedge topedge zoom)
in div [style "position" "absolute" in div [style "position" "absolute"
@ -540,7 +538,7 @@ canvas centre zoom width height model =
,Pointer.onUp (\e -> DragFinish (epos e)) ,Pointer.onUp (\e -> DragFinish (epos e))
,Pointer.onMove (\e -> Drag (epos e)) ,Pointer.onMove (\e -> Drag (epos e))
,Pointer.onDown (\e -> DragStart Map (epos e)) ] ,Pointer.onDown (\e -> DragStart Map (epos e)) ]
(tv :: tiles xs ys zoom) (tv :: tiles centre zoom width height)
portalWidth = 600 portalWidth = 600

6
frontend/src/TileMap.elm
View File

@ -98,7 +98,11 @@ tileImg zoom tilenumber = img [ width 256,
height 256, height 256,
src (tileUrl tilenumber zoom) ] [] src (tileUrl tilenumber zoom) ] []
tiles xs ys zoom = tiles centre zoom width height =
let (mintile, maxtile) = boundingTiles centre zoom width height
xs = List.range mintile.x maxtile.x
ys = List.range mintile.y maxtile.y
in
List.map List.map
(\ y -> div [] (\ y -> div []
(List.map (\ x -> tileImg zoom (TileNumber x y)) xs)) (List.map (\ x -> tileImg zoom (TileNumber x y)) xs))