11 lines
298 B
Haskell
11 lines
298 B
Haskell
module RPGEngine.Render.Player
|
|
( renderPlayer
|
|
) where
|
|
|
|
import RPGEngine.Data (Player(..))
|
|
|
|
import Graphics.Gloss (Picture, text)
|
|
import RPGEngine.Render.Core (getRender, setRenderPos)
|
|
|
|
renderPlayer :: Player -> Picture
|
|
renderPlayer Player{ coord = (x, y) } = setRenderPos x y $ getRender "player"
|