R/picturetext.R

In grImport: Importing Vector Graphics

validDetails.picturetext <- function(x) {
  if (!is.unit(x$x) ||
      !is.unit(x$y) ||
      !is.unit(x$w) ||
      !is.unit(x$h) )
    stop("'x' and 'y' must be units")
  # Make sure that x and y are of length 1
  if (length(x$x) > 1 | length(x$y) > 1 ||
      length(x$w) > 1 | length(x$h) > 1 )
    stop("'x' and 'y' must have length 1")
  x
}

makeContent.picturetext <- function(x) {
    if (x$sizeByWidth) {
        # Determine size of string in current font
        currentWidth <- convertWidth(stringWidth(x$string), "inches",
                                     valueOnly=TRUE)
        desiredWidth <- convertWidth(x$w, "inches",
                                     valueOnly=TRUE)
        # Scale text to fill desired width
        child <- textGrob(x$string, x$x, x$y, rot=x$angle,
                          just=c("left", "bottom"),
                          gp=gpar(cex=desiredWidth/currentWidth))
    } else {
        desiredHeight <- convertHeight(x$h, "points", valueOnly=TRUE)
        # Scale text to fill desired height
        child <- textGrob(x$string, x$x, x$y, rot=x$angle,
                          just=c("left", "bottom"),
                          gp=gpar(fontsize=desiredHeight))
    }
    setChildren(x, gList(child))
}

pictureTextGrob <- function(string, x, y, w, h, angle, letters,
                            units="native",
                            sizeByWidth=TRUE,
                            gp=gpar(), name=NULL, vp=NULL) {
    if (!is.unit(x))
        x <- unit(x, units)
    if (!is.unit(y))
        y <- unit(y, units)
    if (!is.unit(w))
        w <- unit(w, units)
    if (!is.unit(h))
        h <- unit(h, units)
    gTree(string=as.character(string), x=x, y=y, w=w, h=h, angle=angle,
          sizeByWidth=sizeByWidth,
          gp=gp, name=name, vp=vp, cl="picturetext")
}