set screen mode

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       = []