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

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

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

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

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

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

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

    -- black is reexported from Data.Colour

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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