{-
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