srgist

circle <- function(x, y, r, ...) {
  ang <- seq(0, 2*pi, length = 100)
  xx <- x + r * cos(ang)
  yy <- y + r * sin(ang)
  polygon(xx, yy, ...)
}

venndia <- function(A, B, C, getdata=FALSE, ...){
  cMissing <- missing(C)
  if(cMissing){ C <- c() }