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

rename messages for map dragging

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-16 00:03:55 +00:00
parent 7fe09053e3
commit 5f02b5b992
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
frontend/src/Main.elm
View File

@ -178,9 +178,9 @@ fetchTrack start duration = Http.get
type Msg type Msg
= MapScale Int = MapScale Int
| PointerDown (Int, Int) | MapDragStart (Int, Int)
| PointerMove (Int, Int) | MapDrag (Int, Int)
| PointerUp (Int, Int) | MapDragFinish (Int, Int)
| TimeScale (Float) | TimeScale (Float)
| Loaded (Result Http.Error (List Point)) | Loaded (Result Http.Error (List Point))
| NewUrlRequest | NewUrlRequest
@ -196,13 +196,13 @@ newModel msg model =
MapScale y -> MapScale y ->
{ model | zoom = incZoom model.zoom y } { model | zoom = incZoom model.zoom y }
PointerDown (x,y) -> MapDragStart (x,y) ->
{ model | drag = Dragging (x,y) (x,y) } { model | drag = Dragging (x,y) (x,y) }
PointerMove (x,y) -> MapDrag (x,y) ->
{ model | drag = dragTo model.drag (x,y) } { model | drag = dragTo model.drag (x,y) }
PointerUp (x,y) -> MapDragFinish (x,y) ->
{ model | drag = None, { model | drag = None,
centre = translatePixels model.centre (toZoom model.zoom) (dragDelta model.drag) } centre = translatePixels model.centre (toZoom model.zoom) (dragDelta model.drag) }
@ -214,7 +214,6 @@ newModel msg model =
, duration = len , duration = len
} }
Loaded result -> Loaded result ->
case result of case result of
Ok trk -> { model | track = Present trk } Ok trk -> { model | track = Present trk }
@ -395,9 +394,9 @@ canvas centre zoom width height model =
,style "left" (px -offsetX) ,style "left" (px -offsetX)
,style "top" (px -offsetY) ,style "top" (px -offsetY)
,style "lineHeight" (px 0) ,style "lineHeight" (px 0)
,Pointer.onUp (\e -> PointerUp (epos e)) ,Pointer.onUp (\e -> MapDragFinish (epos e))
,Pointer.onMove (\e -> PointerMove (epos e)) ,Pointer.onMove (\e -> MapDrag (epos e))
,Pointer.onDown (\e -> PointerDown (epos e)) ] ,Pointer.onDown (\e -> MapDragStart (epos e)) ]
(tv :: tiles xs ys zoom) (tv :: tiles xs ys zoom)
portalWidth = 600 portalWidth = 600