text <- function(x, y=NULL, text, ...)
	.Internal(text(xy.coords(x,y), as.character(text), ...))
