The R Project SVN R

Rev

Rev 81097 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 81097 Rev 88274
Line 31... Line 31...
31 
pat <- linearGradient()
 31 
pat <- linearGradient()
32 
path <- circleGrob(gp=gpar(fill=pat))
 32 
path <- circleGrob(gp=gpar(fill=pat))
33 
pushViewport(viewport(clip=path))
 33 
pushViewport(viewport(clip=path))
34 
grid.rect(gp=gpar(fill="grey"))
 34 
grid.rect(gp=gpar(fill="grey"))
35 
HersheyLabel("clipping path is based on circle
 35 
HersheyLabel("clipping path is based on circle
36 
circle has gradeint fill
 36 
circle has gradient fill
37 
result is grey circle")
 37 
result is grey circle")
38 
 
 38 
 
39 
grid.newpage()
 39 
grid.newpage()
40 
pat <- pattern(circleGrob(r=unit(.5, "cm"), gp=gpar(fill="black")),
 40 
pat <- pattern(circleGrob(r=unit(.5, "cm"), gp=gpar(fill="black")),
41 
               width=unit(2, "cm"), height=unit(2, "cm"),
 41 
               width=unit(2, "cm"), height=unit(2, "cm"),