data(bot)
coo <- coo.scale(coo.center(bot@coo[[1]]))
tx <- seq(0, 10*pi, length=50)
ty <- sin(tx)*5
cols <- col.summer(50)
coo.plot(xlim=c(0, 10*pi), main="The bottle's wave")
lines(tx, ty, col="grey60", lty=2)
for (i in seq(along=tx)) {
coo.draw(coo.trans(coo, tx[i], ty[i]), col=NA, border=cols[i])
}
Run the code above in your browser using DataLab