Ready for takeoff

lib/render/RenderGame.hs

@@ -0,0 +1,19 @@
+-- Allows to render the played game
+
+module RenderGame
+( initWindow -- Initialize a window to play in
+, render     -- Rener the game
+) where
+
+import Game
+import Graphics.Gloss
+
+----------------------------------------------------------------------
+
+-- Render the game
+render :: Game -> Picture
+render _ = Blank
+
+-- Initialize a window to play in
+initWindow :: String -> (Int, Int) -> (Int, Int) -> Display
+initWindow title dims offs = InWindow title dims offs