1
Fork 0

render functie

This commit is contained in:
Tibo De Peuter 2022-10-15 19:49:05 +02:00
parent 198a716565
commit dd666a84e4

View file

@ -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