The R Project SVN R

Rev

Rev 264 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

###--- -*- R -*-

.Colors <- list(
    red =       c(255,   0,   0),
    green =     c(  0, 255,   0),
    blue =      c(  0,   0, 255),
    cyan =      c(  0, 255, 255),
    magenta =   c(255,   0, 255),
    yellow =    c(255, 255,   0),
    white =     c(255, 255, 255),
    black =     c(  0,   0,   0),
)

.Colors <- "names<-"(
    unlist(
        lapply(.Colors, function(x) rgb(x[1]/255,x[2]/255,x[3]/255))
    ), names(.Colors))