## Not run: ------------------------------------
# x=y=1:5
# r=5:1/5
# circle(x,y,r,add=FALSE,asp=1)
# circle(x,y,r,vertex=6,add=TRUE) # hexagon
# circle(x,y,r,vertex=4,add=TRUE) # diamond
# circle(x,y,r,square=TRUE,add=TRUE) # square
## ---------------------------------------------
Run the code above in your browser using DataLab