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

Clean up scaling example.

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

10
README.md
View file

@ -23,13 +23,11 @@ so they're all in sync, and increases the playback speed.
``` ```
scaling :: Ani () scaling :: Ani ()
scaling = adjustSpeed 2 $ defineAnimation $ syncAll scaling = adjustSpeed 2 $ syncAll
[ proc () -> [ defineAnimation $ proc () ->
annotate' (defineAnimation animation) annotate' animation -< g_ [transform_ $ translate x y <> " " <> scale 0.5 0.5]
-< g_ [transform_ $ translate x y] . g_ [transform_ $ scale 0.5 0.5]
| x <- [0,160] | x <- [0,160]
, y <- [0,90] , y <- [0,90]
| animation <- [sinewave, morph_wave, highlight, progressMeters] | animation <- [sinewave, morph_wave, highlight, progressMeters]]
]
``` ```
![Scaling](gifs/scaling.gif) ![Scaling](gifs/scaling.gif)

10
src/Reanimate/Examples.hs
View file

@ -223,11 +223,9 @@ circle_clip sub = proc () -> do
scaling :: Ani () scaling :: Ani ()
scaling = adjustSpeed 2 $ defineAnimation $ syncAll scaling = adjustSpeed 2 $ syncAll
[ proc () -> [ defineAnimation $ proc () ->
annotate' (defineAnimation animation) annotate' animation -< g_ [transform_ $ translate x y <> " " <> scale 0.5 0.5]
-< g_ [transform_ $ translate x y] . g_ [transform_ $ scale 0.5 0.5]
| x <- [0,160] | x <- [0,160]
, y <- [0,90] , y <- [0,90]
| animation <- [sinewave, morph_wave, highlight, progressMeters] | animation <- [sinewave, morph_wave, highlight, progressMeters]]
]