{-# LANGUAGE OverloadedStrings #-}

{- |
   Module      : Data.GraphViz.Attributes.Colors.SVG
   Description : Specification of SVG colors.
   Copyright   : (c) Ivan Lazar Miljenovic
   License     : 3-Clause BSD-style
   Maintainer  : Ivan.Miljenovic@gmail.com

   Graphviz comes with an SVG color scheme:
   <http://www.graphviz.org/doc/info/colors.html#svg>

   However, in general use you probably want to use
   "Data.GraphViz.Attributes.Colors.X11" instead, unless you are only
   generating SVG images.

 -}
module Data.GraphViz.Attributes.Colors.SVG
    ( SVGColor(..)
    , svgColour
    ) where

import Data.GraphViz.Parsing
import Data.GraphViz.Printing

import Data.Colour(Colour)
import Data.Colour.SRGB(sRGB24)

-- -----------------------------------------------------------------------------

-- | The SVG colors that Graphviz uses.  Graphviz's list of colors
--   also duplicated all @*Gray*@ colors with @*Grey*@ ones; parsing
--   of an 'SVGColor' which is specified using \"grey\" will succeed.
data SVGColor = AliceBlue
              | AntiqueWhite
              | Aqua
              | Aquamarine
              | Azure
              | Beige
              | Bisque
              | Black
              | BlanchedAlmond
              | Blue
              | BlueViolet
              | Brown
              | Burlywood
              | CadetBlue
              | Chartreuse
              | Chocolate
              | Coral
              | CornflowerBlue
              | Cornsilk
              | Crimson
              | Cyan
              | DarkBlue
              | DarkCyan
              | DarkGoldenrod
              | DarkGray
              | DarkGreen
              | DarkKhaki
              | DarkMagenta
              | DarkOliveGreen
              | DarkOrange
              | DarkOrchid
              | DarkRed
              | DarkSalmon
              | DarkSeaGreen
              | DarkSlateBlue
              | DarkSlateGray
              | DarkTurquoise
              | DarkViolet
              | DeepPink
              | DeepSkyBlue
              | DimGray
              | DodgerBlue
              | Firebrick
              | FloralWhite
              | ForestGreen
              | Fuchsia
              | Gainsboro
              | GhostWhite
              | Gold
              | Goldenrod
              | Gray
              | Green
              | GreenYellow
              | Honeydew
              | HotPink
              | IndianRed
              | Indigo
              | Ivory
              | Khaki
              | Lavender
              | LavenderBlush
              | LawnGreen
              | LemonChiffon
              | LightBlue
              | LightCoral
              | LightCyan
              | LightGoldenrodYellow
              | LightGray
              | LightGreen
              | LightPink
              | LightSalmon
              | LightSeaGreen
              | LightSkyBlue
              | LightSlateGray
              | LightSteelBlue
              | LightYellow
              | Lime
              | LimeGreen
              | Linen
              | Magenta
              | Maroon
              | MediumAquamarine
              | MediumBlue
              | MediumOrchid
              | MediumPurple
              | MediumSeaGreen
              | MediumSlateBlue
              | MediumSpringGreen
              | MediumTurquoise
              | MediumVioletRed
              | MidnightBlue
              | MintCream
              | MistyRose
              | Moccasin
              | NavajoWhite
              | Navy
              | OldLace
              | Olive
              | OliveDrab
              | Orange
              | OrangeRed
              | Orchid
              | PaleGoldenrod
              | PaleGreen
              | PaleTurquoise
              | PaleVioletRed
              | PapayaWhip
              | PeachPuff
              | Peru
              | Pink
              | Plum
              | PowderBlue
              | Purple
              | Red
              | RosyBrown
              | RoyalBlue
              | SaddleBrown
              | Salmon
              | SandyBrown
              | SeaGreen
              | SeaShell
              | Sienna
              | Silver
              | SkyBlue
              | SlateBlue
              | SlateGray
              | Snow
              | SpringGreen
              | SteelBlue
              | Tan
              | Teal
              | Thistle
              | Tomato
              | Turquoise
              | Violet
              | Wheat
              | White
              | WhiteSmoke
              | Yellow
              | YellowGreen
              deriving (SVGColor -> SVGColor -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SVGColor -> SVGColor -> Bool
$c/= :: SVGColor -> SVGColor -> Bool
== :: SVGColor -> SVGColor -> Bool
$c== :: SVGColor -> SVGColor -> Bool
Eq, Eq SVGColor
SVGColor -> SVGColor -> Bool
SVGColor -> SVGColor -> Ordering
SVGColor -> SVGColor -> SVGColor
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: SVGColor -> SVGColor -> SVGColor
$cmin :: SVGColor -> SVGColor -> SVGColor
max :: SVGColor -> SVGColor -> SVGColor
$cmax :: SVGColor -> SVGColor -> SVGColor
>= :: SVGColor -> SVGColor -> Bool
$c>= :: SVGColor -> SVGColor -> Bool
> :: SVGColor -> SVGColor -> Bool
$c> :: SVGColor -> SVGColor -> Bool
<= :: SVGColor -> SVGColor -> Bool
$c<= :: SVGColor -> SVGColor -> Bool
< :: SVGColor -> SVGColor -> Bool
$c< :: SVGColor -> SVGColor -> Bool
compare :: SVGColor -> SVGColor -> Ordering
$ccompare :: SVGColor -> SVGColor -> Ordering
Ord, SVGColor
forall a. a -> a -> Bounded a
maxBound :: SVGColor
$cmaxBound :: SVGColor
minBound :: SVGColor
$cminBound :: SVGColor
Bounded, Int -> SVGColor
SVGColor -> Int
SVGColor -> [SVGColor]
SVGColor -> SVGColor
SVGColor -> SVGColor -> [SVGColor]
SVGColor -> SVGColor -> SVGColor -> [SVGColor]
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: SVGColor -> SVGColor -> SVGColor -> [SVGColor]
$cenumFromThenTo :: SVGColor -> SVGColor -> SVGColor -> [SVGColor]
enumFromTo :: SVGColor -> SVGColor -> [SVGColor]
$cenumFromTo :: SVGColor -> SVGColor -> [SVGColor]
enumFromThen :: SVGColor -> SVGColor -> [SVGColor]
$cenumFromThen :: SVGColor -> SVGColor -> [SVGColor]
enumFrom :: SVGColor -> [SVGColor]
$cenumFrom :: SVGColor -> [SVGColor]
fromEnum :: SVGColor -> Int
$cfromEnum :: SVGColor -> Int
toEnum :: Int -> SVGColor
$ctoEnum :: Int -> SVGColor
pred :: SVGColor -> SVGColor
$cpred :: SVGColor -> SVGColor
succ :: SVGColor -> SVGColor
$csucc :: SVGColor -> SVGColor
Enum, Int -> SVGColor -> ShowS
[SVGColor] -> ShowS
SVGColor -> [Char]
forall a.
(Int -> a -> ShowS) -> (a -> [Char]) -> ([a] -> ShowS) -> Show a
showList :: [SVGColor] -> ShowS
$cshowList :: [SVGColor] -> ShowS
show :: SVGColor -> [Char]
$cshow :: SVGColor -> [Char]
showsPrec :: Int -> SVGColor -> ShowS
$cshowsPrec :: Int -> SVGColor -> ShowS
Show, ReadPrec [SVGColor]
ReadPrec SVGColor
Int -> ReadS SVGColor
ReadS [SVGColor]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SVGColor]
$creadListPrec :: ReadPrec [SVGColor]
readPrec :: ReadPrec SVGColor
$creadPrec :: ReadPrec SVGColor
readList :: ReadS [SVGColor]
$creadList :: ReadS [SVGColor]
readsPrec :: Int -> ReadS SVGColor
$creadsPrec :: Int -> ReadS SVGColor
Read)

instance PrintDot SVGColor where
  unqtDot :: SVGColor -> DotCode
unqtDot SVGColor
AliceBlue            = Text -> DotCode
unqtText Text
"aliceblue"
  unqtDot SVGColor
AntiqueWhite         = Text -> DotCode
unqtText Text
"antiquewhite"
  unqtDot SVGColor
Aqua                 = Text -> DotCode
unqtText Text
"aqua"
  unqtDot SVGColor
Aquamarine           = Text -> DotCode
unqtText Text
"aquamarine"
  unqtDot SVGColor
Azure                = Text -> DotCode
unqtText Text
"azure"
  unqtDot SVGColor
Beige                = Text -> DotCode
unqtText Text
"beige"
  unqtDot SVGColor
Bisque               = Text -> DotCode
unqtText Text
"bisque"
  unqtDot SVGColor
Black                = Text -> DotCode
unqtText Text
"black"
  unqtDot SVGColor
BlanchedAlmond       = Text -> DotCode
unqtText Text
"blanchedalmond"
  unqtDot SVGColor
Blue                 = Text -> DotCode
unqtText Text
"blue"
  unqtDot SVGColor
BlueViolet           = Text -> DotCode
unqtText Text
"blueviolet"
  unqtDot SVGColor
Brown                = Text -> DotCode
unqtText Text
"brown"
  unqtDot SVGColor
Burlywood            = Text -> DotCode
unqtText Text
"burlywood"
  unqtDot SVGColor
CadetBlue            = Text -> DotCode
unqtText Text
"cadetblue"
  unqtDot SVGColor
Chartreuse           = Text -> DotCode
unqtText Text
"chartreuse"
  unqtDot SVGColor
Chocolate            = Text -> DotCode
unqtText Text
"chocolate"
  unqtDot SVGColor
Coral                = Text -> DotCode
unqtText Text
"coral"
  unqtDot SVGColor
CornflowerBlue       = Text -> DotCode
unqtText Text
"cornflowerblue"
  unqtDot SVGColor
Cornsilk             = Text -> DotCode
unqtText Text
"cornsilk"
  unqtDot SVGColor
Crimson              = Text -> DotCode
unqtText Text
"crimson"
  unqtDot SVGColor
Cyan                 = Text -> DotCode
unqtText Text
"cyan"
  unqtDot SVGColor
DarkBlue             = Text -> DotCode
unqtText Text
"darkblue"
  unqtDot SVGColor
DarkCyan             = Text -> DotCode
unqtText Text
"darkcyan"
  unqtDot SVGColor
DarkGoldenrod        = Text -> DotCode
unqtText Text
"darkgoldenrod"
  unqtDot SVGColor
DarkGray             = Text -> DotCode
unqtText Text
"darkgray"
  unqtDot SVGColor
DarkGreen            = Text -> DotCode
unqtText Text
"darkgreen"
  unqtDot SVGColor
DarkKhaki            = Text -> DotCode
unqtText Text
"darkkhaki"
  unqtDot SVGColor
DarkMagenta          = Text -> DotCode
unqtText Text
"darkmagenta"
  unqtDot SVGColor
DarkOliveGreen       = Text -> DotCode
unqtText Text
"darkolivegreen"
  unqtDot SVGColor
DarkOrange           = Text -> DotCode
unqtText Text
"darkorange"
  unqtDot SVGColor
DarkOrchid           = Text -> DotCode
unqtText Text
"darkorchid"
  unqtDot SVGColor
DarkRed              = Text -> DotCode
unqtText Text
"darkred"
  unqtDot SVGColor
DarkSalmon           = Text -> DotCode
unqtText Text
"darksalmon"
  unqtDot SVGColor
DarkSeaGreen         = Text -> DotCode
unqtText Text
"darkseagreen"
  unqtDot SVGColor
DarkSlateBlue        = Text -> DotCode
unqtText Text
"darkslateblue"
  unqtDot SVGColor
DarkSlateGray        = Text -> DotCode
unqtText Text
"darkslategray"
  unqtDot SVGColor
DarkTurquoise        = Text -> DotCode
unqtText Text
"darkturquoise"
  unqtDot SVGColor
DarkViolet           = Text -> DotCode
unqtText Text
"darkviolet"
  unqtDot SVGColor
DeepPink             = Text -> DotCode
unqtText Text
"deeppink"
  unqtDot SVGColor
DeepSkyBlue          = Text -> DotCode
unqtText Text
"deepskyblue"
  unqtDot SVGColor
DimGray              = Text -> DotCode
unqtText Text
"dimgray"
  unqtDot SVGColor
DodgerBlue           = Text -> DotCode
unqtText Text
"dodgerblue"
  unqtDot SVGColor
Firebrick            = Text -> DotCode
unqtText Text
"firebrick"
  unqtDot SVGColor
FloralWhite          = Text -> DotCode
unqtText Text
"floralwhite"
  unqtDot SVGColor
ForestGreen          = Text -> DotCode
unqtText Text
"forestgreen"
  unqtDot SVGColor
Fuchsia              = Text -> DotCode
unqtText Text
"fuchsia"
  unqtDot SVGColor
Gainsboro            = Text -> DotCode
unqtText Text
"gainsboro"
  unqtDot SVGColor
GhostWhite           = Text -> DotCode
unqtText Text
"ghostwhite"
  unqtDot SVGColor
Gold                 = Text -> DotCode
unqtText Text
"gold"
  unqtDot SVGColor
Goldenrod            = Text -> DotCode
unqtText Text
"goldenrod"
  unqtDot SVGColor
Gray                 = Text -> DotCode
unqtText Text
"gray"
  unqtDot SVGColor
Green                = Text -> DotCode
unqtText Text
"green"
  unqtDot SVGColor
GreenYellow          = Text -> DotCode
unqtText Text
"greenyellow"
  unqtDot SVGColor
Honeydew             = Text -> DotCode
unqtText Text
"honeydew"
  unqtDot SVGColor
HotPink              = Text -> DotCode
unqtText Text
"hotpink"
  unqtDot SVGColor
IndianRed            = Text -> DotCode
unqtText Text
"indianred"
  unqtDot SVGColor
Indigo               = Text -> DotCode
unqtText Text
"indigo"
  unqtDot SVGColor
Ivory                = Text -> DotCode
unqtText Text
"ivory"
  unqtDot SVGColor
Khaki                = Text -> DotCode
unqtText Text
"khaki"
  unqtDot SVGColor
Lavender             = Text -> DotCode
unqtText Text
"lavender"
  unqtDot SVGColor
LavenderBlush        = Text -> DotCode
unqtText Text
"lavenderblush"
  unqtDot SVGColor
LawnGreen            = Text -> DotCode
unqtText Text
"lawngreen"
  unqtDot SVGColor
LemonChiffon         = Text -> DotCode
unqtText Text
"lemonchiffon"
  unqtDot SVGColor
LightBlue            = Text -> DotCode
unqtText Text
"lightblue"
  unqtDot SVGColor
LightCoral           = Text -> DotCode
unqtText Text
"lightcoral"
  unqtDot SVGColor
LightCyan            = Text -> DotCode
unqtText Text
"lightcyan"
  unqtDot SVGColor
LightGoldenrodYellow = Text -> DotCode
unqtText Text
"lightgoldenrodyellow"
  unqtDot SVGColor
LightGray            = Text -> DotCode
unqtText Text
"lightgray"
  unqtDot SVGColor
LightGreen           = Text -> DotCode
unqtText Text
"lightgreen"
  unqtDot SVGColor
LightPink            = Text -> DotCode
unqtText Text
"lightpink"
  unqtDot SVGColor
LightSalmon          = Text -> DotCode
unqtText Text
"lightsalmon"
  unqtDot SVGColor
LightSeaGreen        = Text -> DotCode
unqtText Text
"lightseagreen"
  unqtDot SVGColor
LightSkyBlue         = Text -> DotCode
unqtText Text
"lightskyblue"
  unqtDot SVGColor
LightSlateGray       = Text -> DotCode
unqtText Text
"lightslategray"
  unqtDot SVGColor
LightSteelBlue       = Text -> DotCode
unqtText Text
"lightsteelblue"
  unqtDot SVGColor
LightYellow          = Text -> DotCode
unqtText Text
"lightyellow"
  unqtDot SVGColor
Lime                 = Text -> DotCode
unqtText Text
"lime"
  unqtDot SVGColor
LimeGreen            = Text -> DotCode
unqtText Text
"limegreen"
  unqtDot SVGColor
Linen                = Text -> DotCode
unqtText Text
"linen"
  unqtDot SVGColor
Magenta              = Text -> DotCode
unqtText Text
"magenta"
  unqtDot SVGColor
Maroon               = Text -> DotCode
unqtText Text
"maroon"
  unqtDot SVGColor
MediumAquamarine     = Text -> DotCode
unqtText Text
"mediumaquamarine"
  unqtDot SVGColor
MediumBlue           = Text -> DotCode
unqtText Text
"mediumblue"
  unqtDot SVGColor
MediumOrchid         = Text -> DotCode
unqtText Text
"mediumorchid"
  unqtDot SVGColor
MediumPurple         = Text -> DotCode
unqtText Text
"mediumpurple"
  unqtDot SVGColor
MediumSeaGreen       = Text -> DotCode
unqtText Text
"mediumseagreen"
  unqtDot SVGColor
MediumSlateBlue      = Text -> DotCode
unqtText Text
"mediumslateblue"
  unqtDot SVGColor
MediumSpringGreen    = Text -> DotCode
unqtText Text
"mediumspringgreen"
  unqtDot SVGColor
MediumTurquoise      = Text -> DotCode
unqtText Text
"mediumturquoise"
  unqtDot SVGColor
MediumVioletRed      = Text -> DotCode
unqtText Text
"mediumvioletred"
  unqtDot SVGColor
MidnightBlue         = Text -> DotCode
unqtText Text
"midnightblue"
  unqtDot SVGColor
MintCream            = Text -> DotCode
unqtText Text
"mintcream"
  unqtDot SVGColor
MistyRose            = Text -> DotCode
unqtText Text
"mistyrose"
  unqtDot SVGColor
Moccasin             = Text -> DotCode
unqtText Text
"moccasin"
  unqtDot SVGColor
NavajoWhite          = Text -> DotCode
unqtText Text
"navajowhite"
  unqtDot SVGColor
Navy                 = Text -> DotCode
unqtText Text
"navy"
  unqtDot SVGColor
OldLace              = Text -> DotCode
unqtText Text
"oldlace"
  unqtDot SVGColor
Olive                = Text -> DotCode
unqtText Text
"olive"
  unqtDot SVGColor
OliveDrab            = Text -> DotCode
unqtText Text
"olivedrab"
  unqtDot SVGColor
Orange               = Text -> DotCode
unqtText Text
"orange"
  unqtDot SVGColor
OrangeRed            = Text -> DotCode
unqtText Text
"orangered"
  unqtDot SVGColor
Orchid               = Text -> DotCode
unqtText Text
"orchid"
  unqtDot SVGColor
PaleGoldenrod        = Text -> DotCode
unqtText Text
"palegoldenrod"
  unqtDot SVGColor
PaleGreen            = Text -> DotCode
unqtText Text
"palegreen"
  unqtDot SVGColor
PaleTurquoise        = Text -> DotCode
unqtText Text
"paleturquoise"
  unqtDot SVGColor
PaleVioletRed        = Text -> DotCode
unqtText Text
"palevioletred"
  unqtDot SVGColor
PapayaWhip           = Text -> DotCode
unqtText Text
"papayawhip"
  unqtDot SVGColor
PeachPuff            = Text -> DotCode
unqtText Text
"peachpuff"
  unqtDot SVGColor
Peru                 = Text -> DotCode
unqtText Text
"peru"
  unqtDot SVGColor
Pink                 = Text -> DotCode
unqtText Text
"pink"
  unqtDot SVGColor
Plum                 = Text -> DotCode
unqtText Text
"plum"
  unqtDot SVGColor
PowderBlue           = Text -> DotCode
unqtText Text
"powderblue"
  unqtDot SVGColor
Purple               = Text -> DotCode
unqtText Text
"purple"
  unqtDot SVGColor
Red                  = Text -> DotCode
unqtText Text
"red"
  unqtDot SVGColor
RosyBrown            = Text -> DotCode
unqtText Text
"rosybrown"
  unqtDot SVGColor
RoyalBlue            = Text -> DotCode
unqtText Text
"royalblue"
  unqtDot SVGColor
SaddleBrown          = Text -> DotCode
unqtText Text
"saddlebrown"
  unqtDot SVGColor
Salmon               = Text -> DotCode
unqtText Text
"salmon"
  unqtDot SVGColor
SandyBrown           = Text -> DotCode
unqtText Text
"sandybrown"
  unqtDot SVGColor
SeaGreen             = Text -> DotCode
unqtText Text
"seagreen"
  unqtDot SVGColor
SeaShell             = Text -> DotCode
unqtText Text
"seashell"
  unqtDot SVGColor
Sienna               = Text -> DotCode
unqtText Text
"sienna"
  unqtDot SVGColor
Silver               = Text -> DotCode
unqtText Text
"silver"
  unqtDot SVGColor
SkyBlue              = Text -> DotCode
unqtText Text
"skyblue"
  unqtDot SVGColor
SlateBlue            = Text -> DotCode
unqtText Text
"slateblue"
  unqtDot SVGColor
SlateGray            = Text -> DotCode
unqtText Text
"slategray"
  unqtDot SVGColor
Snow                 = Text -> DotCode
unqtText Text
"snow"
  unqtDot SVGColor
SpringGreen          = Text -> DotCode
unqtText Text
"springgreen"
  unqtDot SVGColor
SteelBlue            = Text -> DotCode
unqtText Text
"steelblue"
  unqtDot SVGColor
Tan                  = Text -> DotCode
unqtText Text
"tan"
  unqtDot SVGColor
Teal                 = Text -> DotCode
unqtText Text
"teal"
  unqtDot SVGColor
Thistle              = Text -> DotCode
unqtText Text
"thistle"
  unqtDot SVGColor
Tomato               = Text -> DotCode
unqtText Text
"tomato"
  unqtDot SVGColor
Turquoise            = Text -> DotCode
unqtText Text
"turquoise"
  unqtDot SVGColor
Violet               = Text -> DotCode
unqtText Text
"violet"
  unqtDot SVGColor
Wheat                = Text -> DotCode
unqtText Text
"wheat"
  unqtDot SVGColor
White                = Text -> DotCode
unqtText Text
"white"
  unqtDot SVGColor
WhiteSmoke           = Text -> DotCode
unqtText Text
"whitesmoke"
  unqtDot SVGColor
Yellow               = Text -> DotCode
unqtText Text
"yellow"
  unqtDot SVGColor
YellowGreen          = Text -> DotCode
unqtText Text
"yellowgreen"

instance ParseDot SVGColor where
  parseUnqt :: Parse SVGColor
parseUnqt = forall a. [([Char], a)] -> Parse a
stringValue [ ([Char]
"aliceblue", SVGColor
AliceBlue)
                          , ([Char]
"antiquewhite", SVGColor
AntiqueWhite)
                          , ([Char]
"aqua", SVGColor
Aqua)
                          , ([Char]
"aquamarine", SVGColor
Aquamarine)
                          , ([Char]
"azure", SVGColor
Azure)
                          , ([Char]
"beige", SVGColor
Beige)
                          , ([Char]
"bisque", SVGColor
Bisque)
                          , ([Char]
"black", SVGColor
Black)
                          , ([Char]
"blanchedalmond", SVGColor
BlanchedAlmond)
                          , ([Char]
"blue", SVGColor
Blue)
                          , ([Char]
"blueviolet", SVGColor
BlueViolet)
                          , ([Char]
"brown", SVGColor
Brown)
                          , ([Char]
"burlywood", SVGColor
Burlywood)
                          , ([Char]
"cadetblue", SVGColor
CadetBlue)
                          , ([Char]
"chartreuse", SVGColor
Chartreuse)
                          , ([Char]
"chocolate", SVGColor
Chocolate)
                          , ([Char]
"coral", SVGColor
Coral)
                          , ([Char]
"cornflowerblue", SVGColor
CornflowerBlue)
                          , ([Char]
"cornsilk", SVGColor
Cornsilk)
                          , ([Char]
"crimson", SVGColor
Crimson)
                          , ([Char]
"cyan", SVGColor
Cyan)
                          , ([Char]
"darkblue", SVGColor
DarkBlue)
                          , ([Char]
"darkcyan", SVGColor
DarkCyan)
                          , ([Char]
"darkgoldenrod", SVGColor
DarkGoldenrod)
                          , ([Char]
"darkgray", SVGColor
DarkGray)
                          , ([Char]
"darkgrey", SVGColor
DarkGray)
                          , ([Char]
"darkgreen", SVGColor
DarkGreen)
                          , ([Char]
"darkkhaki", SVGColor
DarkKhaki)
                          , ([Char]
"darkmagenta", SVGColor
DarkMagenta)
                          , ([Char]
"darkolivegreen", SVGColor
DarkOliveGreen)
                          , ([Char]
"darkorange", SVGColor
DarkOrange)
                          , ([Char]
"darkorchid", SVGColor
DarkOrchid)
                          , ([Char]
"darkred", SVGColor
DarkRed)
                          , ([Char]
"darksalmon", SVGColor
DarkSalmon)
                          , ([Char]
"darkseagreen", SVGColor
DarkSeaGreen)
                          , ([Char]
"darkslateblue", SVGColor
DarkSlateBlue)
                          , ([Char]
"darkslategray", SVGColor
DarkSlateGray)
                          , ([Char]
"darkslategrey", SVGColor
DarkSlateGray)
                          , ([Char]
"darkturquoise", SVGColor
DarkTurquoise)
                          , ([Char]
"darkviolet", SVGColor
DarkViolet)
                          , ([Char]
"deeppink", SVGColor
DeepPink)
                          , ([Char]
"deepskyblue", SVGColor
DeepSkyBlue)
                          , ([Char]
"dimgray", SVGColor
DimGray)
                          , ([Char]
"dimgrey", SVGColor
DimGray)
                          , ([Char]
"dodgerblue", SVGColor
DodgerBlue)
                          , ([Char]
"firebrick", SVGColor
Firebrick)
                          , ([Char]
"floralwhite", SVGColor
FloralWhite)
                          , ([Char]
"forestgreen", SVGColor
ForestGreen)
                          , ([Char]
"fuchsia", SVGColor
Fuchsia)
                          , ([Char]
"gainsboro", SVGColor
Gainsboro)
                          , ([Char]
"ghostwhite", SVGColor
GhostWhite)
                          , ([Char]
"gold", SVGColor
Gold)
                          , ([Char]
"goldenrod", SVGColor
Goldenrod)
                          , ([Char]
"gray", SVGColor
Gray)
                          , ([Char]
"grey", SVGColor
Gray)
                          , ([Char]
"green", SVGColor
Green)
                          , ([Char]
"greenyellow", SVGColor
GreenYellow)
                          , ([Char]
"honeydew", SVGColor
Honeydew)
                          , ([Char]
"hotpink", SVGColor
HotPink)
                          , ([Char]
"indianred", SVGColor
IndianRed)
                          , ([Char]
"indigo", SVGColor
Indigo)
                          , ([Char]
"ivory", SVGColor
Ivory)
                          , ([Char]
"khaki", SVGColor
Khaki)
                          , ([Char]
"lavender", SVGColor
Lavender)
                          , ([Char]
"lavenderblush", SVGColor
LavenderBlush)
                          , ([Char]
"lawngreen", SVGColor
LawnGreen)
                          , ([Char]
"lemonchiffon", SVGColor
LemonChiffon)
                          , ([Char]
"lightblue", SVGColor
LightBlue)
                          , ([Char]
"lightcoral", SVGColor
LightCoral)
                          , ([Char]
"lightcyan", SVGColor
LightCyan)
                          , ([Char]
"lightgoldenrodyellow", SVGColor
LightGoldenrodYellow)
                          , ([Char]
"lightgray", SVGColor
LightGray)
                          , ([Char]
"lightgrey", SVGColor
LightGray)
                          , ([Char]
"lightgreen", SVGColor
LightGreen)
                          , ([Char]
"lightpink", SVGColor
LightPink)
                          , ([Char]
"lightsalmon", SVGColor
LightSalmon)
                          , ([Char]
"lightseagreen", SVGColor
LightSeaGreen)
                          , ([Char]
"lightskyblue", SVGColor
LightSkyBlue)
                          , ([Char]
"lightslategray", SVGColor
LightSlateGray)
                          , ([Char]
"lightslategrey", SVGColor
LightSlateGray)
                          , ([Char]
"lightsteelblue", SVGColor
LightSteelBlue)
                          , ([Char]
"lightyellow", SVGColor
LightYellow)
                          , ([Char]
"lime", SVGColor
Lime)
                          , ([Char]
"limegreen", SVGColor
LimeGreen)
                          , ([Char]
"linen", SVGColor
Linen)
                          , ([Char]
"magenta", SVGColor
Magenta)
                          , ([Char]
"maroon", SVGColor
Maroon)
                          , ([Char]
"mediumaquamarine", SVGColor
MediumAquamarine)
                          , ([Char]
"mediumblue", SVGColor
MediumBlue)
                          , ([Char]
"mediumorchid", SVGColor
MediumOrchid)
                          , ([Char]
"mediumpurple", SVGColor
MediumPurple)
                          , ([Char]
"mediumseagreen", SVGColor
MediumSeaGreen)
                          , ([Char]
"mediumslateblue", SVGColor
MediumSlateBlue)
                          , ([Char]
"mediumspringgreen", SVGColor
MediumSpringGreen)
                          , ([Char]
"mediumturquoise", SVGColor
MediumTurquoise)
                          , ([Char]
"mediumvioletred", SVGColor
MediumVioletRed)
                          , ([Char]
"midnightblue", SVGColor
MidnightBlue)
                          , ([Char]
"mintcream", SVGColor
MintCream)
                          , ([Char]
"mistyrose", SVGColor
MistyRose)
                          , ([Char]
"moccasin", SVGColor
Moccasin)
                          , ([Char]
"navajowhite", SVGColor
NavajoWhite)
                          , ([Char]
"navy", SVGColor
Navy)
                          , ([Char]
"oldlace", SVGColor
OldLace)
                          , ([Char]
"olive", SVGColor
Olive)
                          , ([Char]
"olivedrab", SVGColor
OliveDrab)
                          , ([Char]
"orange", SVGColor
Orange)
                          , ([Char]
"orangered", SVGColor
OrangeRed)
                          , ([Char]
"orchid", SVGColor
Orchid)
                          , ([Char]
"palegoldenrod", SVGColor
PaleGoldenrod)
                          , ([Char]
"palegreen", SVGColor
PaleGreen)
                          , ([Char]
"paleturquoise", SVGColor
PaleTurquoise)
                          , ([Char]
"palevioletred", SVGColor
PaleVioletRed)
                          , ([Char]
"papayawhip", SVGColor
PapayaWhip)
                          , ([Char]
"peachpuff", SVGColor
PeachPuff)
                          , ([Char]
"peru", SVGColor
Peru)
                          , ([Char]
"pink", SVGColor
Pink)
                          , ([Char]
"plum", SVGColor
Plum)
                          , ([Char]
"powderblue", SVGColor
PowderBlue)
                          , ([Char]
"purple", SVGColor
Purple)
                          , ([Char]
"red", SVGColor
Red)
                          , ([Char]
"rosybrown", SVGColor
RosyBrown)
                          , ([Char]
"royalblue", SVGColor
RoyalBlue)
                          , ([Char]
"saddlebrown", SVGColor
SaddleBrown)
                          , ([Char]
"salmon", SVGColor
Salmon)
                          , ([Char]
"sandybrown", SVGColor
SandyBrown)
                          , ([Char]
"seagreen", SVGColor
SeaGreen)
                          , ([Char]
"seashell", SVGColor
SeaShell)
                          , ([Char]
"sienna", SVGColor
Sienna)
                          , ([Char]
"silver", SVGColor
Silver)
                          , ([Char]
"skyblue", SVGColor
SkyBlue)
                          , ([Char]
"slateblue", SVGColor
SlateBlue)
                          , ([Char]
"slategray", SVGColor
SlateGray)
                          , ([Char]
"slategrey", SVGColor
SlateGray)
                          , ([Char]
"snow", SVGColor
Snow)
                          , ([Char]
"springgreen", SVGColor
SpringGreen)
                          , ([Char]
"steelblue", SVGColor
SteelBlue)
                          , ([Char]
"tan", SVGColor
Tan)
                          , ([Char]
"teal", SVGColor
Teal)
                          , ([Char]
"thistle", SVGColor
Thistle)
                          , ([Char]
"tomato", SVGColor
Tomato)
                          , ([Char]
"turquoise", SVGColor
Turquoise)
                          , ([Char]
"violet", SVGColor
Violet)
                          , ([Char]
"wheat", SVGColor
Wheat)
                          , ([Char]
"white", SVGColor
White)
                          , ([Char]
"whitesmoke", SVGColor
WhiteSmoke)
                          , ([Char]
"yellow", SVGColor
Yellow)
                          , ([Char]
"yellowgreen", SVGColor
YellowGreen)
                          ]

-- | Convert an 'SVGColor' to its equivalent 'Colour' value.
svgColour                      :: SVGColor -> Colour Double
svgColour :: SVGColor -> Colour Double
svgColour SVGColor
AliceBlue            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
240 Word8
248 Word8
255
svgColour SVGColor
AntiqueWhite         = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
250 Word8
235 Word8
215
svgColour SVGColor
Aqua                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
255 Word8
255
svgColour SVGColor
Aquamarine           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
127 Word8
255 Word8
212
svgColour SVGColor
Azure                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
240 Word8
255 Word8
255
svgColour SVGColor
Beige                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
245 Word8
245 Word8
220
svgColour SVGColor
Bisque               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
228 Word8
196
svgColour SVGColor
Black                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
0   Word8
0
svgColour SVGColor
BlanchedAlmond       = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
235 Word8
205
svgColour SVGColor
Blue                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
0   Word8
255
svgColour SVGColor
BlueViolet           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
138 Word8
43  Word8
226
svgColour SVGColor
Brown                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
165 Word8
42  Word8
42
svgColour SVGColor
Burlywood            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
222 Word8
184 Word8
135
svgColour SVGColor
CadetBlue            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
95  Word8
158 Word8
160
svgColour SVGColor
Chartreuse           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
127 Word8
255 Word8
0
svgColour SVGColor
Chocolate            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
210 Word8
105 Word8
30
svgColour SVGColor
Coral                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
127 Word8
80
svgColour SVGColor
CornflowerBlue       = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
100 Word8
149 Word8
237
svgColour SVGColor
Cornsilk             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
248 Word8
220
svgColour SVGColor
Crimson              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
220 Word8
20  Word8
60
svgColour SVGColor
Cyan                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
255 Word8
255
svgColour SVGColor
DarkBlue             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
0   Word8
139
svgColour SVGColor
DarkCyan             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
139 Word8
139
svgColour SVGColor
DarkGoldenrod        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
184 Word8
134 Word8
11
svgColour SVGColor
DarkGray             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
169 Word8
169 Word8
169
svgColour SVGColor
DarkGreen            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
100 Word8
0
svgColour SVGColor
DarkKhaki            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
189 Word8
183 Word8
107
svgColour SVGColor
DarkMagenta          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
139 Word8
0   Word8
139
svgColour SVGColor
DarkOliveGreen       = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
85  Word8
107 Word8
47
svgColour SVGColor
DarkOrange           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
140 Word8
0
svgColour SVGColor
DarkOrchid           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
153 Word8
50  Word8
204
svgColour SVGColor
DarkRed              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
139 Word8
0   Word8
0
svgColour SVGColor
DarkSalmon           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
233 Word8
150 Word8
122
svgColour SVGColor
DarkSeaGreen         = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
143 Word8
188 Word8
143
svgColour SVGColor
DarkSlateBlue        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
72  Word8
61  Word8
139
svgColour SVGColor
DarkSlateGray        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
47  Word8
79  Word8
79
svgColour SVGColor
DarkTurquoise        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
206 Word8
209
svgColour SVGColor
DarkViolet           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
148 Word8
0   Word8
211
svgColour SVGColor
DeepPink             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
20  Word8
147
svgColour SVGColor
DeepSkyBlue          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
191 Word8
255
svgColour SVGColor
DimGray              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
105 Word8
105 Word8
105
svgColour SVGColor
DodgerBlue           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
30  Word8
144 Word8
255
svgColour SVGColor
Firebrick            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
178 Word8
34  Word8
34
svgColour SVGColor
FloralWhite          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
250 Word8
240
svgColour SVGColor
ForestGreen          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
34  Word8
139 Word8
34
svgColour SVGColor
Fuchsia              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
0   Word8
255
svgColour SVGColor
Gainsboro            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
220 Word8
220 Word8
220
svgColour SVGColor
GhostWhite           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
248 Word8
248 Word8
255
svgColour SVGColor
Gold                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
215 Word8
0
svgColour SVGColor
Goldenrod            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
218 Word8
165 Word8
32
svgColour SVGColor
Gray                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
128 Word8
128 Word8
128
svgColour SVGColor
Green                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
128 Word8
0
svgColour SVGColor
GreenYellow          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
173 Word8
255 Word8
47
svgColour SVGColor
Honeydew             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
240 Word8
255 Word8
240
svgColour SVGColor
HotPink              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
105 Word8
180
svgColour SVGColor
IndianRed            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
205 Word8
92  Word8
92
svgColour SVGColor
Indigo               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
75  Word8
0   Word8
130
svgColour SVGColor
Ivory                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
255 Word8
240
svgColour SVGColor
Khaki                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
240 Word8
230 Word8
140
svgColour SVGColor
Lavender             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
230 Word8
230 Word8
250
svgColour SVGColor
LavenderBlush        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
240 Word8
245
svgColour SVGColor
LawnGreen            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
124 Word8
252 Word8
0
svgColour SVGColor
LemonChiffon         = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
250 Word8
205
svgColour SVGColor
LightBlue            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
173 Word8
216 Word8
230
svgColour SVGColor
LightCoral           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
240 Word8
128 Word8
128
svgColour SVGColor
LightCyan            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
224 Word8
255 Word8
255
svgColour SVGColor
LightGoldenrodYellow = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
250 Word8
250 Word8
210
svgColour SVGColor
LightGray            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
211 Word8
211 Word8
211
svgColour SVGColor
LightGreen           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
144 Word8
238 Word8
144
svgColour SVGColor
LightPink            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
182 Word8
193
svgColour SVGColor
LightSalmon          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
160 Word8
122
svgColour SVGColor
LightSeaGreen        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
32  Word8
178 Word8
170
svgColour SVGColor
LightSkyBlue         = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
135 Word8
206 Word8
250
svgColour SVGColor
LightSlateGray       = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
119 Word8
136 Word8
153
svgColour SVGColor
LightSteelBlue       = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
176 Word8
196 Word8
222
svgColour SVGColor
LightYellow          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
255 Word8
224
svgColour SVGColor
Lime                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
255 Word8
0
svgColour SVGColor
LimeGreen            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
50  Word8
205 Word8
50
svgColour SVGColor
Linen                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
250 Word8
240 Word8
230
svgColour SVGColor
Magenta              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
0   Word8
255
svgColour SVGColor
Maroon               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
128 Word8
0   Word8
0
svgColour SVGColor
MediumAquamarine     = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
102 Word8
205 Word8
170
svgColour SVGColor
MediumBlue           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
0   Word8
205
svgColour SVGColor
MediumOrchid         = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
186 Word8
85  Word8
211
svgColour SVGColor
MediumPurple         = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
147 Word8
112 Word8
219
svgColour SVGColor
MediumSeaGreen       = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
60  Word8
179 Word8
113
svgColour SVGColor
MediumSlateBlue      = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
123 Word8
104 Word8
238
svgColour SVGColor
MediumSpringGreen    = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
250 Word8
154
svgColour SVGColor
MediumTurquoise      = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
72  Word8
209 Word8
204
svgColour SVGColor
MediumVioletRed      = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
199 Word8
21  Word8
133
svgColour SVGColor
MidnightBlue         = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
25  Word8
25  Word8
112
svgColour SVGColor
MintCream            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
245 Word8
255 Word8
250
svgColour SVGColor
MistyRose            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
228 Word8
225
svgColour SVGColor
Moccasin             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
228 Word8
181
svgColour SVGColor
NavajoWhite          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
222 Word8
173
svgColour SVGColor
Navy                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
0   Word8
128
svgColour SVGColor
OldLace              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
253 Word8
245 Word8
230
svgColour SVGColor
Olive                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
128 Word8
128 Word8
0
svgColour SVGColor
OliveDrab            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
107 Word8
142 Word8
35
svgColour SVGColor
Orange               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
165 Word8
0
svgColour SVGColor
OrangeRed            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
69  Word8
0
svgColour SVGColor
Orchid               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
218 Word8
112 Word8
214
svgColour SVGColor
PaleGoldenrod        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
238 Word8
232 Word8
170
svgColour SVGColor
PaleGreen            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
152 Word8
251 Word8
152
svgColour SVGColor
PaleTurquoise        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
175 Word8
238 Word8
238
svgColour SVGColor
PaleVioletRed        = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
219 Word8
112 Word8
147
svgColour SVGColor
PapayaWhip           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
239 Word8
213
svgColour SVGColor
PeachPuff            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
218 Word8
185
svgColour SVGColor
Peru                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
205 Word8
133 Word8
63
svgColour SVGColor
Pink                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
192 Word8
203
svgColour SVGColor
Plum                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
221 Word8
160 Word8
221
svgColour SVGColor
PowderBlue           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
176 Word8
224 Word8
230
svgColour SVGColor
Purple               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
128 Word8
0   Word8
128
svgColour SVGColor
Red                  = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
0   Word8
0
svgColour SVGColor
RosyBrown            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
188 Word8
143 Word8
143
svgColour SVGColor
RoyalBlue            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
65  Word8
105 Word8
225
svgColour SVGColor
SaddleBrown          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
139 Word8
69  Word8
19
svgColour SVGColor
Salmon               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
250 Word8
128 Word8
114
svgColour SVGColor
SandyBrown           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
244 Word8
164 Word8
96
svgColour SVGColor
SeaGreen             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
46  Word8
139 Word8
87
svgColour SVGColor
SeaShell             = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
245 Word8
238
svgColour SVGColor
Sienna               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
160 Word8
82  Word8
45
svgColour SVGColor
Silver               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
192 Word8
192 Word8
192
svgColour SVGColor
SkyBlue              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
135 Word8
206 Word8
235
svgColour SVGColor
SlateBlue            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
106 Word8
90  Word8
205
svgColour SVGColor
SlateGray            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
112 Word8
128 Word8
144
svgColour SVGColor
Snow                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
250 Word8
250
svgColour SVGColor
SpringGreen          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
255 Word8
127
svgColour SVGColor
SteelBlue            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
70  Word8
130 Word8
180
svgColour SVGColor
Tan                  = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
210 Word8
180 Word8
140
svgColour SVGColor
Teal                 = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0   Word8
128 Word8
128
svgColour SVGColor
Thistle              = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
216 Word8
191 Word8
216
svgColour SVGColor
Tomato               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
99  Word8
71
svgColour SVGColor
Turquoise            = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
64  Word8
224 Word8
208
svgColour SVGColor
Violet               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
238 Word8
130 Word8
238
svgColour SVGColor
Wheat                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
245 Word8
222 Word8
179
svgColour SVGColor
White                = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
255 Word8
255
svgColour SVGColor
WhiteSmoke           = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
245 Word8
245 Word8
245
svgColour SVGColor
Yellow               = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
255 Word8
255 Word8
0
svgColour SVGColor
YellowGreen          = forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
154 Word8
205 Word8
50