R/leaf_colors.R

Defines functions leaf.colors

Documented in leaf.colors

leaf.colors <- function(n, alpha = 1)
{
  j <- n%/%4 ; i <- n - j
  c(rgb( 255, 255, seq(220,0,length=j), alpha*255, maxColorValue=255),
    rgb( seq(255,0,length=i), seq(255,100,length=i), seq(0,50,length=i), alpha*255, maxColorValue=255))
}
mikemeredith/MMmisc documentation built on Nov. 8, 2019, 11:34 p.m.