# ========================================================================
# Double Heart
# ========================================================================
# generate pairs of x-y values
theta <- seq(-2 * pi, 2 * pi, length = 300)
x <- cos(theta)
y <- x + sin(theta)
png("double_heart.png", width = 700, height = 400)
# set graphical parameters
op <- par(bg = "black", mar = rep(0.1, 4))
# plot
plot(x, y, type = "n", xlim = c(-8, 8), ylim = c(-1.5, 1.5))
for (i in seq(-2*pi, 2*pi, length = 100))
{
lines(i*x, y, col = hsv(runif(1, 0.85, 0.95), 1, 1, runif(1, 0.2, 0.5)),
lwd = sample(seq(.5, 3, length = 10), 1))
}
# signature
legend("bottomright", legend = "© Gaston Sanchez", bty = "n",
text.col = "gray70")
# reset par
par(op)
dev.off()