    {-
    Copyright (c) 2008, 2009
    Russell O'Connor

    Permission is hereby granted, free of charge, to any person obtaining a copy
    of this software and associated documentation files (the "Software"), to deal
    in the Software without restriction, including without limitation the rights
    to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
    copies of the Software, and to permit persons to whom the Software is
    furnished to do so, subject to the following conditions:

    The above copyright notice and this permission notice shall be included in
    all copies or substantial portions of the Software.

    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
    IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
    FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
    AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
    LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
    OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
    THE SOFTWARE.
    -}

    -- |Names for colours.
    -- Names taken from SVG 1.1 specification,
    -- <http://www.w3.org/TR/SVG11/types.html#ColorKeywords>.
    --
    -- 'readColourName' takes a string naming a colour (must be all lowercase)
    -- and returns the colour.
    -- Fails if the name is not recognized.
    module Data.Colour.Names
     (
      readColourName
     ,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
     ,darkgrey
     ,darkkhaki
     ,darkmagenta
     ,darkolivegreen
     ,darkorange
     ,darkorchid
     ,darkred
     ,darksalmon
     ,darkseagreen
     ,darkslateblue
     ,darkslategray
     ,darkslategrey
     ,darkturquoise
     ,darkviolet
     ,deeppink
     ,deepskyblue
     ,dimgray
     ,dimgrey
     ,dodgerblue
     ,firebrick
     ,floralwhite
     ,forestgreen
     ,fuchsia
     ,gainsboro
     ,ghostwhite
     ,gold
     ,goldenrod
     ,gray
     ,grey
     ,green
     ,greenyellow
     ,honeydew
     ,hotpink
     ,indianred
     ,indigo
     ,ivory
     ,khaki
     ,lavender
     ,lavenderblush
     ,lawngreen
     ,lemonchiffon
     ,lightblue
     ,lightcoral
     ,lightcyan
     ,lightgoldenrodyellow
     ,lightgray
     ,lightgreen
     ,lightgrey
     ,lightpink
     ,lightsalmon
     ,lightseagreen
     ,lightskyblue
     ,lightslategray
     ,lightslategrey
     ,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
     ,slategrey
     ,snow
     ,springgreen
     ,steelblue
     ,tan
     ,teal
     ,thistle
     ,tomato
     ,turquoise
     ,violet
     ,wheat
     ,white
     ,whitesmoke
     ,yellow
     ,yellowgreen
     )
    where

    import Prelude hiding (tan)
    import qualified Control.Monad.Fail as Fail
    import Data.Colour.SRGB
    import Data.Colour (black)

    readColourName :: (Fail.MonadFail m, Monad m, Ord a, Floating a) => String -> m (Colour a)
    readColourName :: String -> m (Colour a)
    readColourName "aliceblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    aliceblue
    readColourName "antiquewhite" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    antiquewhite
    readColourName "aqua" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    aqua
    readColourName "aquamarine" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    aquamarine
    readColourName "azure" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    azure
    readColourName "beige" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    beige
    readColourName "bisque" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    bisque
    readColourName "black" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. Num a => Colour a
    black
    readColourName "blanchedalmond" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    blanchedalmond
    readColourName "blue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    blue
    readColourName "blueviolet" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    blueviolet
    readColourName "brown" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    brown
    readColourName "burlywood" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    burlywood
    readColourName "cadetblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    cadetblue
    readColourName "chartreuse" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    chartreuse
    readColourName "chocolate" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    chocolate
    readColourName "coral" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    coral
    readColourName "cornflowerblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    cornflowerblue
    readColourName "cornsilk" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    cornsilk
    readColourName "crimson" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    crimson
    readColourName "cyan" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    cyan
    readColourName "darkblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkblue
    readColourName "darkcyan" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkcyan
    readColourName "darkgoldenrod" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkgoldenrod
    readColourName "darkgray" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkgray
    readColourName "darkgreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkgreen
    readColourName "darkgrey" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkgrey
    readColourName "darkkhaki" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkkhaki
    readColourName "darkmagenta" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkmagenta
    readColourName "darkolivegreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkolivegreen
    readColourName "darkorange" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkorange
    readColourName "darkorchid" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkorchid
    readColourName "darkred" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkred
    readColourName "darksalmon" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darksalmon
    readColourName "darkseagreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkseagreen
    readColourName "darkslateblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkslateblue
    readColourName "darkslategray" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkslategray
    readColourName "darkslategrey" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkslategrey
    readColourName "darkturquoise" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkturquoise
    readColourName "darkviolet" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    darkviolet
    readColourName "deeppink" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    deeppink
    readColourName "deepskyblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    deepskyblue
    readColourName "dimgray" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    dimgray
    readColourName "dimgrey" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    dimgrey
    readColourName "dodgerblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    dodgerblue
    readColourName "firebrick" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    firebrick
    readColourName "floralwhite" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    floralwhite
    readColourName "forestgreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    forestgreen
    readColourName "fuchsia" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    fuchsia
    readColourName "gainsboro" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    gainsboro
    readColourName "ghostwhite" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    ghostwhite
    readColourName "gold" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    gold
    readColourName "goldenrod" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    goldenrod
    readColourName "gray" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    gray
    readColourName "grey" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    grey
    readColourName "green" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    green
    readColourName "greenyellow" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    greenyellow
    readColourName "honeydew" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    honeydew
    readColourName "hotpink" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    hotpink
    readColourName "indianred" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    indianred
    readColourName "indigo" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    indigo
    readColourName "ivory" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    ivory
    readColourName "khaki" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    khaki
    readColourName "lavender" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lavender
    readColourName "lavenderblush" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lavenderblush
    readColourName "lawngreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lawngreen
    readColourName "lemonchiffon" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lemonchiffon
    readColourName "lightblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightblue
    readColourName "lightcoral" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightcoral
    readColourName "lightcyan" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightcyan
    readColourName "lightgoldenrodyellow" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightgoldenrodyellow
    readColourName "lightgray" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightgray
    readColourName "lightgreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightgreen
    readColourName "lightgrey" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightgrey
    readColourName "lightpink" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightpink
    readColourName "lightsalmon" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightsalmon
    readColourName "lightseagreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightseagreen
    readColourName "lightskyblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightskyblue
    readColourName "lightslategray" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightslategray
    readColourName "lightslategrey" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightslategrey
    readColourName "lightsteelblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightsteelblue
    readColourName "lightyellow" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lightyellow
    readColourName "lime" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    lime
    readColourName "limegreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    limegreen
    readColourName "linen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    linen
    readColourName "magenta" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    magenta
    readColourName "maroon" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    maroon
    readColourName "mediumaquamarine" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumaquamarine
    readColourName "mediumblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumblue
    readColourName "mediumorchid" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumorchid
    readColourName "mediumpurple" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumpurple
    readColourName "mediumseagreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumseagreen
    readColourName "mediumslateblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumslateblue
    readColourName "mediumspringgreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumspringgreen
    readColourName "mediumturquoise" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumturquoise
    readColourName "mediumvioletred" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mediumvioletred
    readColourName "midnightblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    midnightblue
    readColourName "mintcream" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mintcream
    readColourName "mistyrose" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    mistyrose
    readColourName "moccasin" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    moccasin
    readColourName "navajowhite" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    navajowhite
    readColourName "navy" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    navy
    readColourName "oldlace" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    oldlace
    readColourName "olive" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    olive
    readColourName "olivedrab" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    olivedrab
    readColourName "orange" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    orange
    readColourName "orangered" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    orangered
    readColourName "orchid" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    orchid
    readColourName "palegoldenrod" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    palegoldenrod
    readColourName "palegreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    palegreen
    readColourName "paleturquoise" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    paleturquoise
    readColourName "palevioletred" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    palevioletred
    readColourName "papayawhip" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    papayawhip
    readColourName "peachpuff" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    peachpuff
    readColourName "peru" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    peru
    readColourName "pink" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    pink
    readColourName "plum" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    plum
    readColourName "powderblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    powderblue
    readColourName "purple" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    purple
    readColourName "red" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    red
    readColourName "rosybrown" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    rosybrown
    readColourName "royalblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    royalblue
    readColourName "saddlebrown" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    saddlebrown
    readColourName "salmon" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    salmon
    readColourName "sandybrown" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    sandybrown
    readColourName "seagreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    seagreen
    readColourName "seashell" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    seashell
    readColourName "sienna" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    sienna
    readColourName "silver" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    silver
    readColourName "skyblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    skyblue
    readColourName "slateblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    slateblue
    readColourName "slategray" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    slategray
    readColourName "slategrey" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    slategrey
    readColourName "snow" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    snow
    readColourName "springgreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    springgreen
    readColourName "steelblue" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    steelblue
    readColourName "tan" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    tan
    readColourName "teal" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    teal
    readColourName "thistle" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    thistle
    readColourName "tomato" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    tomato
    readColourName "turquoise" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    turquoise
    readColourName "violet" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    violet
    readColourName "wheat" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    wheat
    readColourName "white" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    white
    readColourName "whitesmoke" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    whitesmoke
    readColourName "yellow" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    yellow
    readColourName "yellowgreen" = Colour a -> m (Colour a)
    forall (m :: * -> *) a. Monad m => a -> m a
    return Colour a
    forall a. (Ord a, Floating a) => Colour a
    yellowgreen
    readColourName x :: String
    x = String -> m (Colour a)
    forall (m :: * -> *) a. MonadFail m => String -> m a
    fail (String -> m (Colour a)) -> String -> m (Colour a)
    forall a b. (a -> b) -> a -> b
    $
      "Data.Colour.Names.readColourName: Unknown colour name "String -> String -> String
    forall a. [a] -> [a] -> [a]
    ++String -> String
    forall a. Show a => a -> String
    show String
    x

    aliceblue :: (Ord a, Floating a) => Colour a
    aliceblue :: Colour a
    aliceblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 240 248 255

    antiquewhite :: (Ord a, Floating a) => Colour a
    antiquewhite :: Colour a
    antiquewhite = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 250 235 215

    aqua :: (Ord a, Floating a) => Colour a
    aqua :: Colour a
    aqua = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 255 255

    aquamarine :: (Ord a, Floating a) => Colour a
    aquamarine :: Colour a
    aquamarine = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 127 255 212

    azure :: (Ord a, Floating a) => Colour a
    azure :: Colour a
    azure = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 240 255 255

    beige :: (Ord a, Floating a) => Colour a
    beige :: Colour a
    beige = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 245 245 220

    bisque :: (Ord a, Floating a) => Colour a
    bisque :: Colour a
    bisque = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 228 196

    -- black is reexported from Data.Colour

    blanchedalmond :: (Ord a, Floating a) => Colour a
    blanchedalmond :: Colour a
    blanchedalmond = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 235 205

    blue :: (Ord a, Floating a) => Colour a
    blue :: Colour a
    blue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 0 255

    blueviolet :: (Ord a, Floating a) => Colour a
    blueviolet :: Colour a
    blueviolet = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 138 43 226

    brown :: (Ord a, Floating a) => Colour a
    brown :: Colour a
    brown = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 165 42 42

    burlywood :: (Ord a, Floating a) => Colour a
    burlywood :: Colour a
    burlywood = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 222 184 135

    cadetblue :: (Ord a, Floating a) => Colour a
    cadetblue :: Colour a
    cadetblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 95 158 160

    chartreuse :: (Ord a, Floating a) => Colour a
    chartreuse :: Colour a
    chartreuse = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 127 255 0

    chocolate :: (Ord a, Floating a) => Colour a
    chocolate :: Colour a
    chocolate = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 210 105 30

    coral :: (Ord a, Floating a) => Colour a
    coral :: Colour a
    coral = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 127 80

    cornflowerblue :: (Ord a, Floating a) => Colour a
    cornflowerblue :: Colour a
    cornflowerblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 100 149 237

    cornsilk :: (Ord a, Floating a) => Colour a
    cornsilk :: Colour a
    cornsilk = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 248 220

    crimson :: (Ord a, Floating a) => Colour a
    crimson :: Colour a
    crimson = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 220 20 60

    cyan :: (Ord a, Floating a) => Colour a
    cyan :: Colour a
    cyan = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 255 255

    darkblue :: (Ord a, Floating a) => Colour a
    darkblue :: Colour a
    darkblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 0 139

    darkcyan :: (Ord a, Floating a) => Colour a
    darkcyan :: Colour a
    darkcyan = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 139 139

    darkgoldenrod :: (Ord a, Floating a) => Colour a
    darkgoldenrod :: Colour a
    darkgoldenrod = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 184 134 11

    darkgray :: (Ord a, Floating a) => Colour a
    darkgray :: Colour a
    darkgray = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 169 169 169

    darkgreen :: (Ord a, Floating a) => Colour a
    darkgreen :: Colour a
    darkgreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 100 0

    darkgrey :: (Ord a, Floating a) => Colour a
    darkgrey :: Colour a
    darkgrey = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 169 169 169

    darkkhaki :: (Ord a, Floating a) => Colour a
    darkkhaki :: Colour a
    darkkhaki = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 189 183 107

    darkmagenta :: (Ord a, Floating a) => Colour a
    darkmagenta :: Colour a
    darkmagenta = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 139 0 139

    darkolivegreen :: (Ord a, Floating a) => Colour a
    darkolivegreen :: Colour a
    darkolivegreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 85 107 47

    darkorange :: (Ord a, Floating a) => Colour a
    darkorange :: Colour a
    darkorange = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 140 0

    darkorchid :: (Ord a, Floating a) => Colour a
    darkorchid :: Colour a
    darkorchid = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 153 50 204

    darkred :: (Ord a, Floating a) => Colour a
    darkred :: Colour a
    darkred = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 139 0 0

    darksalmon :: (Ord a, Floating a) => Colour a
    darksalmon :: Colour a
    darksalmon = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 233 150 122

    darkseagreen :: (Ord a, Floating a) => Colour a
    darkseagreen :: Colour a
    darkseagreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 143 188 143

    darkslateblue :: (Ord a, Floating a) => Colour a
    darkslateblue :: Colour a
    darkslateblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 72 61 139

    darkslategray :: (Ord a, Floating a) => Colour a
    darkslategray :: Colour a
    darkslategray = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 47 79 79

    darkslategrey :: (Ord a, Floating a) => Colour a
    darkslategrey :: Colour a
    darkslategrey = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 47 79 79

    darkturquoise :: (Ord a, Floating a) => Colour a
    darkturquoise :: Colour a
    darkturquoise = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 206 209

    darkviolet :: (Ord a, Floating a) => Colour a
    darkviolet :: Colour a
    darkviolet = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 148 0 211

    deeppink :: (Ord a, Floating a) => Colour a
    deeppink :: Colour a
    deeppink = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 20 147

    deepskyblue :: (Ord a, Floating a) => Colour a
    deepskyblue :: Colour a
    deepskyblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 191 255

    dimgray :: (Ord a, Floating a) => Colour a
    dimgray :: Colour a
    dimgray = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 105 105 105

    dimgrey :: (Ord a, Floating a) => Colour a
    dimgrey :: Colour a
    dimgrey = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 105 105 105

    dodgerblue :: (Ord a, Floating a) => Colour a
    dodgerblue :: Colour a
    dodgerblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 30 144 255

    firebrick :: (Ord a, Floating a) => Colour a
    firebrick :: Colour a
    firebrick = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 178 34 34

    floralwhite :: (Ord a, Floating a) => Colour a
    floralwhite :: Colour a
    floralwhite = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 250 240

    forestgreen :: (Ord a, Floating a) => Colour a
    forestgreen :: Colour a
    forestgreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 34 139 34

    fuchsia :: (Ord a, Floating a) => Colour a
    fuchsia :: Colour a
    fuchsia = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 0 255

    gainsboro :: (Ord a, Floating a) => Colour a
    gainsboro :: Colour a
    gainsboro = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 220 220 220

    ghostwhite :: (Ord a, Floating a) => Colour a
    ghostwhite :: Colour a
    ghostwhite = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 248 248 255

    gold :: (Ord a, Floating a) => Colour a
    gold :: Colour a
    gold = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 215 0

    goldenrod :: (Ord a, Floating a) => Colour a
    goldenrod :: Colour a
    goldenrod = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 218 165 32

    gray :: (Ord a, Floating a) => Colour a
    gray :: Colour a
    gray = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 128 128 128

    grey :: (Ord a, Floating a) => Colour a
    grey :: Colour a
    grey = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 128 128 128

    green :: (Ord a, Floating a) => Colour a
    green :: Colour a
    green = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 128 0

    greenyellow :: (Ord a, Floating a) => Colour a
    greenyellow :: Colour a
    greenyellow = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 173 255 47

    honeydew :: (Ord a, Floating a) => Colour a
    honeydew :: Colour a
    honeydew = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 240 255 240

    hotpink :: (Ord a, Floating a) => Colour a
    hotpink :: Colour a
    hotpink = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 105 180

    indianred :: (Ord a, Floating a) => Colour a
    indianred :: Colour a
    indianred = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 205 92 92

    indigo :: (Ord a, Floating a) => Colour a
    indigo :: Colour a
    indigo = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 75 0 130

    ivory :: (Ord a, Floating a) => Colour a
    ivory :: Colour a
    ivory = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 255 240

    khaki :: (Ord a, Floating a) => Colour a
    khaki :: Colour a
    khaki = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 240 230 140

    lavender :: (Ord a, Floating a) => Colour a
    lavender :: Colour a
    lavender = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 230 230 250

    lavenderblush :: (Ord a, Floating a) => Colour a
    lavenderblush :: Colour a
    lavenderblush = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 240 245

    lawngreen :: (Ord a, Floating a) => Colour a
    lawngreen :: Colour a
    lawngreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 124 252 0

    lemonchiffon :: (Ord a, Floating a) => Colour a
    lemonchiffon :: Colour a
    lemonchiffon = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 250 205

    lightblue :: (Ord a, Floating a) => Colour a
    lightblue :: Colour a
    lightblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 173 216 230

    lightcoral :: (Ord a, Floating a) => Colour a
    lightcoral :: Colour a
    lightcoral = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 240 128 128

    lightcyan :: (Ord a, Floating a) => Colour a
    lightcyan :: Colour a
    lightcyan = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 224 255 255

    lightgoldenrodyellow :: (Ord a, Floating a) => Colour a
    lightgoldenrodyellow :: Colour a
    lightgoldenrodyellow = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 250 250 210

    lightgray :: (Ord a, Floating a) => Colour a
    lightgray :: Colour a
    lightgray = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 211 211 211

    lightgreen :: (Ord a, Floating a) => Colour a
    lightgreen :: Colour a
    lightgreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 144 238 144

    lightgrey :: (Ord a, Floating a) => Colour a
    lightgrey :: Colour a
    lightgrey = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 211 211 211

    lightpink :: (Ord a, Floating a) => Colour a
    lightpink :: Colour a
    lightpink = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 182 193

    lightsalmon :: (Ord a, Floating a) => Colour a
    lightsalmon :: Colour a
    lightsalmon = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 160 122

    lightseagreen :: (Ord a, Floating a) => Colour a
    lightseagreen :: Colour a
    lightseagreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 32 178 170

    lightskyblue :: (Ord a, Floating a) => Colour a
    lightskyblue :: Colour a
    lightskyblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 135 206 250

    lightslategray :: (Ord a, Floating a) => Colour a
    lightslategray :: Colour a
    lightslategray = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 119 136 153

    lightslategrey :: (Ord a, Floating a) => Colour a
    lightslategrey :: Colour a
    lightslategrey = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 119 136 153

    lightsteelblue :: (Ord a, Floating a) => Colour a
    lightsteelblue :: Colour a
    lightsteelblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 176 196 222

    lightyellow :: (Ord a, Floating a) => Colour a
    lightyellow :: Colour a
    lightyellow = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 255 224

    lime :: (Ord a, Floating a) => Colour a
    lime :: Colour a
    lime = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 255 0

    limegreen :: (Ord a, Floating a) => Colour a
    limegreen :: Colour a
    limegreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 50 205 50

    linen :: (Ord a, Floating a) => Colour a
    linen :: Colour a
    linen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 250 240 230

    magenta :: (Ord a, Floating a) => Colour a
    magenta :: Colour a
    magenta = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 0 255

    maroon :: (Ord a, Floating a) => Colour a
    maroon :: Colour a
    maroon = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 128 0 0

    mediumaquamarine :: (Ord a, Floating a) => Colour a
    mediumaquamarine :: Colour a
    mediumaquamarine = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 102 205 170

    mediumblue :: (Ord a, Floating a) => Colour a
    mediumblue :: Colour a
    mediumblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 0 205

    mediumorchid :: (Ord a, Floating a) => Colour a
    mediumorchid :: Colour a
    mediumorchid = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 186 85 211

    mediumpurple :: (Ord a, Floating a) => Colour a
    mediumpurple :: Colour a
    mediumpurple = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 147 112 219

    mediumseagreen :: (Ord a, Floating a) => Colour a
    mediumseagreen :: Colour a
    mediumseagreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 60 179 113

    mediumslateblue :: (Ord a, Floating a) => Colour a
    mediumslateblue :: Colour a
    mediumslateblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 123 104 238

    mediumspringgreen :: (Ord a, Floating a) => Colour a
    mediumspringgreen :: Colour a
    mediumspringgreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 250 154

    mediumturquoise :: (Ord a, Floating a) => Colour a
    mediumturquoise :: Colour a
    mediumturquoise = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 72 209 204

    mediumvioletred :: (Ord a, Floating a) => Colour a
    mediumvioletred :: Colour a
    mediumvioletred = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 199 21 133

    midnightblue :: (Ord a, Floating a) => Colour a
    midnightblue :: Colour a
    midnightblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 25 25 112

    mintcream :: (Ord a, Floating a) => Colour a
    mintcream :: Colour a
    mintcream = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 245 255 250

    mistyrose :: (Ord a, Floating a) => Colour a
    mistyrose :: Colour a
    mistyrose = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 228 225

    moccasin :: (Ord a, Floating a) => Colour a
    moccasin :: Colour a
    moccasin = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 228 181

    navajowhite :: (Ord a, Floating a) => Colour a
    navajowhite :: Colour a
    navajowhite = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 222 173

    navy :: (Ord a, Floating a) => Colour a
    navy :: Colour a
    navy = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 0 128

    oldlace :: (Ord a, Floating a) => Colour a
    oldlace :: Colour a
    oldlace = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 253 245 230

    olive :: (Ord a, Floating a) => Colour a
    olive :: Colour a
    olive = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 128 128 0

    olivedrab :: (Ord a, Floating a) => Colour a
    olivedrab :: Colour a
    olivedrab = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 107 142 35

    orange :: (Ord a, Floating a) => Colour a
    orange :: Colour a
    orange = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 165 0

    orangered :: (Ord a, Floating a) => Colour a
    orangered :: Colour a
    orangered = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 69 0

    orchid :: (Ord a, Floating a) => Colour a
    orchid :: Colour a
    orchid = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 218 112 214

    palegoldenrod :: (Ord a, Floating a) => Colour a
    palegoldenrod :: Colour a
    palegoldenrod = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 238 232 170

    palegreen :: (Ord a, Floating a) => Colour a
    palegreen :: Colour a
    palegreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 152 251 152

    paleturquoise :: (Ord a, Floating a) => Colour a
    paleturquoise :: Colour a
    paleturquoise = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 175 238 238

    palevioletred :: (Ord a, Floating a) => Colour a
    palevioletred :: Colour a
    palevioletred = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 219 112 147

    papayawhip :: (Ord a, Floating a) => Colour a
    papayawhip :: Colour a
    papayawhip = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 239 213

    peachpuff :: (Ord a, Floating a) => Colour a
    peachpuff :: Colour a
    peachpuff = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 218 185

    peru :: (Ord a, Floating a) => Colour a
    peru :: Colour a
    peru = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 205 133 63

    pink :: (Ord a, Floating a) => Colour a
    pink :: Colour a
    pink = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 192 203

    plum :: (Ord a, Floating a) => Colour a
    plum :: Colour a
    plum = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 221 160 221

    powderblue :: (Ord a, Floating a) => Colour a
    powderblue :: Colour a
    powderblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 176 224 230

    purple :: (Ord a, Floating a) => Colour a
    purple :: Colour a
    purple = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 128 0 128

    red :: (Ord a, Floating a) => Colour a
    red :: Colour a
    red = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 0 0

    rosybrown :: (Ord a, Floating a) => Colour a
    rosybrown :: Colour a
    rosybrown = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 188 143 143

    royalblue :: (Ord a, Floating a) => Colour a
    royalblue :: Colour a
    royalblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 65 105 225

    saddlebrown :: (Ord a, Floating a) => Colour a
    saddlebrown :: Colour a
    saddlebrown = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 139 69 19

    salmon :: (Ord a, Floating a) => Colour a
    salmon :: Colour a
    salmon = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 250 128 114

    sandybrown :: (Ord a, Floating a) => Colour a
    sandybrown :: Colour a
    sandybrown = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 244 164 96

    seagreen :: (Ord a, Floating a) => Colour a
    seagreen :: Colour a
    seagreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 46 139 87

    seashell :: (Ord a, Floating a) => Colour a
    seashell :: Colour a
    seashell = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 245 238

    sienna :: (Ord a, Floating a) => Colour a
    sienna :: Colour a
    sienna = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 160 82 45

    silver :: (Ord a, Floating a) => Colour a
    silver :: Colour a
    silver = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 192 192 192

    skyblue :: (Ord a, Floating a) => Colour a
    skyblue :: Colour a
    skyblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 135 206 235

    slateblue :: (Ord a, Floating a) => Colour a
    slateblue :: Colour a
    slateblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 106 90 205

    slategray :: (Ord a, Floating a) => Colour a
    slategray :: Colour a
    slategray = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 112 128 144

    slategrey :: (Ord a, Floating a) => Colour a
    slategrey :: Colour a
    slategrey = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 112 128 144

    snow :: (Ord a, Floating a) => Colour a
    snow :: Colour a
    snow = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 250 250

    springgreen :: (Ord a, Floating a) => Colour a
    springgreen :: Colour a
    springgreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 255 127

    steelblue :: (Ord a, Floating a) => Colour a
    steelblue :: Colour a
    steelblue = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 70 130 180

    tan :: (Ord a, Floating a) => Colour a
    tan :: Colour a
    tan = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 210 180 140

    teal :: (Ord a, Floating a) => Colour a
    teal :: Colour a
    teal = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 0 128 128

    thistle :: (Ord a, Floating a) => Colour a
    thistle :: Colour a
    thistle = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 216 191 216

    tomato :: (Ord a, Floating a) => Colour a
    tomato :: Colour a
    tomato = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 99 71

    turquoise :: (Ord a, Floating a) => Colour a
    turquoise :: Colour a
    turquoise = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 64 224 208

    violet :: (Ord a, Floating a) => Colour a
    violet :: Colour a
    violet = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 238 130 238

    wheat :: (Ord a, Floating a) => Colour a
    wheat :: Colour a
    wheat = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 245 222 179

    white :: (Ord a, Floating a) => Colour a
    white :: Colour a
    white = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 255 255

    whitesmoke :: (Ord a, Floating a) => Colour a
    whitesmoke :: Colour a
    whitesmoke = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 245 245 245

    yellow :: (Ord a, Floating a) => Colour a
    yellow :: Colour a
    yellow = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 255 255 0

    yellowgreen :: (Ord a, Floating a) => Colour a
    yellowgreen :: Colour a
    yellowgreen = Word8 -> Word8 -> Word8 -> Colour a
    forall b.
    (Ord b, Floating b) =>
    Word8 -> Word8 -> Word8 -> Colour b
    sRGB24 154 205 50