R/blue.red.r

In jae0/emgis: Package that interacts with stmv.

blue.red <- function (n) 
  { 
    n = n-2
    if ((n <- as.integer(n[1])) > 0) { 
      even.n <- n%%2 == 0
      green = 2/6
      red = 0
      blue = 4/6
      alpha = 1.6
      k <- n%/%2
      l1 <- k + 1 - even.n
      l2 <- n - k + even.n
      c( if (l1 > 0) {
            hsv( h = blue, 
                 s = seq(1, ifelse(even.n, 1/k, 0), length = l1), 
                 v = 1)
          },
         if (l2 > 1) { 
           hsv( h = red, 
                s = seq(0, 1, length = l2), 
                v = 1, 
                alpha=alpha)
         } 
       )
    }
  }