# ======================================================================== # Vertical Waves # ======================================================================== # generate pairs of x-y values x <- seq(0, 6 * pi, length = 100) y <- tan(x) png("vertical_waves.png", width = 700, height = 400) # set graphical parameters op <- par(bg = "white", mar = rep(0.3, 4)) # plot plot(x, y, type = "n", ylim = c(-11, 11), axes = FALSE) for (i in seq(-10, 10, length = 100)) { lines(x, y + i, col = "#f9675dBB", lwd = 2 * runif(1, 0.3)) } # signature legend("bottomright", legend="© Gaston Sanchez", bty="n", text.col = "gray30", adj = 2) # reset par par(op) dev.off()