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

Clean up example.

Browse source
This commit is contained in:
David 2019-02-19 13:12:16 +01:00
commit a72e95332b
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
README.md
View file

@ -177,10 +177,10 @@ clip_rect :: Ani ()
clip_rect = proc () -> do
emit -< rect_ [width_ "100%", height_ "100%", fill_ "black"]
follow
[ proc () -> do
sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ] -< ()
sim [ runAni "black" i | i <- [n-4], i>=0 ] -< ()
runAni "white" n -< ()
[ sim
[ sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ]
, sim [ runAni "black" i | i <- [n-4], i>=0 ]
, runAni "white" n ]
| n <- [0..15]
] -< ()
where

8
src/Reanimate/Examples.hs
View file

@ -160,10 +160,10 @@ clip_rect :: Ani ()
clip_rect = proc () -> do
emit -< rect_ [width_ "100%", height_ "100%", fill_ "black"]
follow
[ proc () -> do
sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ] -< ()
sim [ runAni "black" i | i <- [n-4], i>=0 ] -< ()
runAni "white" n -< ()
[ sim
[ sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ]
, sim [ runAni "black" i | i <- [n-4], i>=0 ]
, runAni "white" n ]
| n <- [0..15]
] -< ()
where