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

Set viewbox to 16 by 9. (#11)

Browse source 
* Set viewbox to 16 by 9.

* Update examples and fix process termination bug in driver.

* Add module for constants.


Former-commit-id: 1c77569e771455e674485e2fc58ee57e7df5f3c5
This commit is contained in:
David Himmelstrup 2019-09-18 19:20:14 +08:00 • committed by GitHub
commit 89905ebe39
24 changed files with 167 additions and 121 deletions
Download patch file Download diff file Expand all files Collapse all files

8
examples/goo.hs
View file

@ -44,7 +44,7 @@ main = reanimate $ autoReverse $ mkAnimation 5 $ do
& filterX .~ pure (Percent (-1))
& filterHeight .~ pure (Percent 3)
& filterY .~ pure (Percent (-1))
emit $ translate 0 (-radius*2) $ withFillColor "red" $ mkGroup
emit $ translate 0 (radius*2.2) $ withFillColor "red" $ mkGroup
[ translate (s*(-radius)) 0 circ
, translate (s*radius) 0 circ
]
@ -52,14 +52,14 @@ main = reanimate $ autoReverse $ mkAnimation 5 $ do
[ translate (s*(-radius)) 0 circ
, translate (s*radius) 0 circ
] & filterRef .~ pure (Ref "blur")
emit $ translate 0 (radius*2) $ withFillColor "red" $ mkGroup
emit $ translate 0 (-radius*2.2) $ withFillColor "red" $ mkGroup
[ translate (s*(-radius)) 0 circ
, translate (s*radius) 0 circ
] & filterRef .~ pure (Ref "goo")
where
sharpness = 10
dev = 5
radius = 25
dev = 0.2
radius = 1
circ = mkCircle (Num radius)
mkFilter :: String -> [FilterElement] -> Filter