The R Project SVN R

Rev

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

Rev 61153 Rev 61168
Line 65... Line 65...
65 
plot(c(100, 250), c(300, 450), type = "n", xlab = "", ylab = "",
 65 
plot(c(100, 250), c(300, 450), type = "n", xlab = "", ylab = "",
66 
     main = "2 x 11 rectangles; 'rect(100+i,300+i,  150+i,380+i)'")
 66 
     main = "2 x 11 rectangles; 'rect(100+i,300+i,  150+i,380+i)'")
67 
i <- 4*(0:10)
 67 
i <- 4*(0:10)
68 
## draw rectangles with bottom left (100, 300)+i
 68 
## draw rectangles with bottom left (100, 300)+i
69 
## and top right (150, 380)+i
 69 
## and top right (150, 380)+i
70 
rect(100+i, 300+i, 150+i, 380+i, col = rainbow(11, start = .7,end = .1))
 70 
rect(100+i, 300+i, 150+i, 380+i, col = rainbow(11, start = 0.7, end = 0.1))
71 
rect(240-i, 320+i, 250-i, 410+i, col = heat.colors(11), lwd = i/5)
 71 
rect(240-i, 320+i, 250-i, 410+i, col = heat.colors(11), lwd = i/5)
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)