R/convert.R

In pmur002/dvir: Render DVI Files

## Conversions
## to mm
fromTeX <- function(x) {
    factor <- get("scale")*get("num")/get("den")*1000/get("mag")/10^4
    x*factor
}
## from 'grid' units
xtoTeX <- function(x) {
    factor <- get("scale")*get("num")/get("den")*1000/get("mag")/10^4
    convertX(x, "mm", valueOnly=TRUE)/factor
}
ytoTeX <- function(x) {
    factor <- get("scale")*get("num")/get("den")*1000/get("mag")/10^4
    convertY(x, "mm", valueOnly=TRUE)/factor
}