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.1 Index]