rotate.infline | R Documentation |
Given the coordinates of one or more infinite straight lines in the plane, apply a rotation or shift.
## S3 method for class 'infline'
rotate(X, angle = pi/2, ...)
## S3 method for class 'infline'
shift(X, vec = c(0,0), ...)
## S3 method for class 'infline'
reflect(X)
## S3 method for class 'infline'
flipxy(X)
X |
Object of class |
angle |
Angle of rotation, in radians. |
vec |
Translation (shift) vector: a numeric vector of length 2,
or a |
... |
Ignored. |
These functions are methods for the generic
shift
, rotate
,
reflect
and flipxy
for the class "infline"
.
An object of class "infline"
represents one or more
infinite lines in the plane.
Another "infline"
object representing the
result of the transformation.
.
infline
L <- infline(v=0.5)
plot(square(c(-1,1)), main="rotate lines", type="n")
points(0, 0, pch=3)
plot(L, col="green")
plot(rotate(L, pi/12), col="red")
plot(rotate(L, pi/6), col="red")
plot(rotate(L, pi/4), col="red")
L <- infline(p=c(0.4, 0.9), theta=pi* c(0.2, 0.6))
plot(square(c(-1,1)), main="shift lines", type="n")
L <- infline(p=c(0.7, 0.8), theta=pi* c(0.2, 0.6))
plot(L, col="green")
plot(shift(L, c(-0.5, -0.4)), col="red")
plot(square(c(-1,1)), main="reflect lines", type="n")
points(0, 0, pch=3)
L <- infline(p=c(0.7, 0.8), theta=pi* c(0.2, 0.6))
plot(L, col="green")
plot(reflect(L), col="red")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.