Commit cd765482 authored by Nicolas Lenz's avatar Nicolas Lenz
Browse files

Print the palettes

parent 3809f577
......@@ -3,10 +3,15 @@ library("colorspace")
n <- 11 # Number of colors in each palette
primary <- sequential_hcl(n, h=c(5, 70), c=c(90,160,55), l=c(12,98), power=c(1.1,1.2))
secondary <- sequential_hcl(n, h=rep(266,2), c=c(8,32,6), l=c(7,95), power=c(1.15,1.05))
secondary <- sequential_hcl(n, h=rep(276,2), c=c(9,33,8), l=c(7,95), power=c(1.15,1.05))
#background <- sequential_hcl(n, c=0, l=c(3,97), power=1)
primary_str <- tolower(paste(primary, collapse=", "))
secondary_str <- tolower(paste(secondary, collapse=", "))
print(primary_str)
print(secondary_str)
png(filename="plot.png", width=800, height=1000)
specplot(rgb=TRUE, primary, secondary)
dev.off()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment