mdgriffith/elm-animator
1
1
Fork 0
mirror of https://github.com/mdgriffith/elm-animator.git synced 2024-09-11 12:47:52 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix Timeline.arrived

Browse Source
This commit is contained in:
Matthew Griffith 2024-08-04 16:50:11 -04:00
parent 27bba31fe0
commit fe377af11c
1 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/InternalAnim/Timeline.elm
View File

@ -1160,12 +1160,15 @@ arrived ((Timeline details) as timeline) =
foldpAll (getCurrentTime timeline)
identity
(\_ -> details.initial)
(\_ _ target now _ end _ state ->
-- This is the current event when
-- we have started toward an event or arrived at it.
-- A tricky aspect is that css timelines are only updated on transition
-- This means that now == start must be current, or else current will be wrong for the whole transition.
if Time.thisAfterOrEqualThat now end && (startTime target == end) then
(\_ _ target now _ endTransition _ state ->
-- Arrived value is the last value that we've successfully arrived at
if
Time.thisAfterOrEqualThat now endTransition
&& (-- the endTransition is either the endtime of `target event` or the interruption time
-- If we were interrupted, we never made it to this event.
endTime target == endTransition
)
then
getEvent target
else
@ -1179,18 +1182,18 @@ current ((Timeline details) as timeline) =
foldpAll (getCurrentTime timeline)
identity
(\_ -> details.initial)
(\_ _ target now start end future state ->
(\_ _ target now start endTransition future state ->
-- This is the current event when
-- we have started toward an event or arrived at it.
-- A tricky aspect is that css timelines are only updated on transition
-- This means that now == start must be current, or else current will be wrong for the whole transition.
if
Time.thisBeforeOrEqualThat now end
Time.thisBeforeOrEqualThat now endTransition
&& Time.thisAfterOrEqualThat now start
then
getEvent target
else if List.isEmpty future && Time.thisAfterThat now end then
else if List.isEmpty future && Time.thisAfterThat now endTransition then
getEvent target
else
@ -1199,6 +1202,17 @@ current ((Timeline details) as timeline) =
timeline
{-|
```ascii
Starting transitioning to C
| |
A---------B--B-------C
^ ^ ^ ^
previous: A A A B
```
-}
previous : Timeline event -> event
previous ((Timeline details) as timeline) =
foldpAll (getCurrentTime timeline)