# without extrapolation: 5 or fewer colors
n <- 5
tintin_clrs(n, option = "the_blue_lotus")
image(
1:n, 1, as.matrix(1:n),
col = tintin_clrs(n, option = "the_blue_lotus"),
xlab = "Tintin darkblue n", ylab = "", xaxt = "n", yaxt = "n", bty = "n"
)
# with extrapolation: 6 or more colors
n <- 20
image(
1:n, 1, as.matrix(1:n),
col = tintin_clrs(n, option = "the_blue_lotus"),
xlab = "Tintin darkblue n", ylab = "", xaxt = "n", yaxt = "n", bty = "n"
)
Run the code above in your browser using DataLab