1{- 2Copyright (c) 2008, 2009 3Russell O'Connor 4 5Permission is hereby granted, free of charge, to any person obtaining a copy 6of this software and associated documentation files (the "Software"), to deal 7in the Software without restriction, including without limitation the rights 8to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 9copies of the Software, and to permit persons to whom the Software is 10furnished to do so, subject to the following conditions: 11 12The above copyright notice and this permission notice shall be included in 13all copies or substantial portions of the Software. 14 15THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 16IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 17FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 18AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 19LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 20OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN 21THE SOFTWARE. 22-} 23 24-- |Names for colours. 25-- Names taken from SVG 1.1 specification, 26-- <http://www.w3.org/TR/SVG11/types.html#ColorKeywords>. 27-- 28-- 'readColourName' takes a string naming a colour (must be all lowercase) 29-- and returns the colour. 30-- Fails if the name is not recognized. 31module Data.Colour.Names 32 ( 33 readColourName 34 ,aliceblue 35 ,antiquewhite 36 ,aqua 37 ,aquamarine 38 ,azure 39 ,beige 40 ,bisque 41 ,black 42 ,blanchedalmond 43 ,blue 44 ,blueviolet 45 ,brown 46 ,burlywood 47 ,cadetblue 48 ,chartreuse 49 ,chocolate 50 ,coral 51 ,cornflowerblue 52 ,cornsilk 53 ,crimson 54 ,cyan 55 ,darkblue 56 ,darkcyan 57 ,darkgoldenrod 58 ,darkgray 59 ,darkgreen 60 ,darkgrey 61 ,darkkhaki 62 ,darkmagenta 63 ,darkolivegreen 64 ,darkorange 65 ,darkorchid 66 ,darkred 67 ,darksalmon 68 ,darkseagreen 69 ,darkslateblue 70 ,darkslategray 71 ,darkslategrey 72 ,darkturquoise 73 ,darkviolet 74 ,deeppink 75 ,deepskyblue 76 ,dimgray 77 ,dimgrey 78 ,dodgerblue 79 ,firebrick 80 ,floralwhite 81 ,forestgreen 82 ,fuchsia 83 ,gainsboro 84 ,ghostwhite 85 ,gold 86 ,goldenrod 87 ,gray 88 ,grey 89 ,green 90 ,greenyellow 91 ,honeydew 92 ,hotpink 93 ,indianred 94 ,indigo 95 ,ivory 96 ,khaki 97 ,lavender 98 ,lavenderblush 99 ,lawngreen 100 ,lemonchiffon 101 ,lightblue 102 ,lightcoral 103 ,lightcyan 104 ,lightgoldenrodyellow 105 ,lightgray 106 ,lightgreen 107 ,lightgrey 108 ,lightpink 109 ,lightsalmon 110 ,lightseagreen 111 ,lightskyblue 112 ,lightslategray 113 ,lightslategrey 114 ,lightsteelblue 115 ,lightyellow 116 ,lime 117 ,limegreen 118 ,linen 119 ,magenta 120 ,maroon 121 ,mediumaquamarine 122 ,mediumblue 123 ,mediumorchid 124 ,mediumpurple 125 ,mediumseagreen 126 ,mediumslateblue 127 ,mediumspringgreen 128 ,mediumturquoise 129 ,mediumvioletred 130 ,midnightblue 131 ,mintcream 132 ,mistyrose 133 ,moccasin 134 ,navajowhite 135 ,navy 136 ,oldlace 137 ,olive 138 ,olivedrab 139 ,orange 140 ,orangered 141 ,orchid 142 ,palegoldenrod 143 ,palegreen 144 ,paleturquoise 145 ,palevioletred 146 ,papayawhip 147 ,peachpuff 148 ,peru 149 ,pink 150 ,plum 151 ,powderblue 152 ,purple 153 ,red 154 ,rosybrown 155 ,royalblue 156 ,saddlebrown 157 ,salmon 158 ,sandybrown 159 ,seagreen 160 ,seashell 161 ,sienna 162 ,silver 163 ,skyblue 164 ,slateblue 165 ,slategray 166 ,slategrey 167 ,snow 168 ,springgreen 169 ,steelblue 170 ,tan 171 ,teal 172 ,thistle 173 ,tomato 174 ,turquoise 175 ,violet 176 ,wheat 177 ,white 178 ,whitesmoke 179 ,yellow 180 ,yellowgreen 181 ) 182where 183 184import Prelude hiding (tan) 185import qualified Control.Monad.Fail as Fail 186import Data.Colour.SRGB 187import Data.Colour (black) 188 189readColourName :: (Fail.MonadFail m, Monad m, Ord a, Floating a) => String -> m (Colour a) 190readColourName "aliceblue" = return aliceblue 191readColourName "antiquewhite" = return antiquewhite 192readColourName "aqua" = return aqua 193readColourName "aquamarine" = return aquamarine 194readColourName "azure" = return azure 195readColourName "beige" = return beige 196readColourName "bisque" = return bisque 197readColourName "black" = return black 198readColourName "blanchedalmond" = return blanchedalmond 199readColourName "blue" = return blue 200readColourName "blueviolet" = return blueviolet 201readColourName "brown" = return brown 202readColourName "burlywood" = return burlywood 203readColourName "cadetblue" = return cadetblue 204readColourName "chartreuse" = return chartreuse 205readColourName "chocolate" = return chocolate 206readColourName "coral" = return coral 207readColourName "cornflowerblue" = return cornflowerblue 208readColourName "cornsilk" = return cornsilk 209readColourName "crimson" = return crimson 210readColourName "cyan" = return cyan 211readColourName "darkblue" = return darkblue 212readColourName "darkcyan" = return darkcyan 213readColourName "darkgoldenrod" = return darkgoldenrod 214readColourName "darkgray" = return darkgray 215readColourName "darkgreen" = return darkgreen 216readColourName "darkgrey" = return darkgrey 217readColourName "darkkhaki" = return darkkhaki 218readColourName "darkmagenta" = return darkmagenta 219readColourName "darkolivegreen" = return darkolivegreen 220readColourName "darkorange" = return darkorange 221readColourName "darkorchid" = return darkorchid 222readColourName "darkred" = return darkred 223readColourName "darksalmon" = return darksalmon 224readColourName "darkseagreen" = return darkseagreen 225readColourName "darkslateblue" = return darkslateblue 226readColourName "darkslategray" = return darkslategray 227readColourName "darkslategrey" = return darkslategrey 228readColourName "darkturquoise" = return darkturquoise 229readColourName "darkviolet" = return darkviolet 230readColourName "deeppink" = return deeppink 231readColourName "deepskyblue" = return deepskyblue 232readColourName "dimgray" = return dimgray 233readColourName "dimgrey" = return dimgrey 234readColourName "dodgerblue" = return dodgerblue 235readColourName "firebrick" = return firebrick 236readColourName "floralwhite" = return floralwhite 237readColourName "forestgreen" = return forestgreen 238readColourName "fuchsia" = return fuchsia 239readColourName "gainsboro" = return gainsboro 240readColourName "ghostwhite" = return ghostwhite 241readColourName "gold" = return gold 242readColourName "goldenrod" = return goldenrod 243readColourName "gray" = return gray 244readColourName "grey" = return grey 245readColourName "green" = return green 246readColourName "greenyellow" = return greenyellow 247readColourName "honeydew" = return honeydew 248readColourName "hotpink" = return hotpink 249readColourName "indianred" = return indianred 250readColourName "indigo" = return indigo 251readColourName "ivory" = return ivory 252readColourName "khaki" = return khaki 253readColourName "lavender" = return lavender 254readColourName "lavenderblush" = return lavenderblush 255readColourName "lawngreen" = return lawngreen 256readColourName "lemonchiffon" = return lemonchiffon 257readColourName "lightblue" = return lightblue 258readColourName "lightcoral" = return lightcoral 259readColourName "lightcyan" = return lightcyan 260readColourName "lightgoldenrodyellow" = return lightgoldenrodyellow 261readColourName "lightgray" = return lightgray 262readColourName "lightgreen" = return lightgreen 263readColourName "lightgrey" = return lightgrey 264readColourName "lightpink" = return lightpink 265readColourName "lightsalmon" = return lightsalmon 266readColourName "lightseagreen" = return lightseagreen 267readColourName "lightskyblue" = return lightskyblue 268readColourName "lightslategray" = return lightslategray 269readColourName "lightslategrey" = return lightslategrey 270readColourName "lightsteelblue" = return lightsteelblue 271readColourName "lightyellow" = return lightyellow 272readColourName "lime" = return lime 273readColourName "limegreen" = return limegreen 274readColourName "linen" = return linen 275readColourName "magenta" = return magenta 276readColourName "maroon" = return maroon 277readColourName "mediumaquamarine" = return mediumaquamarine 278readColourName "mediumblue" = return mediumblue 279readColourName "mediumorchid" = return mediumorchid 280readColourName "mediumpurple" = return mediumpurple 281readColourName "mediumseagreen" = return mediumseagreen 282readColourName "mediumslateblue" = return mediumslateblue 283readColourName "mediumspringgreen" = return mediumspringgreen 284readColourName "mediumturquoise" = return mediumturquoise 285readColourName "mediumvioletred" = return mediumvioletred 286readColourName "midnightblue" = return midnightblue 287readColourName "mintcream" = return mintcream 288readColourName "mistyrose" = return mistyrose 289readColourName "moccasin" = return moccasin 290readColourName "navajowhite" = return navajowhite 291readColourName "navy" = return navy 292readColourName "oldlace" = return oldlace 293readColourName "olive" = return olive 294readColourName "olivedrab" = return olivedrab 295readColourName "orange" = return orange 296readColourName "orangered" = return orangered 297readColourName "orchid" = return orchid 298readColourName "palegoldenrod" = return palegoldenrod 299readColourName "palegreen" = return palegreen 300readColourName "paleturquoise" = return paleturquoise 301readColourName "palevioletred" = return palevioletred 302readColourName "papayawhip" = return papayawhip 303readColourName "peachpuff" = return peachpuff 304readColourName "peru" = return peru 305readColourName "pink" = return pink 306readColourName "plum" = return plum 307readColourName "powderblue" = return powderblue 308readColourName "purple" = return purple 309readColourName "red" = return red 310readColourName "rosybrown" = return rosybrown 311readColourName "royalblue" = return royalblue 312readColourName "saddlebrown" = return saddlebrown 313readColourName "salmon" = return salmon 314readColourName "sandybrown" = return sandybrown 315readColourName "seagreen" = return seagreen 316readColourName "seashell" = return seashell 317readColourName "sienna" = return sienna 318readColourName "silver" = return silver 319readColourName "skyblue" = return skyblue 320readColourName "slateblue" = return slateblue 321readColourName "slategray" = return slategray 322readColourName "slategrey" = return slategrey 323readColourName "snow" = return snow 324readColourName "springgreen" = return springgreen 325readColourName "steelblue" = return steelblue 326readColourName "tan" = return tan 327readColourName "teal" = return teal 328readColourName "thistle" = return thistle 329readColourName "tomato" = return tomato 330readColourName "turquoise" = return turquoise 331readColourName "violet" = return violet 332readColourName "wheat" = return wheat 333readColourName "white" = return white 334readColourName "whitesmoke" = return whitesmoke 335readColourName "yellow" = return yellow 336readColourName "yellowgreen" = return yellowgreen 337readColourName x = fail $ 338 "Data.Colour.Names.readColourName: Unknown colour name "++show x 339 340aliceblue :: (Ord a, Floating a) => Colour a 341aliceblue = sRGB24 240 248 255 342 343antiquewhite :: (Ord a, Floating a) => Colour a 344antiquewhite = sRGB24 250 235 215 345 346aqua :: (Ord a, Floating a) => Colour a 347aqua = sRGB24 0 255 255 348 349aquamarine :: (Ord a, Floating a) => Colour a 350aquamarine = sRGB24 127 255 212 351 352azure :: (Ord a, Floating a) => Colour a 353azure = sRGB24 240 255 255 354 355beige :: (Ord a, Floating a) => Colour a 356beige = sRGB24 245 245 220 357 358bisque :: (Ord a, Floating a) => Colour a 359bisque = sRGB24 255 228 196 360 361-- black is reexported from Data.Colour 362 363blanchedalmond :: (Ord a, Floating a) => Colour a 364blanchedalmond = sRGB24 255 235 205 365 366blue :: (Ord a, Floating a) => Colour a 367blue = sRGB24 0 0 255 368 369blueviolet :: (Ord a, Floating a) => Colour a 370blueviolet = sRGB24 138 43 226 371 372brown :: (Ord a, Floating a) => Colour a 373brown = sRGB24 165 42 42 374 375burlywood :: (Ord a, Floating a) => Colour a 376burlywood = sRGB24 222 184 135 377 378cadetblue :: (Ord a, Floating a) => Colour a 379cadetblue = sRGB24 95 158 160 380 381chartreuse :: (Ord a, Floating a) => Colour a 382chartreuse = sRGB24 127 255 0 383 384chocolate :: (Ord a, Floating a) => Colour a 385chocolate = sRGB24 210 105 30 386 387coral :: (Ord a, Floating a) => Colour a 388coral = sRGB24 255 127 80 389 390cornflowerblue :: (Ord a, Floating a) => Colour a 391cornflowerblue = sRGB24 100 149 237 392 393cornsilk :: (Ord a, Floating a) => Colour a 394cornsilk = sRGB24 255 248 220 395 396crimson :: (Ord a, Floating a) => Colour a 397crimson = sRGB24 220 20 60 398 399cyan :: (Ord a, Floating a) => Colour a 400cyan = sRGB24 0 255 255 401 402darkblue :: (Ord a, Floating a) => Colour a 403darkblue = sRGB24 0 0 139 404 405darkcyan :: (Ord a, Floating a) => Colour a 406darkcyan = sRGB24 0 139 139 407 408darkgoldenrod :: (Ord a, Floating a) => Colour a 409darkgoldenrod = sRGB24 184 134 11 410 411darkgray :: (Ord a, Floating a) => Colour a 412darkgray = sRGB24 169 169 169 413 414darkgreen :: (Ord a, Floating a) => Colour a 415darkgreen = sRGB24 0 100 0 416 417darkgrey :: (Ord a, Floating a) => Colour a 418darkgrey = sRGB24 169 169 169 419 420darkkhaki :: (Ord a, Floating a) => Colour a 421darkkhaki = sRGB24 189 183 107 422 423darkmagenta :: (Ord a, Floating a) => Colour a 424darkmagenta = sRGB24 139 0 139 425 426darkolivegreen :: (Ord a, Floating a) => Colour a 427darkolivegreen = sRGB24 85 107 47 428 429darkorange :: (Ord a, Floating a) => Colour a 430darkorange = sRGB24 255 140 0 431 432darkorchid :: (Ord a, Floating a) => Colour a 433darkorchid = sRGB24 153 50 204 434 435darkred :: (Ord a, Floating a) => Colour a 436darkred = sRGB24 139 0 0 437 438darksalmon :: (Ord a, Floating a) => Colour a 439darksalmon = sRGB24 233 150 122 440 441darkseagreen :: (Ord a, Floating a) => Colour a 442darkseagreen = sRGB24 143 188 143 443 444darkslateblue :: (Ord a, Floating a) => Colour a 445darkslateblue = sRGB24 72 61 139 446 447darkslategray :: (Ord a, Floating a) => Colour a 448darkslategray = sRGB24 47 79 79 449 450darkslategrey :: (Ord a, Floating a) => Colour a 451darkslategrey = sRGB24 47 79 79 452 453darkturquoise :: (Ord a, Floating a) => Colour a 454darkturquoise = sRGB24 0 206 209 455 456darkviolet :: (Ord a, Floating a) => Colour a 457darkviolet = sRGB24 148 0 211 458 459deeppink :: (Ord a, Floating a) => Colour a 460deeppink = sRGB24 255 20 147 461 462deepskyblue :: (Ord a, Floating a) => Colour a 463deepskyblue = sRGB24 0 191 255 464 465dimgray :: (Ord a, Floating a) => Colour a 466dimgray = sRGB24 105 105 105 467 468dimgrey :: (Ord a, Floating a) => Colour a 469dimgrey = sRGB24 105 105 105 470 471dodgerblue :: (Ord a, Floating a) => Colour a 472dodgerblue = sRGB24 30 144 255 473 474firebrick :: (Ord a, Floating a) => Colour a 475firebrick = sRGB24 178 34 34 476 477floralwhite :: (Ord a, Floating a) => Colour a 478floralwhite = sRGB24 255 250 240 479 480forestgreen :: (Ord a, Floating a) => Colour a 481forestgreen = sRGB24 34 139 34 482 483fuchsia :: (Ord a, Floating a) => Colour a 484fuchsia = sRGB24 255 0 255 485 486gainsboro :: (Ord a, Floating a) => Colour a 487gainsboro = sRGB24 220 220 220 488 489ghostwhite :: (Ord a, Floating a) => Colour a 490ghostwhite = sRGB24 248 248 255 491 492gold :: (Ord a, Floating a) => Colour a 493gold = sRGB24 255 215 0 494 495goldenrod :: (Ord a, Floating a) => Colour a 496goldenrod = sRGB24 218 165 32 497 498gray :: (Ord a, Floating a) => Colour a 499gray = sRGB24 128 128 128 500 501grey :: (Ord a, Floating a) => Colour a 502grey = sRGB24 128 128 128 503 504green :: (Ord a, Floating a) => Colour a 505green = sRGB24 0 128 0 506 507greenyellow :: (Ord a, Floating a) => Colour a 508greenyellow = sRGB24 173 255 47 509 510honeydew :: (Ord a, Floating a) => Colour a 511honeydew = sRGB24 240 255 240 512 513hotpink :: (Ord a, Floating a) => Colour a 514hotpink = sRGB24 255 105 180 515 516indianred :: (Ord a, Floating a) => Colour a 517indianred = sRGB24 205 92 92 518 519indigo :: (Ord a, Floating a) => Colour a 520indigo = sRGB24 75 0 130 521 522ivory :: (Ord a, Floating a) => Colour a 523ivory = sRGB24 255 255 240 524 525khaki :: (Ord a, Floating a) => Colour a 526khaki = sRGB24 240 230 140 527 528lavender :: (Ord a, Floating a) => Colour a 529lavender = sRGB24 230 230 250 530 531lavenderblush :: (Ord a, Floating a) => Colour a 532lavenderblush = sRGB24 255 240 245 533 534lawngreen :: (Ord a, Floating a) => Colour a 535lawngreen = sRGB24 124 252 0 536 537lemonchiffon :: (Ord a, Floating a) => Colour a 538lemonchiffon = sRGB24 255 250 205 539 540lightblue :: (Ord a, Floating a) => Colour a 541lightblue = sRGB24 173 216 230 542 543lightcoral :: (Ord a, Floating a) => Colour a 544lightcoral = sRGB24 240 128 128 545 546lightcyan :: (Ord a, Floating a) => Colour a 547lightcyan = sRGB24 224 255 255 548 549lightgoldenrodyellow :: (Ord a, Floating a) => Colour a 550lightgoldenrodyellow = sRGB24 250 250 210 551 552lightgray :: (Ord a, Floating a) => Colour a 553lightgray = sRGB24 211 211 211 554 555lightgreen :: (Ord a, Floating a) => Colour a 556lightgreen = sRGB24 144 238 144 557 558lightgrey :: (Ord a, Floating a) => Colour a 559lightgrey = sRGB24 211 211 211 560 561lightpink :: (Ord a, Floating a) => Colour a 562lightpink = sRGB24 255 182 193 563 564lightsalmon :: (Ord a, Floating a) => Colour a 565lightsalmon = sRGB24 255 160 122 566 567lightseagreen :: (Ord a, Floating a) => Colour a 568lightseagreen = sRGB24 32 178 170 569 570lightskyblue :: (Ord a, Floating a) => Colour a 571lightskyblue = sRGB24 135 206 250 572 573lightslategray :: (Ord a, Floating a) => Colour a 574lightslategray = sRGB24 119 136 153 575 576lightslategrey :: (Ord a, Floating a) => Colour a 577lightslategrey = sRGB24 119 136 153 578 579lightsteelblue :: (Ord a, Floating a) => Colour a 580lightsteelblue = sRGB24 176 196 222 581 582lightyellow :: (Ord a, Floating a) => Colour a 583lightyellow = sRGB24 255 255 224 584 585lime :: (Ord a, Floating a) => Colour a 586lime = sRGB24 0 255 0 587 588limegreen :: (Ord a, Floating a) => Colour a 589limegreen = sRGB24 50 205 50 590 591linen :: (Ord a, Floating a) => Colour a 592linen = sRGB24 250 240 230 593 594magenta :: (Ord a, Floating a) => Colour a 595magenta = sRGB24 255 0 255 596 597maroon :: (Ord a, Floating a) => Colour a 598maroon = sRGB24 128 0 0 599 600mediumaquamarine :: (Ord a, Floating a) => Colour a 601mediumaquamarine = sRGB24 102 205 170 602 603mediumblue :: (Ord a, Floating a) => Colour a 604mediumblue = sRGB24 0 0 205 605 606mediumorchid :: (Ord a, Floating a) => Colour a 607mediumorchid = sRGB24 186 85 211 608 609mediumpurple :: (Ord a, Floating a) => Colour a 610mediumpurple = sRGB24 147 112 219 611 612mediumseagreen :: (Ord a, Floating a) => Colour a 613mediumseagreen = sRGB24 60 179 113 614 615mediumslateblue :: (Ord a, Floating a) => Colour a 616mediumslateblue = sRGB24 123 104 238 617 618mediumspringgreen :: (Ord a, Floating a) => Colour a 619mediumspringgreen = sRGB24 0 250 154 620 621mediumturquoise :: (Ord a, Floating a) => Colour a 622mediumturquoise = sRGB24 72 209 204 623 624mediumvioletred :: (Ord a, Floating a) => Colour a 625mediumvioletred = sRGB24 199 21 133 626 627midnightblue :: (Ord a, Floating a) => Colour a 628midnightblue = sRGB24 25 25 112 629 630mintcream :: (Ord a, Floating a) => Colour a 631mintcream = sRGB24 245 255 250 632 633mistyrose :: (Ord a, Floating a) => Colour a 634mistyrose = sRGB24 255 228 225 635 636moccasin :: (Ord a, Floating a) => Colour a 637moccasin = sRGB24 255 228 181 638 639navajowhite :: (Ord a, Floating a) => Colour a 640navajowhite = sRGB24 255 222 173 641 642navy :: (Ord a, Floating a) => Colour a 643navy = sRGB24 0 0 128 644 645oldlace :: (Ord a, Floating a) => Colour a 646oldlace = sRGB24 253 245 230 647 648olive :: (Ord a, Floating a) => Colour a 649olive = sRGB24 128 128 0 650 651olivedrab :: (Ord a, Floating a) => Colour a 652olivedrab = sRGB24 107 142 35 653 654orange :: (Ord a, Floating a) => Colour a 655orange = sRGB24 255 165 0 656 657orangered :: (Ord a, Floating a) => Colour a 658orangered = sRGB24 255 69 0 659 660orchid :: (Ord a, Floating a) => Colour a 661orchid = sRGB24 218 112 214 662 663palegoldenrod :: (Ord a, Floating a) => Colour a 664palegoldenrod = sRGB24 238 232 170 665 666palegreen :: (Ord a, Floating a) => Colour a 667palegreen = sRGB24 152 251 152 668 669paleturquoise :: (Ord a, Floating a) => Colour a 670paleturquoise = sRGB24 175 238 238 671 672palevioletred :: (Ord a, Floating a) => Colour a 673palevioletred = sRGB24 219 112 147 674 675papayawhip :: (Ord a, Floating a) => Colour a 676papayawhip = sRGB24 255 239 213 677 678peachpuff :: (Ord a, Floating a) => Colour a 679peachpuff = sRGB24 255 218 185 680 681peru :: (Ord a, Floating a) => Colour a 682peru = sRGB24 205 133 63 683 684pink :: (Ord a, Floating a) => Colour a 685pink = sRGB24 255 192 203 686 687plum :: (Ord a, Floating a) => Colour a 688plum = sRGB24 221 160 221 689 690powderblue :: (Ord a, Floating a) => Colour a 691powderblue = sRGB24 176 224 230 692 693purple :: (Ord a, Floating a) => Colour a 694purple = sRGB24 128 0 128 695 696red :: (Ord a, Floating a) => Colour a 697red = sRGB24 255 0 0 698 699rosybrown :: (Ord a, Floating a) => Colour a 700rosybrown = sRGB24 188 143 143 701 702royalblue :: (Ord a, Floating a) => Colour a 703royalblue = sRGB24 65 105 225 704 705saddlebrown :: (Ord a, Floating a) => Colour a 706saddlebrown = sRGB24 139 69 19 707 708salmon :: (Ord a, Floating a) => Colour a 709salmon = sRGB24 250 128 114 710 711sandybrown :: (Ord a, Floating a) => Colour a 712sandybrown = sRGB24 244 164 96 713 714seagreen :: (Ord a, Floating a) => Colour a 715seagreen = sRGB24 46 139 87 716 717seashell :: (Ord a, Floating a) => Colour a 718seashell = sRGB24 255 245 238 719 720sienna :: (Ord a, Floating a) => Colour a 721sienna = sRGB24 160 82 45 722 723silver :: (Ord a, Floating a) => Colour a 724silver = sRGB24 192 192 192 725 726skyblue :: (Ord a, Floating a) => Colour a 727skyblue = sRGB24 135 206 235 728 729slateblue :: (Ord a, Floating a) => Colour a 730slateblue = sRGB24 106 90 205 731 732slategray :: (Ord a, Floating a) => Colour a 733slategray = sRGB24 112 128 144 734 735slategrey :: (Ord a, Floating a) => Colour a 736slategrey = sRGB24 112 128 144 737 738snow :: (Ord a, Floating a) => Colour a 739snow = sRGB24 255 250 250 740 741springgreen :: (Ord a, Floating a) => Colour a 742springgreen = sRGB24 0 255 127 743 744steelblue :: (Ord a, Floating a) => Colour a 745steelblue = sRGB24 70 130 180 746 747tan :: (Ord a, Floating a) => Colour a 748tan = sRGB24 210 180 140 749 750teal :: (Ord a, Floating a) => Colour a 751teal = sRGB24 0 128 128 752 753thistle :: (Ord a, Floating a) => Colour a 754thistle = sRGB24 216 191 216 755 756tomato :: (Ord a, Floating a) => Colour a 757tomato = sRGB24 255 99 71 758 759turquoise :: (Ord a, Floating a) => Colour a 760turquoise = sRGB24 64 224 208 761 762violet :: (Ord a, Floating a) => Colour a 763violet = sRGB24 238 130 238 764 765wheat :: (Ord a, Floating a) => Colour a 766wheat = sRGB24 245 222 179 767 768white :: (Ord a, Floating a) => Colour a 769white = sRGB24 255 255 255 770 771whitesmoke :: (Ord a, Floating a) => Colour a 772whitesmoke = sRGB24 245 245 245 773 774yellow :: (Ord a, Floating a) => Colour a 775yellow = sRGB24 255 255 0 776 777yellowgreen :: (Ord a, Floating a) => Colour a 778yellowgreen = sRGB24 154 205 50 779