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

Reduce default window size.

Browse source
This commit is contained in:
David 2019-02-13 21:43:22 +01:00
commit a05b62aa84
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Reanimate/Arrow.hs
View file

@ -36,7 +36,7 @@ frameAt n (Animation d fn) = svg $ fn (n `mod'` d)
svg :: Svg () -> Svg ()
svg content = do
doctype_
with (svg11_ content) [width_ "640" , height_ "360", viewBox_ "0 0 320 180"]
with (svg11_ content) [width_ "320" , height_ "180", viewBox_ "0 0 320 180"]
emit :: Animation (Svg ()) ()
emit = Animation 0 id