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)
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)