10 lines
276 B
Haskell
10 lines
276 B
Haskell
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)
|