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

elm has a clap function already

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-14 19:08:49 +00:00
parent 3200a4618f
commit 42d0ff65b8
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
frontend/src/Main.elm
View File

@ -61,12 +61,6 @@ zoomStep = 8
toZoom : FineZoomLevel -> ZoomLevel toZoom : FineZoomLevel -> ZoomLevel
toZoom (FineZoomLevel f) = f // zoomStep toZoom (FineZoomLevel f) = f // zoomStep
clamp min max val =
if val < min
then min
else if val > max
then max
else val
incZoom : FineZoomLevel -> Int -> FineZoomLevel incZoom : FineZoomLevel -> Int -> FineZoomLevel
incZoom (FineZoomLevel z) delta = incZoom (FineZoomLevel z) delta =