#
# plot a color strip
#
plot.new()
plot.window(xlim = c(0, 6), ylim = c(0, 6), asp = 1)
my_cl <- c("indianred", "indianred", "indianred", "indianred", "indianred",
"indianred", "indianred")
my_o <- c("orange", "orange", "orange", "orange", "orange")
my_y <- c("yellow", "yellow", "yellow", "yellow")
my_g <- c("forestgreen", "forestgreen", "forestgreen")
my_b <- c("dodgerblue", "dodgerblue")
my_v <- c("violet")
my_p <- c("purple", "purple", "purple", "purple", "purple")
my_v2 <- c("violet","violet","violet","violet")
my_b2 <- c("dodgerblue","dodgerblue","dodgerblue")
my_g2 <- c("forestgreen","forestgreen")
my_y2 <- c("yellow")
for(v in 1:1) rect(v+5, v-1, v, v, col = my_v[v])
for(b in 1:2) rect(b+4, b-1, b, b, col = my_b[b])
for(l in 1:3) rect(l+3, l-1, l, l, col = my_g[l])
for(k in 1:4) rect(k+2, k-1, k, k, col = my_y[k])
for(j in 1:5) rect(j+1, j-1, j, j, col = my_o[j])
for(i in 1:6) rect(i-1, i-1, i, i, col = my_cl[i])
for(p in 1:5) rect(p-1, p, p, p+1, col = my_p[p])
for(q in 1:4) rect(q-1, q+1, q, q+2, col = my_v2[q])
for(w in 1:3) rect(w-1, w+2, w, w+3, col = my_b2[w])
for(t in 1:2) rect(t-1, t+3, t, t+4, col = my_g2[t])
for(y in 1:1) rect(y-1, y+4, y, y+5, col = my_y2[y])
