diff --git a/src/Affection.hs b/src/Affection.hs index 1766e63..42c5207 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -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 = []