plots a flower

flower.R

flower <- function(x, y, colx="red", cex.x=1, cex.y=1, cex.f=1){
  petalsx <- cex.x * c(0, 1,  0, -1)
  petalsy <- cex.y * c(1, 0, -1,  0)
  # this loop prints the petals
  for(i in 1:4){
    points(x + petalsx[i], 
           y + petalsy[i], 
           pch = 16, col = colx, 
           cex = cex.f)
  }
  # this prints the disk
  points(x, y, pch = 16, col = "white", cex = cex.f * .65)
}