The R Project SVN R

Rev

Rev 59039 | Rev 84534 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61044
Line 58... Line 58...
58 
                  shape=1,
 58 
                  shape=1,
59 
                  vp=vp)
 59 
                  vp=vp)
60 
grid.draw(xg)
 60 
grid.draw(xg)
61 
trace <- xsplinePoints(xg)
 61 
trace <- xsplinePoints(xg)
62 
pushViewport(vp)
 62 
pushViewport(vp)
63 
lapply(trace, function(t) grid.lines(t$x, t$y, gp=gpar(col="red")))
 63 
invisible(lapply(trace, function(t) grid.lines(t$x, t$y, gp=gpar(col="red"))))
64 
popViewport()
 64 
popViewport()
65 
 
 65 
 
66 
grid.newpage()
 66 
grid.newpage()
67 
bg <- bezierGrob(c(.2, .2, .8, .8), c(.2, .8, .8, .2))
 67 
bg <- bezierGrob(c(.2, .2, .8, .8), c(.2, .8, .8, .2))
68 
grid.draw(bg)
 68 
grid.draw(bg)