Rtist

Pink Barbs

Pink Barbs


 
# ======================================================================== 
# 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()