From 26f09bf1e8827dabee742e4faafce7b51246bba4 Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@telenet.be>
Date: Sun, 16 Oct 2022 00:00:11 +0200
Subject: [PATCH] Fix renderSelector

Geen translatie incalculeren met het Gloss systeem
---
 src/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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