module Config where
--
import qualified SDL
import qualified Data.Text as T
import Linear.V2 (V2(..))
--
--
winW  = 800
winH  = 600
winV2 = V2 winW winH
--
winConfig = SDL.defaultWindow
   { SDL.windowPosition = SDL.Centered
   , SDL.windowInitialSize = V2 winW winH
   }

rdrConfig = SDL.RendererConfig
   { SDL.rendererType = SDL.AcceleratedVSyncRenderer
   , SDL.rendererTargetTexture = True
   }

genConf :: T.Text -> (T.Text, SDL.WindowConfig)
genConf t = (t, winConfig)
