introduce canvas size

examples/example01.hs

@@ -34,6 +34,7 @@ main = do
     , drawLoop       = draw
     , loadState      = load
     , cleanUp        = clean
+    , canvasSize     = Nothing
     }
   withAffection conf
 

examples/example02.1.hs

@@ -20,6 +20,7 @@ main = do
     , drawLoop       = draw
     , loadState      = load
     , cleanUp        = clean
+    , canvasSize     = Nothing
     }
   withAffection conf
 

examples/example02.hs

@@ -21,6 +21,7 @@ main = do
     , drawLoop       = draw
     , loadState      = load
     , cleanUp        = clean
+    , canvasSize     = Nothing
     }
   withAffection conf
 

examples/example03.hs

@@ -28,6 +28,7 @@ main = do
     , drawLoop       = draw
     , loadState      = load
     , cleanUp        = clean
+    , canvasSize     = Nothing
     }
   withAffection conf
 

examples/example04.hs

@@ -18,6 +18,7 @@ main = do
     { initComponents = All
     , windowTitle    = "Affection: example00"
     , windowConfig   = SDL.defaultWindow
+    , canvasSize     = Just (3289, 600)
     , preLoop        = return ()
     , eventLoop      = handle
     , updateLoop     = update

src/Affection/Types.hs

@@ -55,6 +55,8 @@ data AffectionConfig us = AffectionConfig
       -- ^ Window title
   , windowConfig   :: SDL.WindowConfig
       -- ^ Window configuration
+  , canvasSize     :: Maybe (Int, Int)
+      -- ^ size of the texture canvas
   , preLoop        :: Affection us ()
       -- ^ Actions to be performed, before loop starts
   , eventLoop     :: SDL.EventPayload -> Affection us ()