data(bot)
coo <- bot@coo[[1]]
coo.plot(coo, main="The bottle revolution", xlim=c(-1.5e3, 1.5e3))
r <- seq(pi/6, 2*pi, pi/6)
cols <- col.summer(12)
for (i in seq(along=r)) {
coo.draw(coo.rotate(coo, r[i]), border=cols[i], col=NA)
}
Run the code above in your browser using DataLab