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

remove MapZoom{In,Out} messages

Browse Source 
they can both be replaced with MapScale
This commit is contained in:
Daniel Barlow 2024-11-16 00:00:16 +00:00
parent 8c1eb9f77f
commit 7fe09053e3
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
frontend/src/Main.elm
View File

@ -177,9 +177,7 @@ fetchTrack start duration = Http.get
-- UPDATE -- UPDATE
type Msg type Msg
= MapZoomIn = MapScale Int
| MapZoomOut
| MapScale Float
| PointerDown (Int, Int) | PointerDown (Int, Int)
| PointerMove (Int, Int) | PointerMove (Int, Int)
| PointerUp (Int, Int) | PointerUp (Int, Int)
@ -195,15 +193,8 @@ update msg model = (newModel msg model, Cmd.none)
newModel msg model = newModel msg model =
case msg of case msg of
MapZoomIn ->
{ model | zoom = incZoom model.zoom zoomStep }
MapZoomOut ->
{ model | zoom = incZoom model.zoom -zoomStep }
MapScale y -> MapScale y ->
let dir = floor(abs(y)/y) { model | zoom = incZoom model.zoom y }
in { model | zoom = incZoom model.zoom dir }
PointerDown (x,y) -> PointerDown (x,y) ->
{ model | drag = Dragging (x,y) (x,y) } { model | drag = Dragging (x,y) (x,y) }
@ -420,7 +411,8 @@ withSwallowing m =
-- FIXME should do something useful with deltaMode as well as deltaY -- FIXME should do something useful with deltaMode as well as deltaY
mapWheelDecoder = mapWheelDecoder =
D.map (withSwallowing << MapScale) (D.field "deltaY" D.float) let sgn x = floor((abs x)/x)
in D.map (withSwallowing << MapScale << sgn) (D.field "deltaY" D.float)
timeWheelDecoder = timeWheelDecoder =
D.map (withSwallowing << TimeScale) (D.field "deltaY" D.float) D.map (withSwallowing << TimeScale) (D.field "deltaY" D.float)
@ -443,8 +435,8 @@ viewDiv model =
[canvasV] [canvasV]
, text ("Zoom level " ++ (String.fromInt (toZoom model.zoom))) , text ("Zoom level " ++ (String.fromInt (toZoom model.zoom)))
, span [] , span []
[ button [ onClick MapZoomOut ] [ text "-" ] [ button [ onClick (MapScale -zoomStep) ] [ text "-" ]
, button [ onClick MapZoomIn ] [ text "+" ] , button [ onClick (MapScale zoomStep) ] [ text "+" ]
] ]
] ]
, div [ style "display" "flex" , div [ style "display" "flex"