Displaying 1 result from an estimated 1 matches for "add8e633".
2011 Apr 13
3
latex, eps graphics and transparent colors
...nd( cos(angles), sin(angles))
}
plot(1:5, 1:5, type='n', xlim=c(-1,5), ylim=c(-1,5), xlab='', ylab='',
asp=1, xaxt="n", yaxt="n")
#clrs <- trans.colors("lightblue", alpha=c(.2, .4, .6)) ## from heplots
package
clrs <- c("#ADD8E633", "#ADD8E666", "#ADD8E699")
c1 <- circle(3)
polygon( c1, col=clrs[1], border="lightblue")
polygon(.67*c1, col=clrs[2], border="lightblue")
polygon(.33*c1, col=clrs[3], border="lightblue")
arrows(-1, 0, 5, 0, angle=10, length=.2, lwd=2,...