render functie
This commit is contained in:
parent
198a716565
commit
dd666a84e4
1 changed files with 6 additions and 4 deletions
10
src/Main.hs
10
src/Main.hs
|
@ -207,7 +207,7 @@ renderColoredSquare size c = color c $ rectangleSolid s s
|
|||
-- Render de selector.
|
||||
-- TODO unfinished
|
||||
renderSelector :: Coordinate -> Picture
|
||||
renderSelector coord = undefined
|
||||
renderSelector coord = blank
|
||||
|
||||
-- Render een kaart.
|
||||
-- TODO Klopt deze functionaliteit?
|
||||
|
@ -221,9 +221,11 @@ renderCards :: [Card] -> Picture
|
|||
renderCards = renderCard . head
|
||||
|
||||
-- Render het speelveld.
|
||||
-- TODO Klopt deze functionaliteit?
|
||||
render :: Board -> Picture
|
||||
render board = rectangleSolid 300.0 150.0
|
||||
render board = pictures [
|
||||
renderCards $ cards board
|
||||
, renderSelector $ selector board
|
||||
]
|
||||
|
||||
-- Hulpfunctie die nagaat of een bepaalde toets is ingedrukt.
|
||||
isKey :: SpecialKey -> Event -> Bool
|
||||
|
@ -232,7 +234,7 @@ isKey _ _ = False
|
|||
|
||||
-- Handel alle toetsaanslagen af.
|
||||
-- Hint: Je kan gebruikmaken van de isKey hulpfunctie.
|
||||
-- TODO Klopt deze functionaliteit?
|
||||
-- TODO unfinished
|
||||
handleInput :: Event -> Board -> Board
|
||||
handleInput ev board = board
|
||||
|
||||
|
|
Reference in a new issue