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

pass zoom to trackView

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-10 20:58:14 +00:00
parent dc46300f05
commit 1346971962
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
frontend/src/Main.elm
View File

@ -216,10 +216,10 @@ tileImg zoom tilenumber = img [ width 256,
height 256,
src (tileUrl tilenumber zoom) ] []
trackView : List Point -> Int -> Int -> Svg Msg
trackView points leftedge topedge =
trackView : List Point -> Int -> Int -> Zoom -> Svg Msg
trackView points leftedge topedge zoom =
let plot p =
let (x, y) = pixelFromCoord (toCoord p.pos.lat p.pos.lon) 13
let (x, y) = pixelFromCoord (toCoord p.pos.lat p.pos.lon) zoom
x_ = x - leftedge
y_ = y - topedge
in (String.fromInt x_) ++ ", " ++
@ -269,7 +269,7 @@ canvas centre zoom width height track =
ys = List.range mintile.y maxtile.y
epos e = Tuple.mapBoth floor floor e.pointer.clientPos
tv = case track of
Present t -> trackView t leftedge topedge
Present t -> trackView t leftedge topedge zoom
Failure f -> Debug.log f (div [] [ text "failure", text f])
Loading -> div [] [text "loading"]
Empty -> div [] [text "no points"]