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

Clean up tut code.

Browse source 
Former-commit-id: 4c8ab35264c3ea2bbacf30317a764b29ac8a107f
This commit is contained in:
David Himmelstrup 2019-12-02 16:53:20 +08:00
commit 4c127f7462
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
examples/tut_glue_svg.hs
View file

@ -12,8 +12,8 @@ import Graphics.SvgTree hiding (Text)
import Control.Lens import Control.Lens
import Codec.Picture import Codec.Picture
bgColor :: String bgColor :: PixelRGBA8
bgColor = "white" bgColor = PixelRGBA8 252 252 252 0xFF
framePause :: Double framePause :: Double
framePause = 3 framePause = 3
@ -25,7 +25,7 @@ main :: IO ()
main = reanimate $ bg `parA` transitions fadeInE fadeOutE transitionTime main = reanimate $ bg `parA` transitions fadeInE fadeOutE transitionTime
[comp1, comp2, comp3, comp4, comp5, comp6, comp7, setDuration transitionTime comp1] [comp1, comp2, comp3, comp4, comp5, comp6, comp7, setDuration transitionTime comp1]
where where
bg = animate $ const $ mkBackgroundPixel $ PixelRGBA8 252 252 252 0xFF -- bgColor bg = animate $ const $ mkBackgroundPixel bgColor
comp1 = svgComponent "Circles" (mkCircle 2) comp1 = svgComponent "Circles" (mkCircle 2)
comp2 = svgComponent "Rects" (mkRect 4 3) comp2 = svgComponent "Rects" (mkRect 4 3)
comp3 = svgComponent "Lines" (mkLine (-2,0) (2,0)) comp3 = svgComponent "Lines" (mkLine (-2,0) (2,0))
@ -61,7 +61,6 @@ mkBlur = mkGroup
& filterRef .~ pure (Ref "blur") & filterRef .~ pure (Ref "blur")
] ]
where where
sharpness = 10 :: Integer
dev = 0.2 dev = 0.2
radius = 2 radius = 2
circ = mkCircle radius circ = mkCircle radius