From 0d48565c850a46d3a9018e66c1b513a8d4f08e7b Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 23 Mar 2017 04:31:10 +0100 Subject: [PATCH] introduce canvas size --- examples/example01.hs | 1 + examples/example02.1.hs | 1 + examples/example02.hs | 1 + examples/example03.hs | 1 + examples/example04.hs | 1 + src/Affection/Types.hs | 2 ++ 6 files changed, 7 insertions(+) diff --git a/examples/example01.hs b/examples/example01.hs index 7619052..3380349 100644 --- a/examples/example01.hs +++ b/examples/example01.hs @@ -34,6 +34,7 @@ main = do , drawLoop = draw , loadState = load , cleanUp = clean + , canvasSize = Nothing } withAffection conf diff --git a/examples/example02.1.hs b/examples/example02.1.hs index 4859fec..2f2c48c 100644 --- a/examples/example02.1.hs +++ b/examples/example02.1.hs @@ -20,6 +20,7 @@ main = do , drawLoop = draw , loadState = load , cleanUp = clean + , canvasSize = Nothing } withAffection conf diff --git a/examples/example02.hs b/examples/example02.hs index b600e6c..e4993e8 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -21,6 +21,7 @@ main = do , drawLoop = draw , loadState = load , cleanUp = clean + , canvasSize = Nothing } withAffection conf diff --git a/examples/example03.hs b/examples/example03.hs index 51124d1..6214f51 100644 --- a/examples/example03.hs +++ b/examples/example03.hs @@ -28,6 +28,7 @@ main = do , drawLoop = draw , loadState = load , cleanUp = clean + , canvasSize = Nothing } withAffection conf diff --git a/examples/example04.hs b/examples/example04.hs index 37a71d4..a9ff1cb 100644 --- a/examples/example04.hs +++ b/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 diff --git a/src/Affection/Types.hs b/src/Affection/Types.hs index 27ed78f..63f356c 100644 --- a/src/Affection/Types.hs +++ b/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 ()