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

Elaborate tutorial.

Browse source 
Former-commit-id: 31267dbb1675723b3b9afde806d215b358a7abac
This commit is contained in:
David Himmelstrup 2019-12-03 16:01:18 +08:00
commit 4283793c5a
6 changed files with 283 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

6
examples/tut_glue_animate.hs
View file

@ -10,8 +10,8 @@ import Reanimate.Animation
import Reanimate.Effect
import Reanimate.Scene
bgColor :: String
bgColor = "white"
bgColor :: PixelRGBA8
bgColor = PixelRGBA8 252 252 252 0xFF
segmentDuration :: Double
segmentDuration = 3
@ -25,7 +25,7 @@ main = reanimate $ bg `parA`
[animateCircleR, animateCircleP, animateRectR, animateColor
,signalA (constantS 0) $ setDuration transitionTime animateCircleR]
where
bg = animate $ const $ mkBackground bgColor
bg = animate $ const $ mkBackgroundPixel bgColor
animateCircleR :: Animation
animateCircleR = mkSegment "radius" $ \t -> mkCircle (t*2)