grid.newpage()
x <- seq(.2, .8, length.out=100)
y <- .05*sin(seq(0, 2*pi, length.out=100))
w <- unit(seq(2, 10, length.out=100), "mm")
grid.vwcurve(x, y + .8, w)
grid.vwcurve(x, y + .6, w,
angle=45)
grid.vwcurve(x, y + .4, w,
lineend="round")
grid.vwcurve(x, y + .2, w,
gp=gpar(col="black"), debug=TRUE)
Run the code above in your browser using DataLab