tests/testpatternfill.R

In sachsmc/gridSVG: Export grid graphics as SVG

library(grid)
library(gridSVG)

pdf(file = NULL)
grid.newpage()
# We are just going to be drawing a cross for our pattern
crossGrob <- gTree(children = gList(
    linesGrob(),
    linesGrob(x = unit(0:1, "npc"), y = unit(1:0, "npc"),
              gp = gpar(lwd = 1))
))

# Call the pattern "cross"
# Using a small device size because the line widths
# will be too small otherwise
registerPatternFill("cross", grob = crossGrob,
                    dev.width = 1, dev.height = 1)

grid.circle(name = "filledcircle")
# Applying the pattern semi-transparently to the circle
grid.patternFill("filledcircle", label = "cross", alpha = 0.5)
grid.export("pattern-test.svg")
dev.off()

# Now lets create a new pattern that uses the existing pattern
# but much larger
pdf(file = NULL)
grid.newpage()
registerPatternFillRef("bigcross", "cross",
                       width = 0.3, height = 0.3)
grid.circle(name = "filledcircle")
grid.patternFill("filledcircle", label = "bigcross", alpha = 0.5)
grid.export("pattern-test-ref.svg")
dev.off()