filledcylinder {shape}R Documentation

adds a colored and rotated cylinder to a plot

Description

adds a rotated and colored cylinder to a plot; color can be a palette

Usage

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, ...)

Arguments

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.

Details

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.

Author(s)

Karline Soetaert <k.soetaert@nioo.knaw.nl>

See Also

filledellipse, filledshape

Examples

  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")

[Package shape version 1.2.2 Index]