set screen mode

This commit is contained in:
nek0 2017-07-29 21:57:06 +02:00
parent eeb342eeba
commit 6f943ece7b

View file

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