coo.rotate
rotates (counter-clockwise) coo
with a theta
angle (in radians) .coo.rotate(coo, theta)
list
or a matrix
of coordinates.numeric
. The angle to rotate the shape.list
with x; y
components or a a matrix of (x; y)
coordinates.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