From 7efc16fabca65c6eda30f8f40c89f0c30a80f206 Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@telenet.be>
Date: Sat, 15 Oct 2022 22:02:53 +0200
Subject: [PATCH] Rendering

---
 src/Main.hs | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 816f11b..a69b8a5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -194,15 +194,19 @@ nextBoard b@Board{ turned = [c1, c2] } = resetTurned b
 
 -- Zet een positie op het bord om naar een positie op het scherm.
 -- Hint: hou zeker rekening met het coordinatensysteem van Gloss.
--- TODO unfinished
+-- 0: x-axis, 1: y-axis
+-- Linksonderaan is (0,0) voor Card.Coordinate,
+-- (-(x/2),-(y/2)) voor as van lengte x en y in Gloss.
 convert :: Int -> Int -> Float
-convert location axis = fromIntegral location
+convert location axis = car + inset
+    where car   = (-(fromIntegral axis / 2.0) + fromIntegral location) * fromIntegral scaling
+          inset = fromIntegral ((-(axis `div` 2) + location) * cardInset)
 
 -- Render een vierkant met een gegeven kleur en grootte.
 -- TODO Klopt deze functionaliteit?
 renderColoredSquare :: Int -> Color -> Picture
-renderColoredSquare size c = color c $ rectangleSolid s s
-    where s = fromIntegral size
+renderColoredSquare size c = color c $ rectangleSolid x x
+    where x = fromIntegral size
 
 -- Render de selector.
 -- TODO unfinished
@@ -210,10 +214,8 @@ renderSelector :: Coordinate -> Picture
 renderSelector coord = blank
 
 -- Render een kaart.
--- TODO Klopt deze functionaliteit?
 renderCard :: Card -> Picture
-renderCard card = renderColoredSquare scaling color
-    where color = (\(_,c,_) -> c) card
+renderCard ((x,y),color,status) = translate (convert x width) (convert y height) $ renderColoredSquare scaling color
 
 -- Render alle kaarten.
 renderCards :: [Card] -> Picture