Ready for takeoff

lib/RPGEngine.hs

@@ -0,0 +1,39 @@
+-- Allows to play a game using RPGEngine.
+-- Includes all logic and rendering.
+
+module RPGEngine
+( playRPGEngine
+) where
+
+import Game
+import RenderGame
+import Graphics.Gloss (
+    Color(..)
+    , black
+    , play
+    )
+
+----------------------------- Constants ------------------------------
+
+-- Dimensions for main window
+winDimensions :: (Int, Int)
+winDimensions = (1280, 720)
+
+-- Offsets for main window
+winOffsets :: (Int, Int)
+winOffsets = (0, 0)
+
+-- Game background color
+bgColor :: Color
+bgColor = black
+
+----------------------------------------------------------------------
+
+-- This is the gameloop.
+-- It can receive input and update itself. It is rendered by a renderer.
+playRPGEngine :: String -> Int -> IO()
+playRPGEngine title fps = do 
+    play window bgColor fps initGame render handleInputs step
+    where window           = initWindow title winDimensions winOffsets
+          step         _ g = g -- TODO Do something with step?
+          handleInputs _ g = g -- TODO Implement inputHanlders