cm <- function(x) 2.54*x

xinch <- function(x=1)
	x * diff(par("usr")[1:2])/par("pin")[1]
yinch <- function(x=1)
	x * diff(par("usr")[3:4])/par("pin")[2]
