function( width = 7, height = 7, ask = F,
	  display = "",
	  font = "9x15", xbias = -1, ybias = 3 )
{
	graphics.off()
	z <- .C("X_Graphics",
		as.single(width),
		as.single(height),
		as.logical(ask),
		as.character(display),
		as.character(font),
		as.integer(xbias),
		as.integer(ybias))
	Device.Default("X_Graphics")
}
