tdpeuter/2022FuncProg-project2-patience
tdpeuter/2022FuncProg-project2-patience
Archived
1
Fork 0
Code Activity

#3 Polished CardRenderer

Browse source
This commit is contained in:
Tibo De Peuter 2022-11-15 22:53:33 +01:00
parent 9bb31d9673
commit cc20b3a5e6
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/CardRenderer.hs
View file

@ -71,6 +71,7 @@ renderStacks stackDist cardDist = compose . spreadOutStacks
where renderedStacks = map (renderStack cardDist) where renderedStacks = map (renderStack cardDist)
spreadOutStacks = spread (stackDist + cardWidth) 0 . renderedStacks spreadOutStacks = spread (stackDist + cardWidth) 0 . renderedStacks
-- Convert a CardType to a string.
cardTypeToString :: CardType -> [Char] cardTypeToString :: CardType -> [Char]
cardTypeToString Clubs = "club" cardTypeToString Clubs = "club"
cardTypeToString Diamonds = "diamond" cardTypeToString Diamonds = "diamond"
@ -78,6 +79,7 @@ cardTypeToString Hearts = "heart"
cardTypeToString Spades = "spade" cardTypeToString Spades = "spade"
cardTypeToString _ = "" cardTypeToString _ = ""
-- Convert a CardType to a character.
cardTypeToChar :: CardValue -> [Char] cardTypeToChar :: CardValue -> [Char]
cardTypeToChar Ace = "A" cardTypeToChar Ace = "A"
cardTypeToChar Jack = "J" cardTypeToChar Jack = "J"