Art with R and aRtsy

See aRtsy here.

library(aRtsy)
set.seed(33)
col <- colorPalette(name = 'random', n = 5)
canvas_nebula(col, k = 80, n =750, resolution = 900)

library(aRtsy)

set.seed(1000)
canvas_turmite(colorPalette("house"), background = "#f4f4f4", 
               p = 0.5, iterations = 1e6,
               resolution = 400, noise = TRUE)

library(aRtsy)

set.seed(1)
angles <- matrix(0, 200, 200)
angles[1:100, ] <- seq(from = 0, to = 1.5 * pi/4, length = 100)
angles[101:200, ] <- seq(from = 1.5 * pi/4, to = 0, length = 100)
angles <- angles + rnorm(200 * 200, sd = 0.1)

canvas_flow(
  colors = colorPalette("origami"), background = "white",
  angles = angles, lwd = 2.4, lines = 1000, stepmax = 0.101
)

library(aRtsy)

set.seed(100)
canvas_recaman(
  colors = colorPalette("retro2"),
  iterations = 500, start = 150,
  increment = 100, curvature = 40, 
  angle = 45, size = 0.6,
  closed = TRUE
  )