Rtist

Concentric Circles

Concentric Circles


 
# ======================================================================== 
# Concentric circles 
# ======================================================================== 
# generate x-y values 
theta <- 1:100 
x <- sin(theta) 
y <- cos(theta) 
 
 
png("concentric_circles.png", width = 700, height = 400) 
# set graphic parameters 
op <- par(bg = 'black', mar = rep(0.5, 4)) 
# open plot 
plot.new() 
plot.window(xlim = c(-1, 1), ylim = c(-1, 1), asp = 1) 
# add lines 
lines(x, y, col = hsv(0.65, 1, 1)) 
lines(0.8 * x, 0.8 * y, col = hsv(0.8, 1, 1)) 
lines(0.6 * x, 0.6 * y, col = hsv(0.9, 1, 1)) 
lines(0.4 * x, 0.4 * y, col = hsv(0.95, 1, 1)) 
# sign 
legend("bottomright", legend = "© Gaston Sanchez", bty = "n",  
       text.col = "gray70") 
# reset par 
par(op) 
dev.off()