| rotatexy {shape} | R Documentation |
rotates xy values around a midpoint;
xy is either a 2-columned matrix or a 2-valued vector
if asp=TRUE, the aspect ratio is kept
rotatexy(xy, angle, mid=colMeans(xy), asp=FALSE)
xy |
matrix with 2 columns, to be rotated |
angle |
angle of rotation, in degrees |
mid |
rotation point, default=centroid |
asp |
if true: aspect ratio is kept |
rotates xy values around a midpoint;
xy is either a 2-columned matrix or a 2-valued vector
if asp=TRUE, the aspect ratio is kept
a 2-column matrix with rotated values
Karline Soetaert <k.soetaert@nioo.knaw.nl>
x <- seq(0,2*pi,pi/100)
y <- sin(x)
cols <- intpalette(c("blue","green","yellow","red"),n=500)
cols <- c(cols,rev(cols))
plot(x,y,type="l",ylim=c(-3,3),main="rotatexy",col=cols[1],
lwd=2)
for (i in 2:1000) lines(rotatexy(cbind(x,y),angle=0.18*i),
col=cols[i],lwd=2)
cols <- femmecol(1000)
plot(x,y,xlim=c(-1,1),ylim=c(-1,1),main="rotatexy",
col=cols[1],type="n")
for (i in 2:1000) {xy<-rotatexy(c(0,1),angle=0.36*i, mid=c(0,0));
points(xy[1],xy[2],col=cols[i],pch=".",cex=2)}