# ======================================================================== # Purple Confluence # ======================================================================== # generate pairs of x-y values set.seed(1234) theta <- seq(-2*pi, 2*pi, length = 300) x <- sin(theta) / cos(theta) y <- cos(theta) png("purple_confluence.png", width = 700, height = 400) # set graphical parameters op <- par(bg = "black", mar = rep(0.5, 4)) # plot plot(x, y, type = "n", xlim = c(-20, 20), ylim = c(-1,1)) for (i in seq(-2*pi, 2*pi, length = 70)) { lines(i*x, y, lwd = 2.5*runif(1), col = hsv(runif(1,0.75,0.8), 1, 1, runif(1,0.3))) } # signature legend("bottomright", legend = "© Gaston Sanchez", bty = "n", text.col = "gray70") # reset graphical parameters par(op) dev.off()