#9 Added level selection render

lib/RPGEngine/Render/LvlSelect.hs

@@ -0,0 +1,15 @@
+module RPGEngine.Render.LvlSelect
+( renderLvlList
+) where
+
+import Graphics.Gloss ( Picture, pictures, translate, scale )
+import Graphics.Gloss.Data.Picture (blank, text)
+import RPGEngine.Render.Core (resolution, zoom)
+
+-- Render all level names, under each other.
+renderLvlList :: [FilePath] -> Picture
+renderLvlList list = pictures $ map render entries
+    where entries           = zip [0::Int .. ] list
+          render  (i, path) = scale zoomed zoomed $ translate 0 (offset i) $ text path
+          zoomed            = 0.1 * zoom
+          offset  i         = negate (2 * resolution * zoom * fromIntegral i)