R/00-utility.R

In RCytoGPS: Using Cytogenetics Data in R

## pass alpha on 0-255 scale
makeTransparent<-function(someColor, alpha=100) {
  newColor<-col2rgb(someColor)
  apply(newColor, 2, function(curcoldata){
    rgb(red=curcoldata[1], green=curcoldata[2], blue=curcoldata[3],
        alpha=alpha, maxColorValue=255)})
}