module Dodge.WindowSize where

import Dodge.Data.Config

getWindowSize :: Integral a => (Config -> ResFactor) -> Config -> (a,a)
getWindowSize f cfig = (g _windowX, g _windowY)
  where
    g h = fromIntegral $ applyResFactor (f cfig) (h cfig)