module Dodge.WindowSize (getWindowSize) where

import Dodge.Data.Config
import Linear

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