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 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 = adjustSpeed 2 $ defineAnimation $ syncAll
[ proc () ->
annotate' (defineAnimation animation)
-< g_ [transform_ $ translate x y] . g_ [transform_ $ scale 0.5 0.5]
scaling = adjustSpeed 2 $ syncAll
[ defineAnimation $ proc () ->
annotate' animation -< g_ [transform_ $ translate x y <> " " <> scale 0.5 0.5]
| x <- [0,160]
, y <- [0,90]
| animation <- [sinewave, morph_wave, highlight, progressMeters]
]
| animation <- [sinewave, morph_wave, highlight, progressMeters]]
```
![Scaling](gifs/scaling.gif)

10
src/Reanimate/Examples.hs
View file

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