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

clamp marks to visible time range

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-27 17:52:49 +00:00
parent 621055e2df
commit 290edd1daf
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
frontend/src/Main.elm
View File

@ -113,8 +113,12 @@ dragUpdate model (newx, newy) =
in { model | centre = translate fromcoord (pixelsToCoord model.zoom t) } in { model | centre = translate fromcoord (pixelsToCoord model.zoom t) }
Just (DragGraph (fromx,_) fromtime) -> Just (DragGraph (fromx,_) fromtime) ->
let time = secondsFromPixels model (fromx - newx) let time = secondsFromPixels model (fromx - newx)
in { model |
startTime = fromtime + time startTime = fromtime + time
clampVisible = clamp startTime (startTime + model.duration)
in { model |
startTime = startTime
, leftMark = clampVisible model.leftMark
, rightMark = clampVisible model.rightMark
} }
Just (DragLeftMark (fromx,_) fromtime) -> Just (DragLeftMark (fromx,_) fromtime) ->
let time = secondsFromPixels model (fromx - newx) let time = secondsFromPixels model (fromx - newx)