module FWGL (
module FWGL.Audio,
module FWGL.Input,
module FWGL.Utils,
module FRP.Yampa,
draw,
run,
run',
Output,
(.>),
io,
) where
import Control.Monad.IO.Class
import FWGL.Audio
import FWGL.Backend
import FWGL.Input
import FWGL.Internal.GL (evalGL)
import FWGL.Graphics.Draw
import FWGL.Graphics.Types
import FWGL.Utils
import FRP.Yampa
newtype Output = Output { drawOutput :: Draw () }
(.>) :: Output -> Output -> Output
Output a .> Output b = Output $ a >> b
draw :: BackendIO => [Layer] -> Output
draw layers = Output $ mapM_ drawLayer layers
io :: IO () -> Output
io = Output . liftIO
run :: BackendIO
=> SF (Input ()) Output
-> IO ()
run = run' $ return ()
run' :: BackendIO
=> IO inp
-> SF (Input inp) Output
-> IO ()
run' customInput sigf = setup initState loop customInput sigf
where initState w h = evalGL $ drawInit w h
loop (Output act) ctx drawState =
flip evalGL ctx . flip execDraw drawState $ do
drawBegin
act
drawEnd