From 2a350df5ebe80fe40e32deed9681f30117e56889 Mon Sep 17 00:00:00 2001
From: "Michael K. Borregaard" <mkborregaard@snm.ku.dk>
Date: Tue, 21 Feb 2017 22:44:32 +0100
Subject: [PATCH] plot recipe to show color libraries

---
 src/recipes.jl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/src/recipes.jl b/src/recipes.jl
index 156bda3e..7e0d4dde 100644
--- a/src/recipes.jl
+++ b/src/recipes.jl
@@ -802,3 +802,33 @@ abline!(args...; kw...) = abline!(current(), args...; kw...)
     seriestype --> :scatter
     real(cp.args[1]), imag(cp.args[1])
 end
+
+
+# --------------------------------------------------
+# Color Gradients
+
+@userplot ShowLibrary
+@recipe function f(cl::ShowLibrary)
+    if !(length(cl.args) == 1 && isa(cl.args[1], Symbol))
+        error("ShowLibrary takes the name of a color library as a Symbol")
+    end
+
+    library = clibrary(cl.args[1])
+    z = sqrt.((1:20)*(1:15)')
+
+    seriestype := :heatmap
+    ticks := nothing
+    legend := false
+
+    layout := length(library.lib)
+
+    i = 0
+    for grad in keys(library.lib)
+        @series begin
+            seriescolor := cgrad(grad, color_library = cl.args[1])
+            title := grad
+            subplot := i += 1
+            z
+        end
+    end
+end