> w <- gridpattern::pattern_weave("twill_herringbone", nrow = 14L, ncol = 32L)
> pm <- as_bm_pixmap(w, col = c("cyan", "orange"))
> print(pm, compress = "vertical")
██▀█▀████▀█▀████▀█▀████▀█▀████▀█
███▀█▀████▀█▀████▀█▀████▀█▀████▀
████▀█▀████▀█▀████▀█▀████▀█▀████
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
████▀█▀████▀█▀████▀█▀████▀█▀████
███▀█▀████▀█▀████▀█▀████▀█▀████▀
██▀█▀████▀█▀████▀█▀████▀█▀████▀█

> s <- gridpattern::pattern_square(subtype = 8L, nrow = 8L, ncol = 32L)
> pm <- as_bm_pixmap(s, col = grDevices::rainbow(8L))
> print(pm, compress = "vertical")
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀