png("Web/custombase-basepolygon.png", width=480, height=240) angle <- seq(0, 2*pi, length=13)[-13] x <- 0.15*cos(angle) y <- 0.5 + 0.3*sin(angle) par(mar=rep(0, 4)) plot.new() box("outer", col="grey") polygon(0.25 + x, y, col="grey") text(0.75 + x[c(1, 5, 9)], y[c(1, 5, 9)], "NA", col="grey") x[c(1, 5, 9)] <- NA y[c(1, 5, 9)] <- NA polygon(0.75 + x, y, col="grey") dev.off()