diff --git a/gloss-examples.cabal b/gloss-examples.cabal
--- a/gloss-examples.cabal
+++ b/gloss-examples.cabal
@@ -1,5 +1,5 @@
 Name:                gloss-examples
-Version:             1.12.0.0
+Version:             1.13.0.1
 License:             MIT
 License-file:        LICENSE
 Author:              Ben Lippmeier
@@ -39,7 +39,7 @@
           base                          >= 4.8 && < 4.12
         , bytestring                    == 0.10.*
         , bmp                           == 1.2.*
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -58,7 +58,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -73,7 +73,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -88,7 +88,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
         , vector                        >= 0.11 && < 0.13
 
   ghc-options:
@@ -108,7 +108,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
         , vector                        >= 0.11 && < 0.13
 
   ghc-options:
@@ -124,7 +124,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -139,7 +139,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -159,7 +159,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
         , random                        == 1.1.*
 
   ghc-options:
@@ -175,7 +175,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -190,7 +190,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -205,7 +205,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -225,7 +225,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
         , random                        == 1.1.*
 
   ghc-options:
@@ -241,7 +241,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -262,8 +262,8 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
-        , gloss-algorithms              == 1.12.*
+        , gloss                         == 1.13.*
+        , gloss-algorithms              == 1.13.*
 
   ghc-options:
         -O2
@@ -289,7 +289,7 @@
           base                          >= 4.8 && < 4.12
         , containers                    == 0.5.*
         , ghc-prim
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -304,7 +304,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -327,7 +327,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
         , vector                        >= 0.11 && < 0.13
 
   ghc-options:
@@ -343,7 +343,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -358,8 +358,8 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
-        , gloss-raster                  == 1.12.*
+        , gloss                         == 1.13.*
+        , gloss-raster                  == 1.13.*
 
   ghc-options:
         -Wall
@@ -392,8 +392,8 @@
           base                          >= 4.8 && < 4.12
         , repa                          == 3.4.*
         , repa-io                       == 3.4.*
-        , gloss                         == 1.12.*
-        , gloss-raster                  == 1.12.*
+        , gloss                         == 1.13.*
+        , gloss-raster                  == 1.13.*
 
   ghc-options:
         -Wall
@@ -417,8 +417,8 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
-        , gloss-raster                  == 1.12.*
+        , gloss                         == 1.13.*
+        , gloss-raster                  == 1.13.*
 
   ghc-options:
         -Wall
@@ -443,8 +443,8 @@
   Build-depends:
           base                          >= 4.8 && < 4.12
         , ghc-prim
-        , gloss                         == 1.12.*
-        , gloss-raster                  == 1.12.*
+        , gloss                         == 1.13.*
+        , gloss-raster                  == 1.13.*
         , vector                        >= 0.11 && < 0.13
 
   ghc-options:
@@ -502,7 +502,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
         , repa                          == 3.4.*
         , repa-algorithms               == 3.4.*
 
@@ -531,7 +531,7 @@
 
   Build-depends:
           base                          >= 4.8 && < 4.12
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
         , repa                          == 3.4.*
 
   ghc-options:
@@ -557,7 +557,7 @@
   Build-depends:
           base                          >= 4.8 && < 4.12
         , containers                    == 0.5.*
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
@@ -573,7 +573,7 @@
   Build-depends:
           base                          >= 4.8 && < 4.12
         , containers                    == 0.5.*
-        , gloss                         == 1.12.*
+        , gloss                         == 1.13.*
 
   ghc-options:
         -O2
diff --git a/picture/Bitmap/Main.hs b/picture/Bitmap/Main.hs
--- a/picture/Bitmap/Main.hs
+++ b/picture/Bitmap/Main.hs
@@ -16,9 +16,10 @@
 
 run :: FilePath -> IO ()
 run fileName
- = do   picture@(Bitmap width height _ _)
+ = do   picture@(Bitmap bmpData)
                 <- loadBMP fileName
 
+        let (width,height) = bitmapSize bmpData
         animate (InWindow fileName (width, height) (10,  10))
                 black (frame width height picture)