91 lines
No EOL
3.2 KiB
Haskell
91 lines
No EOL
3.2 KiB
Haskell
module RPGEngine.Render.Playing
|
|
( renderPlaying
|
|
) where
|
|
|
|
import RPGEngine.Render.Core ( Renderer, getRender, setRenderPos )
|
|
|
|
import RPGEngine.Data
|
|
( Player(..),
|
|
Entity(..),
|
|
Item(..),
|
|
Physical(..),
|
|
Layout,
|
|
Level(..),
|
|
State(..),
|
|
Game(..) )
|
|
import Graphics.Gloss ( Picture, pictures )
|
|
import Graphics.Gloss.Data.Picture (translate)
|
|
import RPGEngine.Config (resolution, zoom)
|
|
|
|
------------------------------ Exported ------------------------------
|
|
|
|
renderPlaying :: Renderer Game
|
|
renderPlaying g@Game{ state = Playing { level = lvl }, player = player } = pictures [
|
|
renderLevel lvl,
|
|
renderPlayer player
|
|
]
|
|
|
|
------------------------------- Player -------------------------------
|
|
|
|
renderPlayer :: Renderer Player
|
|
renderPlayer Player{ position = (x, y) } = move picture
|
|
where move = setRenderPos x y
|
|
picture = getRender "player"
|
|
|
|
-- Center the player in the middle of the screen.
|
|
-- Not in use at the moment, might be useful later.
|
|
focusPlayer :: Game -> Picture -> Picture
|
|
focusPlayer Game{ player = Player{ position = (x, y)}} = move
|
|
where move = translate centerX centerY
|
|
centerX = resolution * zoom * fromIntegral (negate x)
|
|
centerY = resolution * zoom * fromIntegral (negate y)
|
|
|
|
------------------------------- Level --------------------------------
|
|
|
|
renderLevel :: Renderer Level
|
|
renderLevel Level{ layout = l, items = i, entities = e } = level
|
|
where level = pictures [void, layout, items, entities]
|
|
void = createVoid
|
|
layout = renderLayout l
|
|
items = renderItems i
|
|
entities = renderEntities e
|
|
|
|
renderLayout :: Layout -> Picture
|
|
renderLayout strips = pictures [setRenderPos 0 y (renderStrip (strips !! y)) | y <- [0 .. count]]
|
|
where count = length strips - 1
|
|
|
|
renderStrip :: [Physical] -> Picture
|
|
renderStrip list = pictures physicals
|
|
where physicals = [setRenderPos x 0 (image (list !! x)) | x <- [0 .. count]]
|
|
image Void = getRender "void"
|
|
image Walkable = getRender "tile"
|
|
image Blocked = getRender "wall"
|
|
image Entrance = pictures [getRender "tile", getRender "entrance"]
|
|
image Exit = pictures [getRender "tile", getRender "exit"]
|
|
count = length list - 1
|
|
|
|
createVoid :: Picture
|
|
createVoid = setRenderPos offX offY $ pictures voids
|
|
where voids = [setRenderPos x y void | x <- [0 .. width], y <- [0 .. height]]
|
|
void = getRender "void"
|
|
intZoom = round zoom :: Int
|
|
height = round $ 4320 / resolution / zoom
|
|
width = round $ 7680 / resolution / zoom
|
|
offX = negate (width `div` 2)
|
|
offY = negate (height `div` 2)
|
|
|
|
-------------------------- Items & Entities --------------------------
|
|
|
|
renderItems :: [Item] -> Picture
|
|
renderItems list = pictures $ map renderItem list
|
|
|
|
renderItem :: Item -> Picture
|
|
renderItem Item{ itemId = id, itemX = x, itemY = y} = setRenderPos x y image
|
|
where image = getRender id
|
|
|
|
renderEntities :: [Entity] -> Picture
|
|
renderEntities list = pictures $ map renderEntity list
|
|
|
|
renderEntity :: Entity -> Picture
|
|
renderEntity Entity{ entityId = id, entityX = x, entityY = y} = setRenderPos x y image
|
|
where image = getRender id |