Create an SVG cross-hatch pattern

Create an SVG pattern which will fill an element with cross-hatching.

create_pattern_hatch(
  id,
  angle = 45,
  spacing = 20,
  fill_fraction = 0.2,
  alpha = 1,
  fg_alpha = 1,
  colour = "#000000",
  ...
)

Arguments

id	id to use for pattern. If NULL then generate rando ID
angle	rotation angle (degrees)
spacing	space between features
fill_fraction	size of features. In range [0, 1]
alpha	default: 1.0 (opaque)
fg_alpha	alpha of the features
colour	colour of the features. e.g. '#345678'
...	other arguments ignored

Value

minisvg::SVGPattern object

Examples

if (FALSE) {
# Create an SVG document
library(minisvg)
doc   <- minisvg::svg_doc()

# Create the pattern and add to the SVG definitions
my_pattern <- create_pattern_hatch(id = 'mypattern')
doc$defs(my_pattern)

# Create a rectangle with the animation
rect  <- stag$rect(
  x      = "10%",
  y      = "10%",
  width  = "80%",
  height = "80%",
  stroke = 'black',
  fill   = my_pattern
)

# Add this rectangle to the document, show the SVG text, then render it
doc$append(rect)
doc
doc$show()
}