tdpeuter/2022FuncProg-project1-memory
tdpeuter/2022FuncProg-project1-memory
Archived
1
Fork 0
Code Pull requests Activity

render functie

Browse source
This commit is contained in:
Tibo De Peuter 2022-10-15 19:49:05 +02:00
parent 198a716565
commit dd666a84e4
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Main.hs
View file

@ -207,7 +207,7 @@ renderColoredSquare size c = color c $ rectangleSolid s s
-- Render de selector. -- Render de selector.
-- TODO unfinished -- TODO unfinished
renderSelector :: Coordinate -> Picture renderSelector :: Coordinate -> Picture
renderSelector coord = undefined renderSelector coord = blank
-- Render een kaart. -- Render een kaart.
-- TODO Klopt deze functionaliteit? -- TODO Klopt deze functionaliteit?
@ -221,9 +221,11 @@ renderCards :: [Card] -> Picture
renderCards = renderCard . head renderCards = renderCard . head
-- Render het speelveld. -- Render het speelveld.
-- TODO Klopt deze functionaliteit?
render :: Board -> Picture 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. -- Hulpfunctie die nagaat of een bepaalde toets is ingedrukt.
isKey :: SpecialKey -> Event -> Bool isKey :: SpecialKey -> Event -> Bool
@ -232,7 +234,7 @@ isKey _ _ = False
-- Handel alle toetsaanslagen af. -- Handel alle toetsaanslagen af.
-- Hint: Je kan gebruikmaken van de isKey hulpfunctie. -- Hint: Je kan gebruikmaken van de isKey hulpfunctie.
-- TODO Klopt deze functionaliteit? -- TODO unfinished
handleInput :: Event -> Board -> Board handleInput :: Event -> Board -> Board
handleInput ev board = board handleInput ev board = board