diff --git a/app/Folgerhs/Animate.hs b/app/Folgerhs/Animate.hs
--- a/app/Folgerhs/Animate.hs
+++ b/app/Folgerhs/Animate.hs
@@ -11,6 +11,7 @@
 import Graphics.Gloss as G
 import Graphics.Gloss.Data.Vector
 import Graphics.Gloss.Interface.IO.Game
+import Graphics.Gloss.Interface.Environment
 
 import Folgerhs.Stage as S
 import Folgerhs.Parse (parse)
@@ -104,11 +105,12 @@
            in pictures [d, a]
 
 
-playPic :: Play -> IO Picture
-playPic p = let pics = charPics p
-                (d, a) = optPos 200 175 (length pics)
-                posPics = [ transArc d (i*a) pic | (i, pic) <- zip [0..] pics ]
-             in return $ pictures $ clock p : posPics
+playPic :: (Int, Int) -> Play -> IO Picture
+playPic (w, h) p = let (d, a) = optPos 200 175 $ length $ charPics p
+                       pics = clock p : [ transArc d (i*a) pic | (i, pic) <- zip [0..] (charPics p) ]
+                    in return $ scale ratio ratio $ pictures pics
+                   where
+                       ratio = fromIntegral (min w h) / 800
 
 playEvent :: Event -> Play -> IO Play
 playEvent (EventKey (SpecialKey KeyEsc) Down _ _) _ = exitSuccess
@@ -138,5 +140,6 @@
                             bg = greyN 0.05
                             scf = if wu then hasName else const True
                             np = newPlay sl . replicateChanges 10 . selectCharacters scf . parse
-                         in do source <- readFile f
-                               playIO dis bg lps (np source) playPic playEvent playStep
+                         in do res <- getScreenSize
+                               source <- readFile f
+                               playIO dis bg lps (np source) (playPic res) playEvent playStep
diff --git a/folgerhs.cabal b/folgerhs.cabal
--- a/folgerhs.cabal
+++ b/folgerhs.cabal
@@ -1,5 +1,5 @@
 name:                folgerhs
-version:             0.3.0.1
+version:             0.3.0.2
 synopsis:            Toolset for Folger Shakespeare Library's XML annotated plays
 description:         Toolset for Folger Shakespeare Library's XML annotated plays
 homepage:            https://github.com/SU-LOSP/folgerhs#readme