nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

set screen mode

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Affection.hs
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 = []