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

Documentation (mostly for scenes) (#58)

Browse source 
Former-commit-id: 76fe4a261710ff744d09c9dd0a9b694f759fda41
This commit is contained in:
David Himmelstrup 2020-02-22 20:32:31 +08:00 • committed by GitHub
commit ff2f7f614b
45 changed files with 759 additions and 163 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/tut_glue_animate.hs
View file

@ -4,6 +4,7 @@
module Main(main) where
import Reanimate
import Reanimate.Transition
import Codec.Picture.Types
import Data.Text (Text)
@ -19,10 +20,11 @@ transitionTime = 0.5
main :: IO ()
main = reanimate $ bg `parA`
transitions fadeInE fadeOutE transitionTime
chainT transition
[animateCircleR, animateCircleP, animateRectR, animateColor
,signalA (constantS 0) $ setDuration transitionTime animateCircleR]
where
transition = overlapT transitionTime fadeT
bg = animate $ const $ mkBackgroundPixel bgColor
animateCircleR :: Animation