Reduce default window size.

This commit is contained in:
David 2019-02-13 21:43:22 +01:00
commit 06b857a0fe
4 changed files with 1 additions and 1 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 361 KiB

After

Width:  |  Height:  |  Size: 189 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 204 KiB

After

Width:  |  Height:  |  Size: 105 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 29 KiB

After

Width:  |  Height:  |  Size: 35 KiB

Before After
Before After

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