diff --git a/src/Main.hs b/src/Main.hs index ba12a28..d96fc79 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -161,6 +161,7 @@ hideCard target = map (changeCard target Hidden) -- Draai de kaart op een gegeven positie op het bord om -- als deze nog niet eerder werd omgedraaid. +-- TODO Hidden/Shown controleren flipCard :: Coordinate -> Board -> Board flipCard target board | target `elem` (map firstOfThree (turned board)) = board -- Controleer al omgedraaid? @@ -206,10 +207,9 @@ renderColoredSquare size c = color c $ rectangleSolid x x where x = fromIntegral size -- Render de selector. --- TODO Fix marges renderSelector :: Coordinate -> Picture -renderSelector (x,y) = translate (convert x width + inset) (convert y height + inset) $ renderColoredSquare (scaling + cardInset) black - where inset = fromIntegral cardInset / fromIntegral 2 +renderSelector (x,y) = translate (convert x width) (convert y height) + $ renderColoredSquare (scaling + cardInset) red -- Render een kaart. renderCard :: Card -> Picture