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

Fix examples.

Browse source 
Former-commit-id: f6a942fd37e148e86fb9b671b2a2b32afc4a3178
This commit is contained in:
David Himmelstrup 2019-09-11 21:29:48 +08:00
commit fd7c485c70
6 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
examples/boundingbox.hs
View file

@ -40,7 +40,8 @@ bbox2 = autoReverse $ mkAnimation 2.5 $ do
mkBoundingBox :: Tree -> Tree
mkBoundingBox svg = withStrokeColor "red" $ withFillOpacity 0 $
mkRect (Num x, Num y) (Num w) (Num h)
translate (x+w/2) (y+h/2) $
mkRect (Num w) (Num h)
where
(x, y, w, h) = boundingBox svg