##' data=data.frame(y=rnorm(1E4),
##' x=rnorm(1E4))))
##' raster.image <- stop_rasterplot(plot=FALSE)
-##' grid.raster(raster.image)
+##' grid::grid.raster(raster.image)
start_rasterplot <- function(width=NULL,height=NULL) {
x.y.ratio <- grid::convertX(grid::unit(1,"npc"),"mm",valueOnly=TRUE)/
grid::convertY(grid::unit(1,"npc"),"mm",valueOnly=TRUE)