54 lines
No EOL
1.3 KiB
Haskell
54 lines
No EOL
1.3 KiB
Haskell
-- Allows to render the played game
|
|
|
|
module RPGEngine.Render
|
|
( initWindow
|
|
, bgColor
|
|
|
|
, render
|
|
) where
|
|
|
|
import RPGEngine.Internals.Data.Game(Game(..))
|
|
import RPGEngine.Internals.Data.State(State(..))
|
|
import Graphics.Gloss
|
|
|
|
----------------------------- Constants ------------------------------
|
|
|
|
-- Game background color
|
|
bgColor :: Color
|
|
bgColor = white
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
-- Initialize a window to play in
|
|
initWindow :: String -> (Int, Int) -> (Int, Int) -> Display
|
|
initWindow = InWindow
|
|
|
|
-- Render the game
|
|
render :: Game -> Picture
|
|
render g@Game{ state = Menu } = renderMenu g
|
|
render g@Game{ state = Playing } = renderPlaying g
|
|
render g@Game{ state = Pause } = renderPause g
|
|
render g@Game{ state = Win } = renderWin g
|
|
render g@Game{ state = Lose } = renderLose g
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
-- TODO
|
|
renderMenu :: Game -> Picture
|
|
renderMenu _ = text "[Press any key to start]"
|
|
|
|
-- TODO
|
|
renderPlaying :: Game -> Picture
|
|
renderPlaying _ = text "Playing"
|
|
|
|
-- TODO
|
|
renderPause :: Game -> Picture
|
|
renderPause _ = text "[Press any key to continue]"
|
|
|
|
-- TODO
|
|
renderWin :: Game -> Picture
|
|
renderWin _ = text "Win"
|
|
|
|
-- TODO
|
|
renderLose :: Game -> Picture
|
|
renderLose _ = text "Lose" |