points <- function(x, ...) UseMethod("points")

points.default <-
function(x, y=NULL, type="p", pch=1, col="black", bg=NA, cex=1, ...) {
	plot.xy(xy.coords(x,y), type=type, pch=pch, col=col, bg=bg, cex=cex,...)
}
