17 lines
No EOL
491 B
Haskell
17 lines
No EOL
491 B
Haskell
module RPGEngine.Render.Menu
|
|
( renderMenu
|
|
) where
|
|
|
|
import RPGEngine.Render.Core (Renderer)
|
|
|
|
import RPGEngine.Config ( uizoom, textColor )
|
|
import RPGEngine.Data (State)
|
|
|
|
import Graphics.Gloss (text, scale, color, white, translate)
|
|
|
|
------------------------------ Exported ------------------------------
|
|
|
|
renderMenu :: Renderer State
|
|
renderMenu _ = scaled $ center $ color textColor $ text "[Press any key to start]"
|
|
where scaled = scale uizoom uizoom
|
|
center = translate (-750) 0 |