hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-11 16:12:20 +00:00
Code Issues Projects Releases Wiki Activity

fix order of trails

Browse source
This commit is contained in:
Alexander Gudev 2025-01-19 14:43:26 +02:00
commit 5552973bbd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/demo_stars.hs
View file

@ -54,8 +54,8 @@ trails trailDur raw = mkAnimation (duration raw) $ \t ->
fps = 200
construct :: [Int] -> SVG
construct = foldl' go (mkGroup []) where
go acc idx = mkGroup $ [reduceOpacity acc, getFrame idx]
construct = foldr go (mkGroup []) where
go idx acc = mkGroup $ [reduceOpacity acc, getFrame idx]
reduceOpacity = withGroupOpacity (fromIntegral trailFrames / fromIntegral (trailFrames + 1))
getFrame idx = frames V.! (idx `mod` nFrames)