adds a colored and rotated cylinder to a plot
adds a rotated and colored cylinder to a plot; color can be a palette
filledcylinder(rx = 1, ry = rx, len = 1, col = femmecol(100),
lcol = NA, lwd = 2, lcolint = NULL, ltyint = 1,
lwdint = lwd, mid = c(0,0), angle = 0, delt = 1,
dr = 0.01, topcol = NULL, botcol = NULL, ...)rx |
horizontal radius. |
ry |
vertical radius. |
len |
length. |
col |
color palette to be used; also allowed are two extremes or one value. |
lcol |
line color on external surface. |
lwd |
only if lcol!=NA, width of external line. |
lcolint |
only if lcol!=NA, line color on internal (hidden) surface. |
ltyint |
only if lcol!=NA, line type on internal (hidden) surface. |
lwdint |
only if dlcol!=NA, line width on internal (hidden) surface. |
mid |
midpoint of cylinder. |
angle |
rotation angle, degrees. |
delt |
increase factor, from left to right. |
dr |
size of segments, in radians, to draw top/bottom ellipse (decrease for smoother). |
topcol |
color (palette) of top (right) surface. |
botcol |
color (palette) of bottom (left) surface. |
... |
arguments passed to function filledellipse. |
When angle = 0 (the default), the cylinder is parallel to the x-axis
rx and ry are the horizontal and vertical radiusses of the
bordering ellipses.
Here "horizontal" and "vertical" denote the position BEFORE rotation
if delt > 1, the width of the cylinder will increase from left
to right.
Karline Soetaert <karline.soetaert@nioz.nl>
emptyplot(c(-1.2, 1.2), c(-1, 1), main = "filledcylinder")
col <- c(rev(greycol(n = 50)), greycol(n = 50))
col2 <- shadepalette("red", "blue", n = 50)
col3 <- shadepalette("yellow", "black", n = 50)
filledcylinder(rx = 0., ry = 0.2, len = 0.25, angle = 0, col = col,
mid = c(-1, 0), topcol = col[25])
filledcylinder(rx = 0., ry = 0.2, angle = 90, col = col,
mid = c(-0.5, 0), topcol = col[25])
filledcylinder(rx = 0.1, ry = 0.2, angle = 90, col = c(col2, rev(col2)),
mid = c(0.45, 0), topcol = col2[25])
filledcylinder(rx = 0.05, ry = 0.2, angle = 90, col = c(col3, rev(col3)),
mid = c(0.9, 0), topcol = col3[25])
filledcylinder(rx = 0.1, ry = 0.2, angle = 90, col = "white",
lcol = "black", lcolint = "grey")
emptyplot(c(-1, 1), c(-1, 1), main = "filledcylinder")
col <- shadepalette("blue", "black", n = 50)
col2 <- shadepalette("red", "black", n = 50)
col3 <- shadepalette("yellow", "black", n = 50)
filledcylinder(rx = 0.025, ry = 0.2, angle = 90, col = c(col2, rev(col2)),
mid = c(-0.8, 0), topcol = col2[25], delt = -1, lcol = "black")
filledcylinder(rx = 0.1, ry = 0.2, angle = 00, col = c(col, rev(col)),
mid = c(0.0, 0.0), topcol = col, delt = -1.2, lcol = "black")
filledcylinder(rx = 0.075, ry = 0.2, angle = 90, col = c(col3, rev(col3)),
mid = c(0.8, 0), topcol = col3[25], delt = 0.0, lcol = "black")Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.