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

Fix bord in het midden van het scherm

Browse source
This commit is contained in:
Tibo De Peuter 2022-10-16 12:00:19 +02:00
parent e3fbb06443
commit 747ed6ea67
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Main.hs
View file

@ -38,11 +38,11 @@ data Board = Board {
-- Aantal kaarten op de x-as. -- Aantal kaarten op de x-as.
width :: Int width :: Int
width = 4 width = 3
-- Aantal kaarten op de y-as. -- Aantal kaarten op de y-as.
height :: Int height :: Int
height = 4 height = 3
-- De grootte van een kaart. -- De grootte van een kaart.
scaling :: Int scaling :: Int
@ -118,7 +118,6 @@ generateColors n = map (generateColor.fromIntegral.(div 360 n *)) [1..n]
-- Genereer een lijst van n kaarten (n/2 kleurenparen). -- Genereer een lijst van n kaarten (n/2 kleurenparen).
generateShuffledCards :: Int -> [Card] generateShuffledCards :: Int -> [Card]
-- TODO Dit moet nog verder uitgeklaard worden !!
generateShuffledCards n = map (\(x,y) -> (x,y,Hidden)) $ zip (genCoords n) colors generateShuffledCards n = map (\(x,y) -> (x,y,Hidden)) $ zip (genCoords n) colors
where colors = shuffleList $ colorsOnce ++ colorsOnce where colors = shuffleList $ colorsOnce ++ colorsOnce
colorsOnce = generateColors (n `div` 2) colorsOnce = generateColors (n `div` 2)
@ -197,7 +196,7 @@ nextBoard b@Board{ turned = [c1, c2] }
-- Linksonderaan is (0,0) voor Card.Coordinate, -- Linksonderaan is (0,0) voor Card.Coordinate,
-- (-(x/2),-(y/2)) voor as van lengte x en y in Gloss. -- (-(x/2),-(y/2)) voor as van lengte x en y in Gloss.
convert :: Int -> Int -> Float convert :: Int -> Int -> Float
convert location axis = car + inset convert location axis = car + inset + fromIntegral scaling / 2
where car = (-(fromIntegral axis / 2.0) + fromIntegral location) * fromIntegral scaling where car = (-(fromIntegral axis / 2.0) + fromIntegral location) * fromIntegral scaling
inset = fromIntegral ((-(axis `div` 2) + location) * cardInset) inset = fromIntegral ((-(axis `div` 2) + location) * cardInset)