diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,54 @@ +Copyright (c) 2013, Jeffrey Rosenbluth + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + * Neither the name of Brent Yorgey nor the names of other + contributors may be used to endorse or promote products derived + from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +------------------------------------------------------------------------------- + +The schemes in the BrewerSet module are subject to the following copyright: +Copyright (c) 2002 Cynthia Brewer, Mark Harrower, and The Pennsylvania State University. + +Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. +You may obtain a copy of the License at + +http://www.apache.org/licenses/LICENSE-2.0 + +Unless required by applicable law or agreed to in writing, software distributed +under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR +CONDITIONS OF ANY KIND, either express or implied. See the License for the +specific language governing permissions and limitations under the License. +This text from my earlier Apache License Version 1.1 also remains in place for guidance on attribution and permissions: + +Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: +1. Redistributions as source code must retain the above copyright notice, this list of conditions and the following disclaimer. +2. The end-user documentation included with the redistribution, if any, must include the following acknowledgment: +"This product includes color specifications and designs developed by Cynthia Brewer (http://colorbrewer.org/)." +Alternately, this acknowledgment may appear in the software itself, if and wherever such third-party acknowledgments normally appear. +4. The name "ColorBrewer" must not be used to endorse or promote products derived from this software without prior written permission. For written permission, please contact Cynthia Brewer at cbrewer@psu.edu. +5. Products derived from this software may not be called "ColorBrewer", nor may "ColorBrewer" appear in their name, without prior written permission of Cynthia Brewer. diff --git a/README.markdown b/README.markdown new file mode 100644 --- /dev/null +++ b/README.markdown @@ -0,0 +1,5 @@ +Predefined color schemes and tools for creating custom schemes. + +To install, + + cabal install palette diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_accent.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_accent.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_accent.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_blues.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_blues.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_blues.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_brbg.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_brbg.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_brbg.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_bugn.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_bugn.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_bugn.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_bupu.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_bupu.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_bupu.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_dark2.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_dark2.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_dark2.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_gnbu.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_gnbu.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_gnbu.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_greens.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_greens.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_greens.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_greys.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_greys.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_greys.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_oranges.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_oranges.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_oranges.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_orrd.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_orrd.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_orrd.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_paired.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_paired.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_paired.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_pastel1.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_pastel1.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_pastel1.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_pastel2.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_pastel2.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_pastel2.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_piyg.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_piyg.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_piyg.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_prgn.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_prgn.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_prgn.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_pubu.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_pubu.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_pubu.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_pubugn.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_pubugn.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_pubugn.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_pudr.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_pudr.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_pudr.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_puor.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_puor.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_puor.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_purples.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_purples.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_purples.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_rdbu.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_rdbu.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_rdbu.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_rdgy.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_rdgy.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_rdgy.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_rdpu.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_rdpu.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_rdpu.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_rdylbu.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_rdylbu.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_rdylbu.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_rdylgn.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_rdylgn.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_rdylgn.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_reds.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_reds.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_reds.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_set1.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_set1.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_set1.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_set2.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_set2.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_set2.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_set3.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_set3.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_set3.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_spectral.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_spectral.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_spectral.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_ylgn.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_ylgn.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_ylgn.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_ylgnbu.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_ylgnbu.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_ylgnbu.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_ylorbr.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_ylorbr.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_ylorbr.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_BrewerSet_ylorrd.svg b/diagrams/src_Data_Colour_Palette_BrewerSet_ylorrd.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_BrewerSet_ylorrd.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_ColorSet_pairs.svg b/diagrams/src_Data_Colour_Palette_ColorSet_pairs.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_ColorSet_pairs.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_ColorSet_quads.svg b/diagrams/src_Data_Colour_Palette_ColorSet_quads.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_ColorSet_quads.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_ColorSet_rybWheel.svg b/diagrams/src_Data_Colour_Palette_ColorSet_rybWheel.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_ColorSet_rybWheel.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_ColorSet_singles.svg b/diagrams/src_Data_Colour_Palette_ColorSet_singles.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_ColorSet_singles.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_ColorSet_webcolors.svg b/diagrams/src_Data_Colour_Palette_ColorSet_webcolors.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_ColorSet_webcolors.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_Harmony_acce.svg b/diagrams/src_Data_Colour_Palette_Harmony_acce.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_Harmony_acce.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_Harmony_anal.svg b/diagrams/src_Data_Colour_Palette_Harmony_anal.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_Harmony_anal.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_Harmony_bw.svg b/diagrams/src_Data_Colour_Palette_Harmony_bw.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_Harmony_bw.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_Harmony_comp.svg b/diagrams/src_Data_Colour_Palette_Harmony_comp.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_Harmony_comp.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_Harmony_mono.svg b/diagrams/src_Data_Colour_Palette_Harmony_mono.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_Harmony_mono.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_Harmony_tetr.svg b/diagrams/src_Data_Colour_Palette_Harmony_tetr.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_Harmony_tetr.svg @@ -0,0 +1,4 @@ + + + diff --git a/diagrams/src_Data_Colour_Palette_Harmony_tria.svg b/diagrams/src_Data_Colour_Palette_Harmony_tria.svg new file mode 100644 --- /dev/null +++ b/diagrams/src_Data_Colour_Palette_Harmony_tria.svg @@ -0,0 +1,4 @@ + + + diff --git a/palette.cabal b/palette.cabal new file mode 100644 --- /dev/null +++ b/palette.cabal @@ -0,0 +1,33 @@ +Name: palette +Version: 0.1.0.0 +Synopsis: Utilities for choosing and creating color schemes. +Description: Sets of predefined colors and tools for choosing and + creating color schemes. + +Homepage: http://projects.haskell.org/diagrams +License: BSD3 +License-file: LICENSE +Author: Jeffrey Rosenbluth +Maintainer: jeffrey.rosenbluth@gmail.com +Bug-reports: http://github.com/diagrams/diagrams-lib/issues +Category: Data +Build-type: Simple +Cabal-version: >=1.10 + +extra-source-files: README.markdown, diagrams/*.svg + +extra-doc-files: diagrams/*.svg + +Library + Default-language: Haskell2010 + Exposed-modules: Data.Colour.Palette.ColorSet + Data.Colour.Palette.Harmony + Data.Colour.Palette.BrewerSet + + Build-depends: base >= 4.2 && < 4.8, + array >= 0.4 && < 0.6, + colour >= 2.3 && <3.0, + containers >= 0.5 && < 0.6.0.0 + + hs-source-dirs: src + diff --git a/src/Data/Colour/Palette/BrewerSet.hs b/src/Data/Colour/Palette/BrewerSet.hs new file mode 100644 --- /dev/null +++ b/src/Data/Colour/Palette/BrewerSet.hs @@ -0,0 +1,395 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Palette.Brewer +-- Copyright : (c) 2013 Jeffrey Rosenbluth +-- License : BSD-style (see LICENSE) +-- Maintainer : jeffrey.rosenbluth@gmail.com +-- +-- Sets of between 3 and 12 colors. +-- This product includes color specifications and designs developed by +-- Cynthia Brewer (http://colorbrewer.org/). +-- +----------------------------------------------------------------------------- + +module Data.Colour.Palette.BrewerSet + ( -- * Color schemes from Cynthia Brewer. + brewerSet + , Kolor + , ColorCat(..) + ) where + +import qualified Data.Map.Lazy as M +import Data.Colour +import Data.Colour.SRGB (sRGB24read) + +type Kolor = Colour Double + +-- > ylgn = bar $ brewerSet YlGn 9 +-- > ylgnbu = bar $ brewerSet YlGnBu 9 +-- > gnbu = bar $ brewerSet GnBu 9 +-- > bugn = bar $ brewerSet BuGn 9 +-- > pubugn = bar $ brewerSet PuBuGn 9 +-- > pubu = bar $ brewerSet PuBu 9 +-- > bupu = bar $ brewerSet BuPu 9 +-- > rdpu = bar $ brewerSet RdPu 9 +-- > pudr = bar $ brewerSet PuRd 9 +-- > orrd = bar $ brewerSet OrRd 9 +-- > ylorrd = bar $ brewerSet YlOrRd 9 +-- > ylorbr = bar $ brewerSet YlOrBr 9 +-- > purples = bar $ brewerSet Purples 9 +-- > blues = bar $ brewerSet Blues 9 +-- > greens = bar $ brewerSet Greens 9 +-- > oranges = bar $ brewerSet Oranges 9 +-- > reds = bar $ brewerSet Reds 9 +-- > greys = bar $ brewerSet Greys 9 +-- > puor = bar $ brewerSet PuOr 11 +-- > brbg = bar $ brewerSet BrBG 11 +-- > prgn = bar $ brewerSet PRGn 11 +-- > piyg = bar $ brewerSet PiYG 11 +-- > rdbu = bar $ brewerSet RdBu 11 +-- > rdgy = bar $ brewerSet RdGy 11 +-- > rdylbu = bar $ brewerSet RdYlBu 11 +-- > spectral = bar $ brewerSet Spectral 11 +-- > rdylgn = bar $ brewerSet RdYlGn 11 +-- > accent = bar $ brewerSet Accent 8 +-- > dark2 = bar $ brewerSet Dark2 8 +-- > paired = bar $ brewerSet Paired 12 +-- > pastel1 = bar $ brewerSet Pastel1 9 +-- > pastel2 = bar $ brewerSet Pastel2 8 +-- > set1 = bar $ brewerSet Set1 9 +-- > set2 = bar $ brewerSet Set2 8 +-- > set3 = bar $ brewerSet Set3 12 + +-- | Categories of color sets. Each category has several lists of colors. +-- Each one containing the number of colors in the range specfied. +data ColorCat = YlGn -- ^ <> 3 - 9, sequential multihue + | YlGnBu -- ^ <> 3 - 9, sequential multihue + | GnBu -- ^ <> 3 - 9, sequential multihue + | BuGn -- ^ <> 3 - 9, sequential multihue + | PuBuGn -- ^ <> 3 - 9, sequential multihue + | PuBu -- ^ <> 3 - 9, sequential multihue + | BuPu -- ^ <> 3 - 9, sequential multihue + | RdPu -- ^ <> 3 - 9, sequential multihue + | PuRd -- ^ <> 3 - 9, sequential multihue + | OrRd -- ^ <> 3 - 9, sequential multihue + | YlOrRd -- ^ <> 3 - 9, sequential multihue + | YlOrBr -- ^ <> 3 - 9, sequential multihue + | Purples -- ^ <> 3 - 9, sequential single hue + | Blues -- ^ <> 3 - 9, sequential single hue + | Greens -- ^ <> 3 - 9, sequential single hue + | Oranges -- ^ <> 3 - 9, sequential single hue + | Reds -- ^ <> 3 - 9, sequential single hue + | Greys -- ^ <> 3 - 9, sequential single hue + | PuOr -- ^ <> 3 - 11, diverging + | BrBG -- ^ <> 3 - 11, diverging + | PRGn -- ^ <> 3 - 11, diverging + | PiYG -- ^ <> 3 - 11, diverging + | RdBu -- ^ <> 3 - 11, diverging + | RdGy -- ^ <> 3 - 11, diverging + | RdYlBu -- ^ <> 3 - 11, diverging + | Spectral -- ^ <> 3 - 11, diverging + | RdYlGn -- ^ <> 3 - 11, diverging + | Accent -- ^ <> 3 - 8, qualitative + | Dark2 -- ^ <> 3 - 8, qualitative + | Paired -- ^ <> 3 - 12, qualitative + | Pastel1 -- ^ <> 3 - 9, qualitative + | Pastel2 -- ^ <> 3 - 8, qualitative + | Set1 -- ^ <> 3 - 9, qualitative + | Set2 -- ^ <> 3 - 8, qualitative + | Set3 -- ^ <> 3 - 12, qualitative + deriving (Eq, Ord) + +data ColorSet = ColorSet ColorCat Int deriving (Eq, Ord) + +-- > import Data.Colour.Palette.BrewerSet +-- > gr = 1.618 -- golden ratio +-- > +-- > bar [] = centerXY $ square gr # fc black +-- > bar cs = centerXY $ hcat [square gr # scaleX s # fc k # lw 0 | k <- cs] +-- > where s = gr / (fromIntegral (length cs)) +-- > gb = bar $ brewerSet GnBu 9 -- green/blue, sequential multihue +-- > po = bar $ brewerSet PuOr 11 -- purple/orange, diverging +-- > bs = bar $ brewerSet Paired 11 -- qualitative +-- > brewersample = hcat' (with & sep .~ 0.5) [gb, po, bs] + +-- | Obtain a list of colors for the color scheme designated by category and +-- number `n` of colors in the theme. If the category and/or number does not +-- exist then returns a list `black` repeated `n` times. +brewerSet :: ColorCat -> Int -> [Kolor] +brewerSet cat n = maybe (replicate n black) (map sRGB24read) b + where + b = M.lookup (ColorSet cat n) brewerColor + +brewerColor :: M.Map ColorSet [String] +brewerColor = M.fromList brewer + +-- Color set data ----------------------------------------------------------------------- +------------------------------------------------------------------------------- + +brewer :: [(ColorSet, [String])] +brewer = [ + (ColorSet Spectral 11, ["#9e0142","#d53e4f","#f46d43","#fdae61","#fee08b","#ffffbf","#e6f598","#abdda4","#66c2a5","#3288bd","#5e4fa2"]), + (ColorSet Spectral 10, ["#9e0142","#d53e4f","#f46d43","#fdae61","#fee08b","#e6f598","#abdda4","#66c2a5","#3288bd","#5e4fa2"]), + (ColorSet Spectral 3, ["#fc8d59","#ffffbf","#99d594"]), + (ColorSet Spectral 5, ["#d7191c","#fdae61","#ffffbf","#abdda4","#2b83ba"]), + (ColorSet Spectral 4, ["#d7191c","#fdae61","#abdda4","#2b83ba"]), + (ColorSet Spectral 7, ["#d53e4f","#fc8d59","#fee08b","#ffffbf","#e6f598","#99d594","#3288bd"]), + (ColorSet Spectral 6, ["#d53e4f","#fc8d59","#fee08b","#e6f598","#99d594","#3288bd"]), + (ColorSet Spectral 9, ["#d53e4f","#f46d43","#fdae61","#fee08b","#ffffbf","#e6f598","#abdda4","#66c2a5","#3288bd"]), + (ColorSet Spectral 8, ["#d53e4f","#f46d43","#fdae61","#fee08b","#e6f598","#abdda4","#66c2a5","#3288bd"]), + (ColorSet RdYlGn 11, ["#a50026","#d73027","#f46d43","#fdae61","#fee08b","#ffffbf","#d9ef8b","#a6d96a","#66bd63","#1a9850","#006837"]), + (ColorSet RdYlGn 10, ["#a50026","#d73027","#f46d43","#fdae61","#fee08b","#d9ef8b","#a6d96a","#66bd63","#1a9850","#006837"]), + (ColorSet RdYlGn 3, ["#fc8d59","#ffffbf","#91cf60"]), + (ColorSet RdYlGn 5, ["#d7191c","#fdae61","#ffffbf","#a6d96a","#1a9641"]), + (ColorSet RdYlGn 4, ["#d7191c","#fdae61","#a6d96a","#1a9641"]), + (ColorSet RdYlGn 7, ["#d73027","#fc8d59","#fee08b","#ffffbf","#d9ef8b","#91cf60","#1a9850"]), + (ColorSet RdYlGn 6, ["#d73027","#fc8d59","#fee08b","#d9ef8b","#91cf60","#1a9850"]), + (ColorSet RdYlGn 9, ["#d73027","#f46d43","#fdae61","#fee08b","#ffffbf","#d9ef8b","#a6d96a","#66bd63","#1a9850"]), + (ColorSet RdYlGn 8, ["#d73027","#f46d43","#fdae61","#fee08b","#d9ef8b","#a6d96a","#66bd63","#1a9850"]), + (ColorSet Set2 3, ["#66c2a5","#fc8d62","#8da0cb"]), + (ColorSet Set2 5, ["#66c2a5","#fc8d62","#8da0cb","#e78ac3","#a6d854"]), + (ColorSet Set2 4, ["#66c2a5","#fc8d62","#8da0cb","#e78ac3"]), + (ColorSet Set2 7, ["#66c2a5","#fc8d62","#8da0cb","#e78ac3","#a6d854","#ffd92f","#e5c494"]), + (ColorSet Set2 6, ["#66c2a5","#fc8d62","#8da0cb","#e78ac3","#a6d854","#ffd92f"]), + (ColorSet Set2 8, ["#66c2a5","#fc8d62","#8da0cb","#e78ac3","#a6d854","#ffd92f","#e5c494","#b3b3b3"]), + (ColorSet Accent 3, ["#7fc97f","#beaed4","#fdc086"]), + (ColorSet Accent 5, ["#7fc97f","#beaed4","#fdc086","#ffff99","#386cb0"]), + (ColorSet Accent 4, ["#7fc97f","#beaed4","#fdc086","#ffff99"]), + (ColorSet Accent 7, ["#7fc97f","#beaed4","#fdc086","#ffff99","#386cb0","#f0027f","#bf5b17"]), + (ColorSet Accent 6, ["#7fc97f","#beaed4","#fdc086","#ffff99","#386cb0","#f0027f"]), + (ColorSet Accent 8, ["#7fc97f","#beaed4","#fdc086","#ffff99","#386cb0","#f0027f","#bf5b17","#666666"]), + (ColorSet OrRd 3, ["#fee8c8","#fdbb84","#e34a33"]), + (ColorSet OrRd 5, ["#fef0d9","#fdcc8a","#fc8d59","#e34a33","#b30000"]), + (ColorSet OrRd 4, ["#fef0d9","#fdcc8a","#fc8d59","#d7301f"]), + (ColorSet OrRd 7, ["#fef0d9","#fdd49e","#fdbb84","#fc8d59","#ef6548","#d7301f","#990000"]), + (ColorSet OrRd 6, ["#fef0d9","#fdd49e","#fdbb84","#fc8d59","#e34a33","#b30000"]), + (ColorSet OrRd 9, ["#fff7ec","#fee8c8","#fdd49e","#fdbb84","#fc8d59","#ef6548","#d7301f","#b30000","#7f0000"]), + (ColorSet OrRd 8, ["#fff7ec","#fee8c8","#fdd49e","#fdbb84","#fc8d59","#ef6548","#d7301f","#990000"]), + (ColorSet Set1 3, ["#e41a1c","#377eb8","#4daf4a"]), + (ColorSet Set1 5, ["#e41a1c","#377eb8","#4daf4a","#984ea3","#ff7f00"]), + (ColorSet Set1 4, ["#e41a1c","#377eb8","#4daf4a","#984ea3"]), + (ColorSet Set1 7, ["#e41a1c","#377eb8","#4daf4a","#984ea3","#ff7f00","#ffff33","#a65628"]), + (ColorSet Set1 6, ["#e41a1c","#377eb8","#4daf4a","#984ea3","#ff7f00","#ffff33"]), + (ColorSet Set1 9, ["#e41a1c","#377eb8","#4daf4a","#984ea3","#ff7f00","#ffff33","#a65628","#f781bf","#999999"]), + (ColorSet Set1 8, ["#e41a1c","#377eb8","#4daf4a","#984ea3","#ff7f00","#ffff33","#a65628","#f781bf"]), + (ColorSet PuBu 3, ["#ece7f2","#a6bddb","#2b8cbe"]), + (ColorSet PuBu 5, ["#f1eef6","#bdc9e1","#74a9cf","#2b8cbe","#045a8d"]), + (ColorSet PuBu 4, ["#f1eef6","#bdc9e1","#74a9cf","#0570b0"]), + (ColorSet PuBu 7, ["#f1eef6","#d0d1e6","#a6bddb","#74a9cf","#3690c0","#0570b0","#034e7b"]), + (ColorSet PuBu 6, ["#f1eef6","#d0d1e6","#a6bddb","#74a9cf","#2b8cbe","#045a8d"]), + (ColorSet PuBu 9, ["#fff7fb","#ece7f2","#d0d1e6","#a6bddb","#74a9cf","#3690c0","#0570b0","#045a8d","#023858"]), + (ColorSet PuBu 8, ["#fff7fb","#ece7f2","#d0d1e6","#a6bddb","#74a9cf","#3690c0","#0570b0","#034e7b"]), + (ColorSet Set3 11, ["#8dd3c7","#ffffb3","#bebada","#fb8072","#80b1d3","#fdb462","#b3de69","#fccde5","#d9d9d9","#bc80bd","#ccebc5"]), + (ColorSet Set3 10, ["#8dd3c7","#ffffb3","#bebada","#fb8072","#80b1d3","#fdb462","#b3de69","#fccde5","#d9d9d9","#bc80bd"]), + (ColorSet Set3 12, ["#8dd3c7","#ffffb3","#bebada","#fb8072","#80b1d3","#fdb462","#b3de69","#fccde5","#d9d9d9","#bc80bd","#ccebc5","#ffed6f"]), + (ColorSet Set3 3, ["#8dd3c7","#ffffb3","#bebada"]), + (ColorSet Set3 5, ["#8dd3c7","#ffffb3","#bebada","#fb8072","#80b1d3"]), + (ColorSet Set3 4, ["#8dd3c7","#ffffb3","#bebada","#fb8072"]), + (ColorSet Set3 7, ["#8dd3c7","#ffffb3","#bebada","#fb8072","#80b1d3","#fdb462","#b3de69"]), + (ColorSet Set3 6, ["#8dd3c7","#ffffb3","#bebada","#fb8072","#80b1d3","#fdb462"]), + (ColorSet Set3 9, ["#8dd3c7","#ffffb3","#bebada","#fb8072","#80b1d3","#fdb462","#b3de69","#fccde5","#d9d9d9"]), + (ColorSet Set3 8, ["#8dd3c7","#ffffb3","#bebada","#fb8072","#80b1d3","#fdb462","#b3de69","#fccde5"]), + (ColorSet BuPu 3, ["#e0ecf4","#9ebcda","#8856a7"]), + (ColorSet BuPu 5, ["#edf8fb","#b3cde3","#8c96c6","#8856a7","#810f7c"]), + (ColorSet BuPu 4, ["#edf8fb","#b3cde3","#8c96c6","#88419d"]), + (ColorSet BuPu 7, ["#edf8fb","#bfd3e6","#9ebcda","#8c96c6","#8c6bb1","#88419d","#6e016b"]), + (ColorSet BuPu 6, ["#edf8fb","#bfd3e6","#9ebcda","#8c96c6","#8856a7","#810f7c"]), + (ColorSet BuPu 9, ["#f7fcfd","#e0ecf4","#bfd3e6","#9ebcda","#8c96c6","#8c6bb1","#88419d","#810f7c","#4d004b"]), + (ColorSet BuPu 8, ["#f7fcfd","#e0ecf4","#bfd3e6","#9ebcda","#8c96c6","#8c6bb1","#88419d","#6e016b"]), + (ColorSet Dark2 3, ["#1b9e77","#d95f02","#7570b3"]), + (ColorSet Dark2 5, ["#1b9e77","#d95f02","#7570b3","#e7298a","#66a61e"]), + (ColorSet Dark2 4, ["#1b9e77","#d95f02","#7570b3","#e7298a"]), + (ColorSet Dark2 7, ["#1b9e77","#d95f02","#7570b3","#e7298a","#66a61e","#e6ab02","#a6761d"]), + (ColorSet Dark2 6, ["#1b9e77","#d95f02","#7570b3","#e7298a","#66a61e","#e6ab02"]), + (ColorSet Dark2 8, ["#1b9e77","#d95f02","#7570b3","#e7298a","#66a61e","#e6ab02","#a6761d","#666666"]), + (ColorSet RdBu 11, ["#67001f","#b2182b","#d6604d","#f4a582","#fddbc7","#f7f7f7","#d1e5f0","#92c5de","#4393c3","#2166ac","#053061"]), + (ColorSet RdBu 10, ["#67001f","#b2182b","#d6604d","#f4a582","#fddbc7","#d1e5f0","#92c5de","#4393c3","#2166ac","#053061"]), + (ColorSet RdBu 3, ["#ef8a62","#f7f7f7","#67a9cf"]), + (ColorSet RdBu 5, ["#ca0020","#f4a582","#f7f7f7","#92c5de","#0571b0"]), + (ColorSet RdBu 4, ["#ca0020","#f4a582","#92c5de","#0571b0"]), + (ColorSet RdBu 7, ["#b2182b","#ef8a62","#fddbc7","#f7f7f7","#d1e5f0","#67a9cf","#2166ac"]), + (ColorSet RdBu 6, ["#b2182b","#ef8a62","#fddbc7","#d1e5f0","#67a9cf","#2166ac"]), + (ColorSet RdBu 9, ["#b2182b","#d6604d","#f4a582","#fddbc7","#f7f7f7","#d1e5f0","#92c5de","#4393c3","#2166ac"]), + (ColorSet RdBu 8, ["#b2182b","#d6604d","#f4a582","#fddbc7","#d1e5f0","#92c5de","#4393c3","#2166ac"]), + (ColorSet Oranges 3, ["#fee6ce","#fdae6b","#e6550d"]), + (ColorSet Oranges 5, ["#feedde","#fdbe85","#fd8d3c","#e6550d","#a63603"]), + (ColorSet Oranges 4, ["#feedde","#fdbe85","#fd8d3c","#d94701"]), + (ColorSet Oranges 7, ["#feedde","#fdd0a2","#fdae6b","#fd8d3c","#f16913","#d94801","#8c2d04"]), + (ColorSet Oranges 6, ["#feedde","#fdd0a2","#fdae6b","#fd8d3c","#e6550d","#a63603"]), + (ColorSet Oranges 9, ["#fff5eb","#fee6ce","#fdd0a2","#fdae6b","#fd8d3c","#f16913","#d94801","#a63603","#7f2704"]), + (ColorSet Oranges 8, ["#fff5eb","#fee6ce","#fdd0a2","#fdae6b","#fd8d3c","#f16913","#d94801","#8c2d04"]), + (ColorSet BuGn 3, ["#e5f5f9","#99d8c9","#2ca25f"]), + (ColorSet BuGn 5, ["#edf8fb","#b2e2e2","#66c2a4","#2ca25f","#006d2c"]), + (ColorSet BuGn 4, ["#edf8fb","#b2e2e2","#66c2a4","#238b45"]), + (ColorSet BuGn 7, ["#edf8fb","#ccece6","#99d8c9","#66c2a4","#41ae76","#238b45","#005824"]), + (ColorSet BuGn 6, ["#edf8fb","#ccece6","#99d8c9","#66c2a4","#2ca25f","#006d2c"]), + (ColorSet BuGn 9, ["#f7fcfd","#e5f5f9","#ccece6","#99d8c9","#66c2a4","#41ae76","#238b45","#006d2c","#00441b"]), + (ColorSet BuGn 8, ["#f7fcfd","#e5f5f9","#ccece6","#99d8c9","#66c2a4","#41ae76","#238b45","#005824"]), + (ColorSet PiYG 11, ["#8e0152","#c51b7d","#de77ae","#f1b6da","#fde0ef","#f7f7f7","#e6f5d0","#b8e186","#7fbc41","#4d9221","#276419"]), + (ColorSet PiYG 10, ["#8e0152","#c51b7d","#de77ae","#f1b6da","#fde0ef","#e6f5d0","#b8e186","#7fbc41","#4d9221","#276419"]), + (ColorSet PiYG 3, ["#e9a3c9","#f7f7f7","#a1d76a"]), + (ColorSet PiYG 5, ["#d01c8b","#f1b6da","#f7f7f7","#b8e186","#4dac26"]), + (ColorSet PiYG 4, ["#d01c8b","#f1b6da","#b8e186","#4dac26"]), + (ColorSet PiYG 7, ["#c51b7d","#e9a3c9","#fde0ef","#f7f7f7","#e6f5d0","#a1d76a","#4d9221"]), + (ColorSet PiYG 6, ["#c51b7d","#e9a3c9","#fde0ef","#e6f5d0","#a1d76a","#4d9221"]), + (ColorSet PiYG 9, ["#c51b7d","#de77ae","#f1b6da","#fde0ef","#f7f7f7","#e6f5d0","#b8e186","#7fbc41","#4d9221"]), + (ColorSet PiYG 8, ["#c51b7d","#de77ae","#f1b6da","#fde0ef","#e6f5d0","#b8e186","#7fbc41","#4d9221"]), + (ColorSet YlOrBr 3, ["#fff7bc","#fec44f","#d95f0e"]), + (ColorSet YlOrBr 5, ["#ffffd4","#fed98e","#fe9929","#d95f0e","#993404"]), + (ColorSet YlOrBr 4, ["#ffffd4","#fed98e","#fe9929","#cc4c02"]), + (ColorSet YlOrBr 7, ["#ffffd4","#fee391","#fec44f","#fe9929","#ec7014","#cc4c02","#8c2d04"]), + (ColorSet YlOrBr 6, ["#ffffd4","#fee391","#fec44f","#fe9929","#d95f0e","#993404"]), + (ColorSet YlOrBr 9, ["#ffffe5","#fff7bc","#fee391","#fec44f","#fe9929","#ec7014","#cc4c02","#993404","#662506"]), + (ColorSet YlOrBr 8, ["#ffffe5","#fff7bc","#fee391","#fec44f","#fe9929","#ec7014","#cc4c02","#8c2d04"]), + (ColorSet YlGn 3, ["#f7fcb9","#addd8e","#31a354"]), + (ColorSet YlGn 5, ["#ffffcc","#c2e699","#78c679","#31a354","#006837"]), + (ColorSet YlGn 4, ["#ffffcc","#c2e699","#78c679","#238443"]), + (ColorSet YlGn 7, ["#ffffcc","#d9f0a3","#addd8e","#78c679","#41ab5d","#238443","#005a32"]), + (ColorSet YlGn 6, ["#ffffcc","#d9f0a3","#addd8e","#78c679","#31a354","#006837"]), + (ColorSet YlGn 9, ["#ffffe5","#f7fcb9","#d9f0a3","#addd8e","#78c679","#41ab5d","#238443","#006837","#004529"]), + (ColorSet YlGn 8, ["#ffffe5","#f7fcb9","#d9f0a3","#addd8e","#78c679","#41ab5d","#238443","#005a32"]), + (ColorSet Pastel2 3, ["#b3e2cd","#fdcdac","#cbd5e8"]), + (ColorSet Pastel2 5, ["#b3e2cd","#fdcdac","#cbd5e8","#f4cae4","#e6f5c9"]), + (ColorSet Pastel2 4, ["#b3e2cd","#fdcdac","#cbd5e8","#f4cae4"]), + (ColorSet Pastel2 7, ["#b3e2cd","#fdcdac","#cbd5e8","#f4cae4","#e6f5c9","#fff2ae","#f1e2cc"]), + (ColorSet Pastel2 6, ["#b3e2cd","#fdcdac","#cbd5e8","#f4cae4","#e6f5c9","#fff2ae"]), + (ColorSet Pastel2 8, ["#b3e2cd","#fdcdac","#cbd5e8","#f4cae4","#e6f5c9","#fff2ae","#f1e2cc","#cccccc"]), + (ColorSet RdPu 3, ["#fde0dd","#fa9fb5","#c51b8a"]), + (ColorSet RdPu 5, ["#feebe2","#fbb4b9","#f768a1","#c51b8a","#7a0177"]), + (ColorSet RdPu 4, ["#feebe2","#fbb4b9","#f768a1","#ae017e"]), + (ColorSet RdPu 7, ["#feebe2","#fcc5c0","#fa9fb5","#f768a1","#dd3497","#ae017e","#7a0177"]), + (ColorSet RdPu 6, ["#feebe2","#fcc5c0","#fa9fb5","#f768a1","#c51b8a","#7a0177"]), + (ColorSet RdPu 9, ["#fff7f3","#fde0dd","#fcc5c0","#fa9fb5","#f768a1","#dd3497","#ae017e","#7a0177","#49006a"]), + (ColorSet RdPu 8, ["#fff7f3","#fde0dd","#fcc5c0","#fa9fb5","#f768a1","#dd3497","#ae017e","#7a0177"]), + (ColorSet Greens 3, ["#e5f5e0","#a1d99b","#31a354"]), + (ColorSet Greens 5, ["#edf8e9","#bae4b3","#74c476","#31a354","#006d2c"]), + (ColorSet Greens 4, ["#edf8e9","#bae4b3","#74c476","#238b45"]), + (ColorSet Greens 7, ["#edf8e9","#c7e9c0","#a1d99b","#74c476","#41ab5d","#238b45","#005a32"]), + (ColorSet Greens 6, ["#edf8e9","#c7e9c0","#a1d99b","#74c476","#31a354","#006d2c"]), + (ColorSet Greens 9, ["#f7fcf5","#e5f5e0","#c7e9c0","#a1d99b","#74c476","#41ab5d","#238b45","#006d2c","#00441b"]), + (ColorSet Greens 8, ["#f7fcf5","#e5f5e0","#c7e9c0","#a1d99b","#74c476","#41ab5d","#238b45","#005a32"]), + (ColorSet PRGn 11, ["#40004b","#762a83","#9970ab","#c2a5cf","#e7d4e8","#f7f7f7","#d9f0d3","#a6dba0","#5aae61","#1b7837","#00441b"]), + (ColorSet PRGn 10, ["#40004b","#762a83","#9970ab","#c2a5cf","#e7d4e8","#d9f0d3","#a6dba0","#5aae61","#1b7837","#00441b"]), + (ColorSet PRGn 3, ["#af8dc3","#f7f7f7","#7fbf7b"]), + (ColorSet PRGn 5, ["#7b3294","#c2a5cf","#f7f7f7","#a6dba0","#008837"]), + (ColorSet PRGn 4, ["#7b3294","#c2a5cf","#a6dba0","#008837"]), + (ColorSet PRGn 7, ["#762a83","#af8dc3","#e7d4e8","#f7f7f7","#d9f0d3","#7fbf7b","#1b7837"]), + (ColorSet PRGn 6, ["#762a83","#af8dc3","#e7d4e8","#d9f0d3","#7fbf7b","#1b7837"]), + (ColorSet PRGn 9, ["#762a83","#9970ab","#c2a5cf","#e7d4e8","#f7f7f7","#d9f0d3","#a6dba0","#5aae61","#1b7837"]), + (ColorSet PRGn 8, ["#762a83","#9970ab","#c2a5cf","#e7d4e8","#d9f0d3","#a6dba0","#5aae61","#1b7837"]), + (ColorSet YlGnBu 3, ["#edf8b1","#7fcdbb","#2c7fb8"]), + (ColorSet YlGnBu 5, ["#ffffcc","#a1dab4","#41b6c4","#2c7fb8","#253494"]), + (ColorSet YlGnBu 4, ["#ffffcc","#a1dab4","#41b6c4","#225ea8"]), + (ColorSet YlGnBu 7, ["#ffffcc","#c7e9b4","#7fcdbb","#41b6c4","#1d91c0","#225ea8","#0c2c84"]), + (ColorSet YlGnBu 6, ["#ffffcc","#c7e9b4","#7fcdbb","#41b6c4","#2c7fb8","#253494"]), + (ColorSet YlGnBu 9, ["#ffffd9","#edf8b1","#c7e9b4","#7fcdbb","#41b6c4","#1d91c0","#225ea8","#253494","#081d58"]), + (ColorSet YlGnBu 8, ["#ffffd9","#edf8b1","#c7e9b4","#7fcdbb","#41b6c4","#1d91c0","#225ea8","#0c2c84"]), + (ColorSet RdYlBu 11, ["#a50026","#d73027","#f46d43","#fdae61","#fee090","#ffffbf","#e0f3f8","#abd9e9","#74add1","#4575b4","#313695"]), + (ColorSet RdYlBu 10, ["#a50026","#d73027","#f46d43","#fdae61","#fee090","#e0f3f8","#abd9e9","#74add1","#4575b4","#313695"]), + (ColorSet RdYlBu 3, ["#fc8d59","#ffffbf","#91bfdb"]), + (ColorSet RdYlBu 5, ["#d7191c","#fdae61","#ffffbf","#abd9e9","#2c7bb6"]), + (ColorSet RdYlBu 4, ["#d7191c","#fdae61","#abd9e9","#2c7bb6"]), + (ColorSet RdYlBu 7, ["#d73027","#fc8d59","#fee090","#ffffbf","#e0f3f8","#91bfdb","#4575b4"]), + (ColorSet RdYlBu 6, ["#d73027","#fc8d59","#fee090","#e0f3f8","#91bfdb","#4575b4"]), + (ColorSet RdYlBu 9, ["#d73027","#f46d43","#fdae61","#fee090","#ffffbf","#e0f3f8","#abd9e9","#74add1","#4575b4"]), + (ColorSet RdYlBu 8, ["#d73027","#f46d43","#fdae61","#fee090","#e0f3f8","#abd9e9","#74add1","#4575b4"]), + (ColorSet Paired 11, ["#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99","#e31a1c","#fdbf6f","#ff7f00","#cab2d6","#6a3d9a","#ffff99"]), + (ColorSet Paired 10, ["#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99","#e31a1c","#fdbf6f","#ff7f00","#cab2d6","#6a3d9a"]), + (ColorSet Paired 12, ["#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99","#e31a1c","#fdbf6f","#ff7f00","#cab2d6","#6a3d9a","#ffff99","#b15928"]), + (ColorSet Paired 3, ["#a6cee3","#1f78b4","#b2df8a"]), + (ColorSet Paired 5, ["#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99"]), + (ColorSet Paired 4, ["#a6cee3","#1f78b4","#b2df8a","#33a02c"]), + (ColorSet Paired 7, ["#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99","#e31a1c","#fdbf6f"]), + (ColorSet Paired 6, ["#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99","#e31a1c"]), + (ColorSet Paired 9, ["#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99","#e31a1c","#fdbf6f","#ff7f00","#cab2d6"]), + (ColorSet Paired 8, ["#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99","#e31a1c","#fdbf6f","#ff7f00"]), + (ColorSet BrBG 11, ["#543005","#8c510a","#bf812d","#dfc27d","#f6e8c3","#f5f5f5","#c7eae5","#80cdc1","#35978f","#01665e","#003c30"]), + (ColorSet BrBG 10, ["#543005","#8c510a","#bf812d","#dfc27d","#f6e8c3","#c7eae5","#80cdc1","#35978f","#01665e","#003c30"]), + (ColorSet BrBG 3, ["#d8b365","#f5f5f5","#5ab4ac"]), + (ColorSet BrBG 5, ["#a6611a","#dfc27d","#f5f5f5","#80cdc1","#018571"]), + (ColorSet BrBG 4, ["#a6611a","#dfc27d","#80cdc1","#018571"]), + (ColorSet BrBG 7, ["#8c510a","#d8b365","#f6e8c3","#f5f5f5","#c7eae5","#5ab4ac","#01665e"]), + (ColorSet BrBG 6, ["#8c510a","#d8b365","#f6e8c3","#c7eae5","#5ab4ac","#01665e"]), + (ColorSet BrBG 9, ["#8c510a","#bf812d","#dfc27d","#f6e8c3","#f5f5f5","#c7eae5","#80cdc1","#35978f","#01665e"]), + (ColorSet BrBG 8, ["#8c510a","#bf812d","#dfc27d","#f6e8c3","#c7eae5","#80cdc1","#35978f","#01665e"]), + (ColorSet Purples 3, ["#efedf5","#bcbddc","#756bb1"]), + (ColorSet Purples 5, ["#f2f0f7","#cbc9e2","#9e9ac8","#756bb1","#54278f"]), + (ColorSet Purples 4, ["#f2f0f7","#cbc9e2","#9e9ac8","#6a51a3"]), + (ColorSet Purples 7, ["#f2f0f7","#dadaeb","#bcbddc","#9e9ac8","#807dba","#6a51a3","#4a1486"]), + (ColorSet Purples 6, ["#f2f0f7","#dadaeb","#bcbddc","#9e9ac8","#756bb1","#54278f"]), + (ColorSet Purples 9, ["#fcfbfd","#efedf5","#dadaeb","#bcbddc","#9e9ac8","#807dba","#6a51a3","#54278f","#3f007d"]), + (ColorSet Purples 8, ["#fcfbfd","#efedf5","#dadaeb","#bcbddc","#9e9ac8","#807dba","#6a51a3","#4a1486"]), + (ColorSet Reds 3, ["#fee0d2","#fc9272","#de2d26"]), + (ColorSet Reds 5, ["#fee5d9","#fcae91","#fb6a4a","#de2d26","#a50f15"]), + (ColorSet Reds 4, ["#fee5d9","#fcae91","#fb6a4a","#cb181d"]), + (ColorSet Reds 7, ["#fee5d9","#fcbba1","#fc9272","#fb6a4a","#ef3b2c","#cb181d","#99000d"]), + (ColorSet Reds 6, ["#fee5d9","#fcbba1","#fc9272","#fb6a4a","#de2d26","#a50f15"]), + (ColorSet Reds 9, ["#fff5f0","#fee0d2","#fcbba1","#fc9272","#fb6a4a","#ef3b2c","#cb181d","#a50f15","#67000d"]), + (ColorSet Reds 8, ["#fff5f0","#fee0d2","#fcbba1","#fc9272","#fb6a4a","#ef3b2c","#cb181d","#99000d"]), + (ColorSet Pastel1 3, ["#fbb4ae","#b3cde3","#ccebc5"]), + (ColorSet Pastel1 5, ["#fbb4ae","#b3cde3","#ccebc5","#decbe4","#fed9a6"]), + (ColorSet Pastel1 4, ["#fbb4ae","#b3cde3","#ccebc5","#decbe4"]), + (ColorSet Pastel1 7, ["#fbb4ae","#b3cde3","#ccebc5","#decbe4","#fed9a6","#ffffcc","#e5d8bd"]), + (ColorSet Pastel1 6, ["#fbb4ae","#b3cde3","#ccebc5","#decbe4","#fed9a6","#ffffcc"]), + (ColorSet Pastel1 9, ["#fbb4ae","#b3cde3","#ccebc5","#decbe4","#fed9a6","#ffffcc","#e5d8bd","#fddaec","#f2f2f2"]), + (ColorSet Pastel1 8, ["#fbb4ae","#b3cde3","#ccebc5","#decbe4","#fed9a6","#ffffcc","#e5d8bd","#fddaec"]), + (ColorSet GnBu 3, ["#e0f3db","#a8ddb5","#43a2ca"]), + (ColorSet GnBu 5, ["#f0f9e8","#bae4bc","#7bccc4","#43a2ca","#0868ac"]), + (ColorSet GnBu 4, ["#f0f9e8","#bae4bc","#7bccc4","#2b8cbe"]), + (ColorSet GnBu 7, ["#f0f9e8","#ccebc5","#a8ddb5","#7bccc4","#4eb3d3","#2b8cbe","#08589e"]), + (ColorSet GnBu 6, ["#f0f9e8","#ccebc5","#a8ddb5","#7bccc4","#43a2ca","#0868ac"]), + (ColorSet GnBu 9, ["#f7fcf0","#e0f3db","#ccebc5","#a8ddb5","#7bccc4","#4eb3d3","#2b8cbe","#0868ac","#084081"]), + (ColorSet GnBu 8, ["#f7fcf0","#e0f3db","#ccebc5","#a8ddb5","#7bccc4","#4eb3d3","#2b8cbe","#08589e"]), + (ColorSet Greys 3, ["#f0f0f0","#bdbdbd","#636363"]), + (ColorSet Greys 5, ["#f7f7f7","#cccccc","#969696","#636363","#252525"]), + (ColorSet Greys 4, ["#f7f7f7","#cccccc","#969696","#525252"]), + (ColorSet Greys 7, ["#f7f7f7","#d9d9d9","#bdbdbd","#969696","#737373","#525252","#252525"]), + (ColorSet Greys 6, ["#f7f7f7","#d9d9d9","#bdbdbd","#969696","#636363","#252525"]), + (ColorSet Greys 9, ["#ffffff","#f0f0f0","#d9d9d9","#bdbdbd","#969696","#737373","#525252","#252525","#000000"]), + (ColorSet Greys 8, ["#ffffff","#f0f0f0","#d9d9d9","#bdbdbd","#969696","#737373","#525252","#252525"]), + (ColorSet RdGy 11, ["#67001f","#b2182b","#d6604d","#f4a582","#fddbc7","#ffffff","#e0e0e0","#bababa","#878787","#4d4d4d","#1a1a1a"]), + (ColorSet RdGy 10, ["#67001f","#b2182b","#d6604d","#f4a582","#fddbc7","#e0e0e0","#bababa","#878787","#4d4d4d","#1a1a1a"]), + (ColorSet RdGy 3, ["#ef8a62","#ffffff","#999999"]), + (ColorSet RdGy 5, ["#ca0020","#f4a582","#ffffff","#bababa","#404040"]), + (ColorSet RdGy 4, ["#ca0020","#f4a582","#bababa","#404040"]), + (ColorSet RdGy 7, ["#b2182b","#ef8a62","#fddbc7","#ffffff","#e0e0e0","#999999","#4d4d4d"]), + (ColorSet RdGy 6, ["#b2182b","#ef8a62","#fddbc7","#e0e0e0","#999999","#4d4d4d"]), + (ColorSet RdGy 9, ["#b2182b","#d6604d","#f4a582","#fddbc7","#ffffff","#e0e0e0","#bababa","#878787","#4d4d4d"]), + (ColorSet RdGy 8, ["#b2182b","#d6604d","#f4a582","#fddbc7","#e0e0e0","#bababa","#878787","#4d4d4d"]), + (ColorSet YlOrRd 3, ["#ffeda0","#feb24c","#f03b20"]), + (ColorSet YlOrRd 5, ["#ffffb2","#fecc5c","#fd8d3c","#f03b20","#bd0026"]), + (ColorSet YlOrRd 4, ["#ffffb2","#fecc5c","#fd8d3c","#e31a1c"]), + (ColorSet YlOrRd 7, ["#ffffb2","#fed976","#feb24c","#fd8d3c","#fc4e2a","#e31a1c","#b10026"]), + (ColorSet YlOrRd 6, ["#ffffb2","#fed976","#feb24c","#fd8d3c","#f03b20","#bd0026"]), + (ColorSet YlOrRd 9, ["#ffffcc","#ffeda0","#fed976","#feb24c","#fd8d3c","#fc4e2a","#e31a1c","#bd0026","#800026"]), + (ColorSet YlOrRd 8, ["#ffffcc","#ffeda0","#fed976","#feb24c","#fd8d3c","#fc4e2a","#e31a1c","#b10026"]), + (ColorSet PuOr 11, ["#7f3b08","#b35806","#e08214","#fdb863","#fee0b6","#f7f7f7","#d8daeb","#b2abd2","#8073ac","#542788","#2d004b"]), + (ColorSet PuOr 10, ["#7f3b08","#b35806","#e08214","#fdb863","#fee0b6","#d8daeb","#b2abd2","#8073ac","#542788","#2d004b"]), + (ColorSet PuOr 3, ["#f1a340","#f7f7f7","#998ec3"]), + (ColorSet PuOr 5, ["#e66101","#fdb863","#f7f7f7","#b2abd2","#5e3c99"]), + (ColorSet PuOr 4, ["#e66101","#fdb863","#b2abd2","#5e3c99"]), + (ColorSet PuOr 7, ["#b35806","#f1a340","#fee0b6","#f7f7f7","#d8daeb","#998ec3","#542788"]), + (ColorSet PuOr 6, ["#b35806","#f1a340","#fee0b6","#d8daeb","#998ec3","#542788"]), + (ColorSet PuOr 9, ["#b35806","#e08214","#fdb863","#fee0b6","#f7f7f7","#d8daeb","#b2abd2","#8073ac","#542788"]), + (ColorSet PuOr 8, ["#b35806","#e08214","#fdb863","#fee0b6","#d8daeb","#b2abd2","#8073ac","#542788"]), + (ColorSet PuRd 3, ["#e7e1ef","#c994c7","#dd1c77"]), + (ColorSet PuRd 5, ["#f1eef6","#d7b5d8","#df65b0","#dd1c77","#980043"]), + (ColorSet PuRd 4, ["#f1eef6","#d7b5d8","#df65b0","#ce1256"]), + (ColorSet PuRd 7, ["#f1eef6","#d4b9da","#c994c7","#df65b0","#e7298a","#ce1256","#91003f"]), + (ColorSet PuRd 6, ["#f1eef6","#d4b9da","#c994c7","#df65b0","#dd1c77","#980043"]), + (ColorSet PuRd 9, ["#f7f4f9","#e7e1ef","#d4b9da","#c994c7","#df65b0","#e7298a","#ce1256","#980043","#67001f"]), + (ColorSet PuRd 8, ["#f7f4f9","#e7e1ef","#d4b9da","#c994c7","#df65b0","#e7298a","#ce1256","#91003f"]), + (ColorSet Blues 3, ["#deebf7","#9ecae1","#3182bd"]), + (ColorSet Blues 5, ["#eff3ff","#bdd7e7","#6baed6","#3182bd","#08519c"]), + (ColorSet Blues 4, ["#eff3ff","#bdd7e7","#6baed6","#2171b5"]), + (ColorSet Blues 7, ["#eff3ff","#c6dbef","#9ecae1","#6baed6","#4292c6","#2171b5","#084594"]), + (ColorSet Blues 6, ["#eff3ff","#c6dbef","#9ecae1","#6baed6","#3182bd","#08519c"]), + (ColorSet Blues 9, ["#f7fbff","#deebf7","#c6dbef","#9ecae1","#6baed6","#4292c6","#2171b5","#08519c","#08306b"]), + (ColorSet Blues 8, ["#f7fbff","#deebf7","#c6dbef","#9ecae1","#6baed6","#4292c6","#2171b5","#084594"]), + (ColorSet PuBuGn 3, ["#ece2f0","#a6bddb","#1c9099"]), + (ColorSet PuBuGn 5, ["#f6eff7","#bdc9e1","#67a9cf","#1c9099","#016c59"]), + (ColorSet PuBuGn 4, ["#f6eff7","#bdc9e1","#67a9cf","#02818a"]), + (ColorSet PuBuGn 7, ["#f6eff7","#d0d1e6","#a6bddb","#67a9cf","#3690c0","#02818a","#016450"]), + (ColorSet PuBuGn 6, ["#f6eff7","#d0d1e6","#a6bddb","#67a9cf","#1c9099","#016c59"]), + (ColorSet PuBuGn 9, ["#fff7fb","#ece2f0","#d0d1e6","#a6bddb","#67a9cf","#3690c0","#02818a","#016c59","#014636"]), + (ColorSet PuBuGn 8, ["#fff7fb","#ece2f0","#d0d1e6","#a6bddb","#67a9cf","#3690c0","#02818a","#016450"])] diff --git a/src/Data/Colour/Palette/ColorSet.hs b/src/Data/Colour/Palette/ColorSet.hs new file mode 100644 --- /dev/null +++ b/src/Data/Colour/Palette/ColorSet.hs @@ -0,0 +1,254 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Palette.Palettes +-- Copyright : (c) 2013 Jeffrey Rosenbluth +-- License : BSD-style (see LICENSE) +-- Maintainer : jeffrey.rosenbluth@gmail.com +-- +-- Predefined sets of colors. Including the common html/css colors, The +-- colors from d3.js and the standard color wheel. +-- d3 Colors from https:\/\/github.com\/mbostock\/d3\/wiki\/Ordinal-Scales. +-- +----------------------------------------------------------------------------- + +module Data.Colour.Palette.ColorSet + ( -- * Predefined color palettes + + Kolor + + -- ** RYB color wheel - red, rellow, blue + -- *** Artist's pigment color wheel + + , rybColor + + -- ** Colors from d3.js + + , Brightness(..) + , d3Colors1, d3Colors2, d3Colors4 + + -- ** Common html colors + + , webColors, infiniteWebColors, getWebColor + + ) where + +import Data.Array.IArray +import Data.List (sortBy) +import Data.Colour +import Data.Colour.SRGB (sRGB24read, toSRGB) +import Data.Colour.RGBSpace.HSV (hue) + +type Kolor = Colour Double + +-- > import Data.Colour.Palette.ColorSet +-- > wheel [] = circle 1 # fc black +-- > wheel cs = wheel' # rotateBy r +-- > where +-- > wheel' = mconcat $ zipWith fc cs (iterateN n (rotateBy a) w) +-- > n = length cs +-- > a = 1 / (fromIntegral n) :: Turn +-- > w = wedge 1 (0 :: Turn) a # lw 0 +-- > r = 1/4 - 1/(2*(fromIntegral n)) + +-- > rybWheel = wheel [rybColor i | i <- [0..23]] + +-- | The 24 colors from the artist's RYB color wheel. 0 == red. +-- <> +rybColor :: Int -> Kolor +rybColor i = rybColorA ! (i `mod` 24) + +-- A few hundred common html colors ------------------------------------------- +------------------------------------------------------------------------------- +numColors :: Int +numColors = length webColorL + +-- Number of colors to skip beteen choices from hueColors. +-- The idea is to skip enough similar colors so that the next color +-- is not too similar. +primeRepeat :: Int +primeRepeat = 61 + +-- | Choose the `n`th color in an array @a@ skipping @skip@ colors +-- every time. +getWebColor :: Array Int (Kolor) -> Int -> Int -> Kolor +getWebColor a skip n = a ! idx + where + (i, k) = bounds a + j = (n * skip) `mod` k + idx = max i j + +-- > web = [[webColors (19 * j + i) | i <- [0..19]] | j <- [0..14]] +-- > webcolors = grid web + +-- | Return a color from webColorL arranged as to provide nice contrast +-- between near by colors. +-- +-- <> +webColors :: Int -> Kolor +webColors i = getWebColor webColorA primeRepeat (i+1) -- Start with a blue. + +-- | A List of webColors ordered as above, cycling infinitely many times. +infiniteWebColors :: [Kolor] +infiniteWebColors = cycle [webColors j | j <- [0..numColors-1]] + +-- Colors from d3. ------------------------------------------------------------ +------------------------------------------------------------------------------- + +-- | Four levels of brightness for functions that take a @Brightness@ parameter. +-- For functions with only two levels of @Brightness@ we set @darkest == dark@ +-- and @lightest == light@. +data Brightness = Darkest | Dark | Light | Lightest + deriving (Eq) + +-- > import Data.Colour.Palette.ColorSet +-- > gr = 1.618 -- golden ratio +-- > +-- > bar [] = centerXY $ square gr # fc black +-- > bar cs = centerXY $ hcat [square gr # scaleX s # fc k # lw 0 | k <- cs] +-- > where s = gr / (fromIntegral (length cs)) +-- +-- > singles = bar [d3Colors1 n | n <- [0..9]] + +-- | Choose from one of 10 contrasting colors (0-9) borrowed from mbostock's d3. +-- +-- <> +d3Colors1 :: Int -> Kolor +d3Colors1 n = d3c10 ! (n `mod` 10) + +-- > d2 = [[d3Colors2 Dark n | n <- [0..9]], [d3Colors2 Light n | n <- [0..9]]] +-- > pairs = grid d2 + +-- > grid [] = centerXY $ square gr # fc black +-- > grid cs = centerXY $ vcat [bar c # scaleY s | c <- cs] +-- > where s = 1 / (fromIntegral (length cs)) + +-- | Choose 0 for dark and 1 for light for each pair of 10 sets of contrasting +-- colors (0-9) from d3. +-- +-- <> +d3Colors2 :: Brightness -> Int -> Kolor +d3Colors2 b n = d3c20 ! ((n `mod` 10), k) + where k = if b == Darkest || b == Dark then 0 else 1 + +-- > d4 = [[d3Colors4 b n | n <- [0..9]] | b <- [Darkest, Dark, Light, Lightest]] +-- > quads = grid d4 + +-- | Choose from 4 levels of darkness - 0 for darkest, 3 - for lightest. From +-- 10 quadruples of contrasting colors (0-9) from d3. +-- +-- <> +d3Colors4 :: Brightness -> Int -> Kolor +d3Colors4 b n =d3c20bc ! ((n `mod` 10), k) + where k = case b of + Darkest -> 0 + Dark -> 1 + Light -> 2 + Lightest -> 3 + +-- Color data ----------------------------------------------------------------- +------------------------------------------------------------------------------- + +-- d3.scale.category10() +d3_10 :: [Kolor] +d3_10 = map sRGB24read + [ "#1f77b4", "#ff7f0e", "#2ca02c", "#d62728", "#9467bd" + , "#8c564b", "#e377c2", "#7f7f7f", "#bcbd22", "#17becf"] + +d3c10 :: Array Int (Kolor) +d3c10 = listArray (0,9) d3_10 + +-- d3.scale.category20() +d3_20 :: [Kolor] +d3_20 = map sRGB24read + [ "#1f77b4", "#aec7e8", "#ff7f0e", "#ffbb78", "#2ca02c" + , "#98df8a", "#d62728", "#ff9896", "#9467bd", "#c5b0d5" + , "#8c564b", "#c49c94", "#e377c2", "#f7b6d2", "#7f7f7f" + , "#c7c7c7", "#bcbd22", "#dbdb8d", "#17becf", "#9edae5"] + +d3c20 :: Array (Int, Int) (Kolor) +d3c20 = listArray ((0,0),(9,1)) d3_20 + +-- d3.scale.category20b() and d3.scale.category20c() +d3_40 :: [Kolor] +d3_40 = map sRGB24read + [ "#393b79", "#5254a3", "#6b6ecf", "#9c9ede", "#637939" + , "#8ca252", "#b5cf6b", "#cedb9c", "#8c6d31", "#bd9e39" + , "#e7ba52", "#e7cb94", "#843c39", "#ad494a", "#d6616b" + , "#e7969c", "#7b4173", "#a55194", "#ce6dbd", "#de9ed6" + , "#3182bd", "#6baed6", "#9ecae1", "#c6dbef", "#e6550d" + , "#fd8d3c", "#fdae6b", "#fdd0a2", "#31a354", "#74c476" + , "#a1d99b", "#c7e9c0", "#756bb1", "#9e9ac8", "#bcbddc" + , "#dadaeb", "#636363", "#969696", "#bdbdbd", "#d9d9d9"] + +d3c20bc :: Array (Int, Int) (Kolor) +d3c20bc = listArray ((0,0),(9,3)) d3_40 + +-- List of commonly used html colors. +htmlColors :: [Kolor] +htmlColors = map sRGB24read + [ "#000000", "#2c3539", "#2b1b17", "#34282c", "#25383c", "#3b3131", "#413839" + , "#463e3f", "#4c4646", "#504a4b", "#565051", "#5c5858", "#625d5d", "#666362" + , "#6d6968", "#726e6d", "#736f6e", "#837e7c", "#848482", "#b6b6b4", "#d1d0ce" + , "#e5e4e2", "#bcc6cc", "#98afc7", "#6d7b8d", "#657383", "#616d7e", "#646d7e" + , "#566d7e", "#737ca1", "#4863a0", "#2b547e", "#2b3856", "#151b54", "#000080" + , "#342d7e", "#15317e", "#151b8d", "#0000a0", "#0020c2", "#0041c2", "#2554c7" + , "#1569c7", "#2b60de", "#1f45fc", "#6960ec", "#736aff", "#357ec7", "#488ac7" + , "#3090c7", "#659ec7", "#87afc7", "#95b9c7", "#728fce", "#2b65ec", "#306eff" + , "#157dec", "#1589ff", "#6495ed", "#6698ff", "#38acec", "#56a5ec", "#5cb3ff" + , "#3bb9ff", "#79baec", "#82cafa", "#82caff", "#a0cfec", "#b7ceec", "#b4cfec" + , "#c2dfff", "#c6deff", "#afdcec", "#addfff", "#bdedff", "#cfecec", "#e0ffff" + , "#ebf4fa", "#f0f8ff", "#f0ffff", "#ccffff", "#93ffe8", "#9afeff", "#7fffd4" + , "#00ffff", "#7dfdfe", "#57feff", "#8eebec", "#50ebec", "#4ee2ec", "#81d8d0" + , "#92c7c7", "#77bfc7", "#78c7c7", "#48cccd", "#43c6db", "#46c7c7", "#43bfc7" + , "#3ea99f", "#3b9c9c", "#438d80", "#348781", "#307d7e", "#5e7d7e", "#4c787e" + , "#008080", "#4e8975", "#78866b", "#617c58", "#728c00", "#667c26", "#254117" + , "#306754", "#347235", "#437c17", "#387c44", "#347c2c", "#347c17", "#348017" + , "#4e9258", "#6aa121", "#4aa02c", "#41a317", "#3ea055", "#6cbb3c", "#6cc417" + , "#4cc417", "#52d017", "#4cc552", "#54c571", "#99c68e", "#89c35c", "#85bb65" + , "#8bb381", "#9cb071", "#b2c248", "#9dc209", "#a1c935", "#7fe817", "#59e817" + , "#57e964", "#64e986", "#5efb6e", "#00ff00", "#5ffb17", "#87f717", "#8afb17" + , "#6afb92", "#98ff98", "#b5eaaa", "#c3fdb8", "#ccfb5d", "#b1fb17", "#bce954" + , "#edda74", "#ede275", "#ffe87c", "#ffff00", "#fff380", "#ffffc2", "#ffffcc" + , "#fff8c6", "#fff8dc", "#f5f5dc", "#faebd7", "#ffebcd", "#f3e5ab", "#ece5b6" + , "#ffe5b4", "#ffdb58", "#ffd801", "#fdd017", "#eac117", "#f2bb66", "#fbb917" + , "#fbb117", "#ffa62f", "#e9ab17", "#e2a76f", "#deb887", "#ffcba4", "#c9be62" + , "#e8a317", "#ee9a4d", "#c8b560", "#d4a017", "#c2b280", "#c7a317", "#c68e17" + , "#b5a642", "#ada96e", "#c19a6b", "#cd7f32", "#c88141", "#c58917", "#af7817" + , "#b87333", "#966f33", "#806517", "#827839", "#827b60", "#786d5f", "#493d26" + , "#483c32", "#6f4e37", "#835c3b", "#7f5217", "#7f462c", "#c47451", "#c36241" + , "#c35817", "#c85a17", "#cc6600", "#e56717", "#e66c2c", "#f87217", "#f87431" + , "#e67451", "#ff8040", "#f88017", "#ff7f50", "#f88158", "#f9966b", "#e78a61" + , "#e18b6b", "#e77471", "#f75d59", "#e55451", "#e55b3c", "#ff0000", "#ff2400" + , "#f62217", "#f70d1a", "#f62817", "#e42217", "#e41b17", "#dc381f", "#c34a2c" + , "#c24641", "#c04000", "#c11b17", "#9f000f", "#990012", "#8c001a", "#7e3517" + , "#8a4117", "#7e3817", "#800517", "#810541", "#7d0541", "#7e354d", "#7d0552" + , "#7f4e52", "#7f5a58", "#7f525d", "#b38481", "#c5908e", "#c48189", "#c48793" + , "#e8adaa", "#edc9af", "#fdd7e4", "#fcdfff", "#ffdfdd", "#fbbbb9", "#faafbe" + , "#faafba", "#f9a7b0", "#e7a1b0", "#e799a3", "#e38aae", "#f778a1", "#e56e94" + , "#f660ab", "#fc6c85", "#f6358a", "#f52887", "#e45e9d", "#e4287c", "#f535aa" + , "#ff00ff", "#e3319d", "#f433ff", "#d16587", "#c25a7c", "#ca226b", "#c12869" + , "#c12267", "#c25283", "#c12283", "#b93b8f", "#7e587e", "#571b7e", "#583759" + , "#4b0082", "#461b7e", "#4e387e", "#614051", "#5e5a80", "#6a287e", "#7d1b7e" + , "#a74ac7", "#b048b5", "#6c2dc7", "#842dce", "#8d38c9", "#7a5dc7", "#7f38ec" + , "#8e35ef", "#893bff", "#8467d7", "#a23bec", "#b041ff", "#c45aec", "#9172ec" + , "#9e7bff", "#d462ff", "#e238ec", "#c38ec7", "#c8a2c8", "#e6a9ec", "#e0b0ff" + , "#f9b7ff", "#d2b9d3", "#e9cfec", "#ebdde2", "#e3e4fa", "#fdeef4", "#fff5ee" + , "#fefcff", "#ffffff" ] + +webColorL :: [Kolor] +webColorL = sortBy (\x y -> f x `compare` f y) htmlColors + where f = hue . toSRGB + +webColorA :: Array Int (Kolor) +webColorA = listArray (0, numColors-1) webColorL + +rybColors :: [Kolor] +rybColors = map sRGB24read + [ "#ff0000", "#ff4900", "#ff7400", "#ff9200", "#ffaa00" + , "#ffbf00", "#ffd300", "#ffe800", "#ffff00", "#ccf600" + , "#9fee00", "#67e300", "#00cc00", "#00af64", "#009999" + , "#0b61a4", "#1240ab", "#1b1bb3", "#3914af", "#530fad" + , "#7109aa", "#a600a6", "#cd0074", "#e40045"] + +rybColorA :: Array Int (Kolor) +rybColorA = listArray (0,23) rybColors diff --git a/src/Data/Colour/Palette/Harmony.hs b/src/Data/Colour/Palette/Harmony.hs new file mode 100644 --- /dev/null +++ b/src/Data/Colour/Palette/Harmony.hs @@ -0,0 +1,161 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Palette.Harmony +-- Copyright : (c) 2013 Jeffrey Rosenbluth +-- License : BSD-style (see LICENSE) +-- Maintainer : jeffrey.rosenbluth@gmail.com +-- +-- Utility functions to creating color schemes. +-- +----------------------------------------------------------------------------- + +module Data.Colour.Palette.Harmony + ( -- * Choosing color schemes + + Kolor + + -- ** Color utilities + + , tint, tone, shade, sliders, rotateColor + + -- ** Color harmonies + + , monochrome + , complement + , triad + , tetrad + , analogic + , accentAnalogic + , bwg + + ) where + +import Data.Colour +import Data.Colour.SRGB (RGB(..), toSRGB, sRGB) +import Data.Colour.RGBSpace.HSV +import Data.Colour.Names + +type Kolor = Colour Double + +-- > import Data.Colour.Palette.Harmony +-- > import Data.Colour.SRGB (sRGB24read) +-- > wheel [] = circle 1 # fc black +-- > wheel cs = wheel' # rotateBy r +-- > where +-- > wheel' = mconcat $ zipWith fc cs (iterateN n (rotateBy a) w) +-- > n = length cs +-- > a = 1 / (fromIntegral n) :: Turn +-- > w = wedge 1 (0 :: Turn) a # lw 0 +-- > r = 1/4 - 1/(2*(fromIntegral n)) +-- > base = sRGB24read "#bd4932" +-- > mono = wheel $ monochrome base +-- > comp = wheel $ complement base +-- > tria = wheel $ triad base +-- > tetr = wheel $ tetrad base +-- > anal = wheel $ analogic base +-- > acce = wheel $ accentAnalogic base +-- > bw = wheel $ bwg base + +-- This function and it's inverse below are the key to using the artists' +-- pigment color wheel. Red, blue and yellow are the primary colors and the +-- corresponding secondary colors are green, oragne and violet. We convert a +-- hue from the HSV in degrees (red = 0) to a hue on the artists' color wheel. +hsvToRyb :: Double -> Double +hsvToRyb x + | x < 35 = 1.71 * x + | x < 60 = 60 + 2.40 * (x - 35) + | x < 135 = 120 + 0.80 * (x - 60) + | x < 225 = 180 + 0.67 * (x - 135) + | x < 275 = 240 + 1.20 * (x - 225) + | otherwise = 300 + 0.71 * (x - 275) + +-- Convert of hue on the artists color wheel to a hue in HSV space. +rybToHsv :: Double -> Double +rybToHsv x + | x < 60 = 0.58 * x + | x < 120 = 35 + 0.42 * (x - 60) + | x < 180 = 60 + 1.25 * (x - 120) + | x < 240 = 135 + 1.50 * (x - 180) + | x < 300 = 225 + 0.83 * (x - 240) + | otherwise = 275 + 1.42 * (x - 300) + +-- Rotate a hue on the RYB color wheel. +rotateHue :: Double -> Double -> Double +rotateHue h degrees = rybToHsv (fromIntegral k) + where + k = (round $ hsvToRyb h + degrees :: Int) `mod` 360 + +-- | Rotate a color and apply one function to its saturation and another to its value. +sliders :: Kolor -> Double -> (Double -> Double) + -> (Double -> Double) -> Kolor +sliders c rot fs fv = sRGB r g b + where + (h, s, v) = hsvView (toSRGB c) + h' = rotateHue h rot + s' = max 0 (min 1 (fs s)) + v' = max 0 (min 1 (fv v)) + RGB r g b = hsv h' s' v' + +-- | Rotate a color on the RYB color wheel +rotateColor :: Double -> Kolor -> Kolor +rotateColor degrees c = sRGB r g b + where + (h, s, v) = hsvView (toSRGB c) + RGB r g b = hsv (rotateHue h degrees) s v + +-- | Tints a color by adding blending t * white + (1 - t) color. +-- t should be between 0 and 1. +tint :: Double -> Kolor -> Kolor +tint t c = blend t white c + +-- | Alter the tone of a color by adding blending t * gray + (1 - t) color. +-- t should be between 0 and 1. +tone :: Double -> Kolor -> Kolor +tone t c = blend t gray c + +-- | Shades a color by adding blending s * black + (1 - t) color. +-- t should be between 0 and 1. +shade :: Double -> Kolor -> Kolor +shade t c = blend t black c + +-- | Create a monochromatic set of 5 colors based in the input color. +-- <> +monochrome :: Kolor -> [Kolor] +monochrome c = [c, tint 0.25 c, tone 0.5 c, shade 0.5 c, shade 0.75 c] + +-- | A color harmony using the base color and its opposite. +-- <> +complement :: Kolor -> [Kolor] +complement c = [c, shade 0.5 d, tint 0.25 c, shade 0.75 c, d] + where d = rotateColor 180 c + +-- | A color chord based on three equally spaced hues. +-- <> +triad :: Kolor -> [Kolor] +triad c = [ c, rotateColor 240 c, shade 0.5 $ rotateColor 210 c + , shade 0.35 $ rotateColor 120 c, shade 0.67 c] + +-- | Scheme based on 4 colors on a rectangle incscribed in the RYB color +-- wheel. +-- <> +tetrad :: Kolor -> [Kolor] +tetrad c = [ c, rotateColor 180 c, tone 0.25 $ rotateColor 30 c + , shade 0.5 $ rotateColor 210 c, tone 0.5 $ rotateColor 180 c] + +-- | Chord base on three adjacent colors on the artists color wheel. +-- <> +analogic :: Kolor -> [Kolor] +analogic c = [ c, shade 0.3 $ rotateColor 330 c, tone 0.25 $ rotateColor 30 c + , rotateColor 330 c, tone 0.5 c] + +-- | Analogic chord plus the color opposite to the base color. +-- <> +accentAnalogic :: Kolor -> [Kolor] +accentAnalogic c = [ c, tint 0.5 $ rotateColor 180 c + , tone 0.25 $ rotateColor 30 c, rotateColor 330 c + , rotateColor 180 c] + +-- | Black, white and gray with a touch of the base color added. +-- <> +bwg :: Kolor -> [Kolor] +bwg c = [c, tint 0.8 c, tone 0.8 c, shade 0.9 c]