19 lines
460 B
Haskell
19 lines
460 B
Haskell
-- 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
|