Add blues palette.

GregorySchwartz · Jun 24, 2020 · cc3b66b · cc3b66b
1 parent 1807417
commit cc3b66b
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/birch-beer.cabal b/birch-beer.cabal
@@ -1,5 +1,5 @@
 name:                birch-beer
-version:             0.3.0.0
+version:             0.3.1.0
 synopsis:            Plot a colorful tree.
 description:         Generate a tree for displaying a hierarchy of groups with colors, scaling, and more.
 homepage:            http://github.com/GregorySchwartz/birch-beer#readme

diff --git a/src/BirchBeer/ColorMap.hs b/src/BirchBeer/ColorMap.hs
@@ -122,6 +122,11 @@ getLabelColorMap Set1 (LabelMap lm) =
   where
     colors = interpColors (Set.size labels) $ Brewer.brewerSet Brewer.Set1 9
     labels = Set.fromList . Map.elems $ lm
+getLabelColorMap Blues (LabelMap lm) =
+    LabelColorMap . Map.fromList . flip zip colors . Set.toAscList $ labels
+  where
+    colors = interpColors (Set.size labels) $ Brewer.brewerSet Brewer.Blues 9
+    labels = Set.fromList . Map.elems $ lm
 getLabelColorMap Ryb (LabelMap lm) =
     LabelColorMap . Map.fromList . flip zip colors . Set.toAscList $ labels
   where

diff --git a/src/BirchBeer/Types.hs b/src/BirchBeer/Types.hs
@@ -218,7 +218,7 @@ data DrawLeaf       = DrawItem DrawItemType | DrawText deriving (Read, Show)
 data DrawCollection = CollectionGraph Double Double [Int] | PieRing | PieChart | NoLeaf | Histogram | IndividualItems deriving (Read, Show)
 data DrawNodeMark   = MarkModularity | MarkSignificance | MarkNone deriving (Read, Show)
 
-data Palette = Set1 | Ryb | Hsv | Hcl deriving (Read, Show)
+data Palette = Set1 | Blues | Ryb | Hsv | Hcl deriving (Read, Show)
 data DrawDiscretize = CustomColorMap [Kolor] | SegmentColorMap Int
                       deriving (Read, Show)