module RPGEngine.Render.Menu
( renderMenu
) where

import RPGEngine.Render.Core (Renderer, getRender)

import RPGEngine.Config ( uizoom, textColor )
import RPGEngine.Data (State)

import Graphics.Gloss (text, scale, color, translate, pictures)

------------------------------ Constants -----------------------------

message :: String
message = "[Press any key to start]"

------------------------------ Exported ------------------------------

renderMenu :: Renderer State
renderMenu _ = pictures [main, pressAny]
    where pressAny = scaled $ center $ color textColor $ text message
          scaled   = scale uizoom uizoom
          center   = translate (-800) (-320)
          main     = getRender "main"