set screen mode

This commit is contained in:
nek0 2017-07-29 21:57:06 +02:00
parent eeb342eeba
commit 6f943ece7b
1 changed files with 2 additions and 0 deletions

View File

@ -93,6 +93,7 @@ withAffection AffectionConfig{..} = do
!stride = cpp * w
format <- B.babl_format bablFormat
-- get current time
SDL.setWindowMode window initScreenMode
execTime <- getTime Monotonic
initContainer <- (\x -> AffectionData
{ quitEvent = False
@ -104,6 +105,7 @@ withAffection AffectionConfig{..} = do
, drawDimensions = case canvasSize of
Just (cw, ch) -> (cw, ch)
Nothing -> (w, h)
, screenMode = initScreenMode
, drawStride = stride
, drawCPP = cpp
, drawStack = []