module RPGEngine.Render.Paused
( renderPaused
) where

import RPGEngine.Render.Core (Renderer, overlay)

import RPGEngine.Data (State(..))
import RPGEngine.Render.Playing (renderPlaying)

import Graphics.Gloss (pictures, white, color, Color(..), text, scale)

------------------------------ 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]"
            ]