module FRP.Helm.Window (
dimensions, width, height
) where
import Control.Applicative
import Control.Arrow
import FRP.Elerea.Simple
import qualified Graphics.UI.SDL as SDL
dimensions :: SignalGen (Signal (Int, Int))
dimensions = effectful $ (SDL.surfaceGetWidth &&& SDL.surfaceGetHeight) <$> SDL.getVideoSurface
width :: SignalGen (Signal Int)
width = effectful $ SDL.surfaceGetWidth <$> SDL.getVideoSurface
height :: SignalGen (Signal Int)
height = effectful $ SDL.surfaceGetHeight <$> SDL.getVideoSurface