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