21 lines
No EOL
668 B
Haskell
21 lines
No EOL
668 B
Haskell
module RPGEngine.Render.Paused
|
|
( renderPaused
|
|
) where
|
|
|
|
import RPGEngine.Render.Core ( Renderer, overlay )
|
|
|
|
import RPGEngine.Data ( State (..) )
|
|
import Graphics.Gloss ( pictures, scale, text )
|
|
import RPGEngine.Render.Playing ( renderPlaying )
|
|
import Graphics.Gloss.Data.Picture (color)
|
|
import Graphics.Gloss.Data.Color (white)
|
|
|
|
------------------------------ Exported ------------------------------
|
|
|
|
renderPaused :: Renderer State
|
|
renderPaused state = pictures [playing, pause]
|
|
where playing = renderPlaying $ continue state
|
|
pause = pictures [
|
|
overlay,
|
|
color white $ scale 0.5 0.5 $ text "[Press any key to continue]"
|
|
] |