module RPGEngine.Render.Paused
( renderPaused
) where

import RPGEngine.Render.Core ( Renderer, overlay )

import RPGEngine.Data ( Game )
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 Game
renderPaused g = pictures [renderPlaying g, pause]
    where pause = pictures [
            overlay,
            color white $ scale 0.5 0.5 $ text "[Press any key to continue]"
            ]