module FRP.Spice.Engine (startEngine) where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLFW as GLFW
import Data.IORef
import FRP.Spice.Engine.RunInput
import FRP.Spice.Engine.Network
import FRP.Spice.Engine.Driver
import FRP.Spice.Input.Backend
import FRP.Spice.Config
import FRP.Spice.Game
import FRP.Spice.Math
makeSize :: WindowConfig -> Size
makeSize wc = Size (fromIntegral $ getWindowWidth wc) (fromIntegral $ getWindowHeight wc)
makeDisplayBits :: [DisplayBits]
makeDisplayBits = [DisplayRGBBits 8 8 8, DisplayAlphaBits 8, DisplayDepthBits 24]
makeWindowMode :: WindowConfig -> WindowMode
makeWindowMode wc =
if getWindowFullscreen wc
then FullScreen
else Window
resizeCallback :: IORef (Vector Int) -> WindowSizeCallback
resizeCallback wSize size@(Size w h) = do
writeIORef wSize $ Vector (fromIntegral w) (fromIntegral h)
viewport $= (Position 0 0, size)
startEngine :: Game a => WindowConfig -> a -> IO ()
startEngine wc game = do
initialize
openWindow (makeSize wc) makeDisplayBits (makeWindowMode wc)
windowTitle $= getWindowTitle wc
closed <- newIORef False
windowCloseCallback $= do
writeIORef closed True
return True
wSizeRef <- newIORef $ Vector (getWindowWidth wc) (getWindowHeight wc)
windowSizeCallback $= resizeCallback wSizeRef
ic <- makeInputContainer
mousePosCallback $= makeMousePositionCallback ic wSizeRef
keyCallback $= makeKeyboardCallback ic
mouseButtonCallback $= makeMouseCallback ic
network <- makeNetwork (getInput ic) game
GLFW.time $= 0
driveNetwork network $ runInput closed
closeWindow