Geometry in R

library(plotrix)
library(colorRamps)
extrafont::loadfonts(device="win", quiet = T)
options(message=FALSE)
par(mfrow=c(1,1),mar = c(0, 0, 0, 0),bg = 'white')
plot(0, bty = 'n', xaxt='n', yaxt='n',pch = '', ylab = '', xlab = '', xlim=c(-10,10), ylim=c(-10,10))
var1 = draw.circle(0,0,r=5, nv=50, border = NA)
var2 = draw.circle(0,0,r=9, nv=600, border = NA)
i = 1; j = 1
repeat {
  xx = var1$x[i]
  yy = var1$y[i]
  par(new=T)
  plot(0,lwd=3, col='red', bty = 'n', xaxt='n', yaxt='n',pch = '', ylab = '', xlab = '', xlim=c(-10,10), ylim=c(-10,10))
  text(0,-10,'Afshin Motavali', col='red', family='Bodoni MT Black', lwd=3)
  segments(xx,yy,0,0,lwd=0.1, col='green', pch=1, cex=1)
  xxs = var2$x[j]
  yys = var2$y[j]
  par(new=T)
  plot(0,lwd=3, col='red', bty = 'n', xaxt='n', yaxt='n',pch = '', ylab = '', xlab = '', xlim=c(-10,10), ylim=c(-10,10))
  text(0,-10,'Afshin Motavali', col='red', family='Bodoni MT Black', lwd=3)
  segments(xxs,yys,xx,yy,lwd=0.1, col='green', pch=1, cex=1)
  #Sys.sleep(.6)
  if(i == length(var1$y)){i = 1}
  i = i + 1
  j = j + 1
  if(j == length(var2$y) + 20){break}
}