#9 Added level selection render

lib/RPGEngine/Render/Core.hs

@@ -1,6 +1,6 @@
 module RPGEngine.Render.Core where
 
-import Graphics.Gloss ( Picture, translate )
+import Graphics.Gloss ( Picture, translate, pictures )
 import GHC.IO (unsafePerformIO)
 import Graphics.Gloss.Juicy (loadJuicyPNG)
 import Data.Maybe (fromJust)
@@ -21,7 +21,7 @@ assetsFolder :: FilePath
 assetsFolder = "assets/"
 
 unknownImage :: FilePath
-unknownImage = "unkown.png"
+unknownImage = "unknown.png"
 
 allEntities :: [(String, FilePath)]
 allEntities = [
@@ -32,6 +32,7 @@ allEntities = [
 allEnvironment :: [(String, FilePath)]
 allEnvironment = [
     ("void",     "void.png"),
+    ("overlay",  "overlay.png"),
     ("tile",     "tile.png"),
     ("wall",     "wall.png"),
     ("entrance", "entrance.png"),
@@ -47,7 +48,7 @@ allItems = [
 -- Map of all renders
 library :: [(String, Picture)]
 library = unknown:entities ++ environment ++ gui ++ items
-    where unknown     = ("unkown", renderPNG (assetsFolder ++ unknownImage))
+    where unknown     = ("unknown", renderPNG (assetsFolder ++ unknownImage))
           entities    = map (\(f, s) -> (f, renderPNG (assetsFolder ++ "entities/" ++ s))) allEntities
           environment = map (\(f, s) -> (f, renderPNG (assetsFolder ++ "environment/" ++ s))) allEnvironment
           gui         = []
@@ -71,4 +72,14 @@ getRender id = get filtered
 setRenderPos :: Int -> Int -> Picture -> Picture
 setRenderPos x y = translate floatX floatY
     where floatX = fromIntegral x * zoom * resolution
-          floatY = fromIntegral y * zoom * resolution
+          floatY = fromIntegral y * zoom * resolution
+
+overlay :: Picture
+overlay = setRenderPos offX offY $ pictures voids
+    where voids = [setRenderPos x y void | x <- [0 .. width], y <- [0 .. height]]
+          void  = getRender "overlay"
+          intZoom = round zoom :: Int
+          height = round $ 4320 / resolution / zoom
+          width  = round $ 7680 / resolution / zoom
+          offX   = negate (width `div` 2)
+          offY   = negate (height `div` 2)

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)

lib/RPGEngine/Render/Player.hs

@@ -1,11 +1,17 @@
 module RPGEngine.Render.Player 
 ( renderPlayer
+, focusPlayer
 ) where
 
-import RPGEngine.Data (Player(..))
-
+import RPGEngine.Data (Player(..), Game(..))
 import Graphics.Gloss (Picture, text)
-import RPGEngine.Render.Core (getRender, setRenderPos)
+import RPGEngine.Render.Core (getRender, setRenderPos, zoom, resolution)
+import Graphics.Gloss.Data.Picture (translate)
 
 renderPlayer :: Player -> Picture
-renderPlayer Player{ position = (x, y) } = setRenderPos x y $ getRender "player"
+renderPlayer Player{ position = (x, y) } = setRenderPos x y $ getRender "player"
+
+focusPlayer :: Game -> Picture -> Picture
+focusPlayer Game{ player = Player{ position = (x, y)}} = translate centerX centerY
+    where centerX = resolution * zoom * fromIntegral (negate x)
+          centerY = resolution * zoom * fromIntegral (negate y)