# ========================================================================
# Pink Barbs
# ========================================================================
# generate pairs of x-y values
x <- seq(1, 100, length = 1000)
y <- x + rnorm(1000)
png("pink_barbs.png", width = 700, height = 400)
# set graphical paramters
op <- par(bg = "black", mar = rep(0, 4))
# plot
plot(x, y, type = 'n')
for (i in seq(-80, 70, by = 5))
{
lines(x + rnorm(1000), x + i + rnorm(1000, 2), pch = 19,
col = hsv(0.85, 1, 1, runif(1000)),
lwd = sample(seq(0.3, 2, length = 20), 1))
}
# signature
legend("bottomright", legend = "© Gaston Sanchez", bty = "n",
text.col = "gray70")
# reset par
par(op)
dev.off()