rect <- function(xleft, ybottom, xright, ytop, col=NULL, border=par("fg"), lty=NULL, xpd=FALSE) {
	.Internal(rect(
		as.double(xleft),
		as.double(ybottom),
		as.double(xright),
		as.double(ytop),
		col=col,
		border=border,
		lty=lty,
		xpd=xpd))
}
