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

Style wibble.

Browse source 
Former-commit-id: 78161fcbdb67e20a6574feae6745db06136e3e41
This commit is contained in:
David Himmelstrup 2020-05-19 07:50:16 +08:00
commit ae10e75b9d
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
examples/demo_stars.hs
View file

@ -11,9 +11,9 @@ import Reanimate
import Reanimate.Interpolate
import Reanimate.Builtin.Documentation
import System.Random
import Data.List
import Codec.Picture.Types
import qualified Data.Vector as V
import Data.List
import Codec.Picture.Types
import qualified Data.Vector as V
main :: IO ()
main = reanimate $ sceneAnimation $ do
@ -45,8 +45,8 @@ trails trailDur raw = mkAnimation (duration raw) $ \t ->
in construct $ reverse [idx - trailFrames .. idx]
where
fps = 200
construct [] = mkGroup []
construct (x:xs) = mkGroup
construct [] = mkGroup []
construct (x : xs) = mkGroup
[ withGroupOpacity (fromIntegral trailFrames / fromIntegral (trailFrames + 1))
$ construct xs
, getFrame x