# =============================================================
# Lemon Cords
# =============================================================
# generate x-y values
set.seed(1234)
theta <- seq(-2*pi, 2*pi, length = 50)
x <- sin(theta) + cos(theta)
y <- 1 / tan(theta) + runif(50)
png("lemon_cords.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(-2, 2), ylim = c(-2, 2))
for (i in seq(0, pi/2, length = 40)) {
lines(i*x, y, lwd = 5*runif(1),
col = hsv(runif(1,0.2,0.3), 1, 1, runif(1,.3)))
}
# signature
legend("bottomright", legend = "© Gaston Sanchez", bty = "n",
text.col = "gray70")
# reset par
par(op)
dev.off()
