R/cairoCoerce.R

Defines functions as.CairoTextCluster as.CairoGlyph as.CairoPath

Documented in as.CairoGlyph as.CairoPath as.CairoTextCluster

as.CairoPath <- function(path)
{
  x <- lapply(path, function(element) {
    type <- attr(element, "type")
    if (is.null(type))
      stop("Path element must have an integer 'type' attribute")
    as.integer(element)
  })
  class(x) <- "CairoPath"
  x
}

as.CairoGlyph <-
function(x)
{
  x <- as.struct("CairoGlyph", c("index", "x", "y"))
  x[[1]] <- as.numeric(x[[1]])
  x[[2]] <- as.numeric(x[[2]])
  x[[3]] <- as.numeric(x[[3]])
  
  return(x)
}

as.CairoTextCluster <-
  function(x)
{
  x <- as.struct("CairoTextCluster", c("num_bytes", "num_glyphs"))
  x[[1]] <- as.integer(x[[1]])
  x[[2]] <- as.integer(x[[2]])
  
  return(x)
}

Try the RGtk2 package in your browser

Any scripts or data that you put into this service are public.

RGtk2 documentation built on June 12, 2018, 5:06 p.m.