Fix renderSelector

Geen translatie incalculeren met het Gloss systeem

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