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

Fix renderSelector

Browse source 
Geen translatie incalculeren met het Gloss systeem
This commit is contained in:
Tibo De Peuter 2022-10-16 00:00:11 +02:00
parent 3d0b85b995
commit 26f09bf1e8
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Main.hs
View file

@ -161,6 +161,7 @@ hideCard target = map (changeCard target Hidden)
-- Draai de kaart op een gegeven positie op het bord om -- Draai de kaart op een gegeven positie op het bord om
-- als deze nog niet eerder werd omgedraaid. -- als deze nog niet eerder werd omgedraaid.
-- TODO Hidden/Shown controleren
flipCard :: Coordinate -> Board -> Board flipCard :: Coordinate -> Board -> Board
flipCard target board flipCard target board
| target `elem` (map firstOfThree (turned board)) = board -- Controleer al omgedraaid? | 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 where x = fromIntegral size
-- Render de selector. -- Render de selector.
-- TODO Fix marges
renderSelector :: Coordinate -> Picture renderSelector :: Coordinate -> Picture
renderSelector (x,y) = translate (convert x width + inset) (convert y height + inset) $ renderColoredSquare (scaling + cardInset) black renderSelector (x,y) = translate (convert x width) (convert y height)
where inset = fromIntegral cardInset / fromIntegral 2 $ renderColoredSquare (scaling + cardInset) red
-- Render een kaart. -- Render een kaart.
renderCard :: Card -> Picture renderCard :: Card -> Picture