module Color
( Color(..)
, convertColor
)
where
data Color
= White
| Black
| Transparent
| Red
| Green
| Blue
| Yellow
| Cyan
| Magenta
| Rose
| Violet
| Azure
| Aquamarine
| Chartreuse
| Orange
| RGBA String
deriving (Show, Eq)
convertColor :: Color -> String
convertColor color = case (color) of
White -> "white"
Black -> "black"
Transparent -> "#00000000"
Red -> "red"
Green -> "green"
Blue -> "blue"
Yellow -> "yellow"
Cyan -> "#00FFFF"
Magenta -> "#FF00FF"
Rose -> "#FF007F"
Violet -> "#EE82EE"
Azure -> "#007FFF"
Chartreuse -> "#7FFF00"
Orange -> "#FFA500"
(RGBA string) -> string