# NOT RUN {
SetAlpha("yellow", 0.2)
SetAlpha(2, 0.5) # red
Canvas(3)
DrawCircle(x=c(-1,0,1), y=c(1,-1,1), r.out=2, col=SetAlpha(2:4, 0.4))
x <- rnorm(15000)
par(mfrow=c(1,2))
plot(x, type="p", col="blue" )
plot(x, type="p", col=SetAlpha("blue", .2), main="Better insight with alpha channel" )
# }
Run the code above in your browser using DataLab