19 lines
432 B
Haskell
19 lines
432 B
Haskell
|
module Rendering where
|
||
|
|
||
|
import Graphics.Vty
|
||
|
import Dungeon
|
||
|
import Game
|
||
|
import Player
|
||
|
|
||
|
renderGame :: Game -> Picture
|
||
|
renderGame g = picForLayers
|
||
|
[ playerToImg (getPlayer g)
|
||
|
, dungeonToImg (getDungeon g)
|
||
|
]
|
||
|
|
||
|
dungeonToImg :: Dungeon -> Image
|
||
|
dungeonToImg = vertCat . map (string defAttr . concatMap show) . dungeonToLists
|
||
|
|
||
|
playerToImg :: Player -> Image
|
||
|
playerToImg (Player (x,y)) = translateX x . translateY y $ char defAttr '@'
|