The R Project SVN R

Rev

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

Rev 68948 Rev 74363
Line 72... Line 72...
72 
## Background alternating  ( transparent / "bg" ) :
 72 
## Background alternating  ( transparent / "bg" ) :
73 
j <- 10*(0:5)
 73 
j <- 10*(0:5)
74 
rect(125+j, 360+j,   141+j, 405+j/2, col = c(NA,0),
 74 
rect(125+j, 360+j,   141+j, 405+j/2, col = c(NA,0),
75 
     border = "gold", lwd = 2)
 75 
     border = "gold", lwd = 2)
76 
rect(125+j, 296+j/2, 141+j, 331+j/5, col = c(NA,"midnightblue"))
 76 
rect(125+j, 296+j/2, 141+j, 331+j/5, col = c(NA,"midnightblue"))
77 
mtext("+  2 x 6 rect(*, col = c(NA,0)) and  col = c(NA,\"m..blue\"))")
 77 
mtext("+  2 x 6 rect(*, col = c(NA,0)) and  col = c(NA,\"m..blue\")")
78 
 
 78 
 
79 
## an example showing colouring and shading
 79 
## an example showing colouring and shading
80 
plot(c(100, 200), c(300, 450), type= "n", xlab = "", ylab = "")
 80 
plot(c(100, 200), c(300, 450), type= "n", xlab = "", ylab = "")
81 
rect(100, 300, 125, 350) # transparent
 81 
rect(100, 300, 125, 350) # transparent
82 
rect(100, 400, 125, 450, col = "green", border = "blue") # coloured
 82 
rect(100, 400, 125, 450, col = "green", border = "blue") # coloured