This is a very early stage package, but you can do fun things with it: mypaint_device("tmp.png", bg = "grey") plot.new() plot.window(c(-6, 6), c(-6, 6)) set_brush("tanda/acrylic-05-paint") idx <- 0 cols <- rep(c("red4", "blue4"), 3) step <- seq(0, 5, len = 20) for (angle in seq(1/3, 2, len = 6) * pi) { t <- seq(angle, 2 * pi + angle, len = 20) %% (2 * pi) lines(sin(t) * step, cos(t) * step, lwd = 6, col = cols[[idx <- idx + 1]]) } dev.off() https://preview.redd.it/zcfyw6vhzl3h1.png?width=1008&format=png&auto=webp&s=4bfa1916b4ad836de35359fd77a79bb9db1daeba Docs: https://hughjonesd.github.io/mypaintr Install: pak::pak("hughjonesd/mypaintr") submitted by /u/spurious_elephant [link] [comments]