n <- 60
t <- seq(0, 2*pi, length=n) #0~2pi之間分六十份
x <- sin(t) #三角函數
y <- cos(t) #三角函數
par(pty = "s")#作圖類型(方形圖)

#畫出圖形的x、y軸，範圍為1~-1
for (i in 1:n) {
  plot.new()
  plot.window(c(-1, 1), c(-1, 1))
  
#定義圖形的x、y，顏色=gray
  lines(x*y, -y, col="gray")
  
#定義黑點點的位置，各種深淺gray顏色
  points(x[i]*y[i], -y[i], pch=16,
  col=gray((i-1)/(n+1)))
  
#計算時停頓.05秒
  Sys.sleep(.05)
}