module FRP.Spice.Engine where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLFW as GLFW
import FRP.Elerea.Param
import Data.IORef
import FRP.Spice.Engine.RunInput
import FRP.Spice.Engine.Network
import FRP.Spice.Engine.Driver
import FRP.Spice.Config
import FRP.Spice.Input
import FRP.Spice.Game
startEngine :: Game a => WindowConfig -> a -> IO ()
startEngine wc game = do
initialize
openWindow (Size 640 480) [DisplayRGBBits 8 8 8, DisplayAlphaBits 8, DisplayDepthBits 24] Window
closed <- newIORef False
windowCloseCallback $= do
writeIORef closed True
return True
(gameSignal, gameSink) <- external game
ic <- makeInputContainer
mousePosCallback $= makeMousePositionCallback ic
keyCallback $= makeKeyboardCallback ic
mouseButtonCallback $= makeMouseCallback ic
network <- makeNetwork (getInput ic) gameSignal gameSink
GLFW.time $= 0
driveNetwork network $ runInput closed
closeWindow