From becd305e01695226e66d920c4681a048272cb689 Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@ugent.be>
Date: Thu, 22 Dec 2022 15:41:47 +0100
Subject: [PATCH] Closes #7

---
 lib/RPGEngine/Config.hs      | 10 +++++++---
 lib/RPGEngine/Render/Menu.hs |  8 +++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/lib/RPGEngine/Config.hs b/lib/RPGEngine/Config.hs
index b752af4..3d4f938 100644
--- a/lib/RPGEngine/Config.hs
+++ b/lib/RPGEngine/Config.hs
@@ -17,13 +17,17 @@ winOffsets = (0, 0)
 
 -- Game background color
 bgColor :: Color
-bgColor = white
+bgColor = makeColor (37 / 256) (19 / 256) (26 / 256) 1
+
+-- Text color
+textColor :: Color
+textColor = white
 
 -- Default scale
 zoom :: Float
-zoom = 5.0
+zoom = 5
 
--- UI scale
+-- UI scale, number between 0 (small) and 1 (big)
 uizoom :: Float
 uizoom = 0.5
 
diff --git a/lib/RPGEngine/Render/Menu.hs b/lib/RPGEngine/Render/Menu.hs
index e5f66d8..473c96c 100644
--- a/lib/RPGEngine/Render/Menu.hs
+++ b/lib/RPGEngine/Render/Menu.hs
@@ -4,12 +4,14 @@ module RPGEngine.Render.Menu
 
 import RPGEngine.Render.Core (Renderer)
 
+import RPGEngine.Config ( uizoom, textColor )
 import RPGEngine.Data (State)
 
-import Graphics.Gloss (text)
+import Graphics.Gloss (text, scale, color, white, translate)
 
 ------------------------------ Exported ------------------------------
 
--- TODO
 renderMenu :: Renderer State
-renderMenu _ = text "[Press any key to start]"
\ No newline at end of file
+renderMenu _ = scaled $ center $ color textColor $ text "[Press any key to start]"
+    where scaled = scale uizoom uizoom
+          center = translate (-750) 0
\ No newline at end of file