Restructuring, #9

lib/RPGEngine/Render/LevelSelection.hs

@@ -0,0 +1,33 @@
+module RPGEngine.Render.LevelSelection
+( renderLevelSelection
+) where
+
+import RPGEngine.Config ( resolution, zoom )
+import RPGEngine.Data ( Game (..), State (..) )
+import RPGEngine.Data.Level ( getLevelList )
+import RPGEngine.Render.Core ( Renderer )
+
+import Graphics.Gloss
+    ( pictures, text, translate, blank, Picture, color )
+import Graphics.Gloss.Data.Picture (scale)
+import RPGEngine.Input.Core (ListSelector (..))
+import Graphics.Gloss.Data.Color (red)
+
+------------------------------ Exported ------------------------------
+
+renderLevelSelection :: Renderer Game
+renderLevelSelection Game{ state = state } = result
+    where result = renderLevelList state
+
+----------------------------------------------------------------------
+
+renderLevelList :: Renderer State
+renderLevelList LevelSelection{ levelList = list, selector = selector } = everything
+    where everything       = pictures $ map render entries
+          sel              = selection selector
+          entries          = zip [0::Int .. ] list
+          render (i, path) | i == sel  = color red $ scale zoomed zoomed $ translate 0 (offset i) $ text path
+                           | otherwise = scale zoomed zoomed $ translate 0 (offset i) $ text path
+          zoomed           = 0.1 * zoom
+          offset i         = negate (2 * resolution * zoom * fromIntegral i)
+renderLevelList _ = blank