diff --git a/src/Main.hs b/src/Main.hs index 64a5a65..709d268 100644 --- a/src/Main.hs +++ b/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