# Esmalt loome ühe tööd lihtsustava funktsiooni tee
#	(joonistab ühe rea värvinäidiseid - 10 värvi)
tee=function(a, koht){
  n=length(a); suurus=1
  for (i in 0:(n-1)){
    text(((i+0.5)*10/n), (koht+0.65)+0.2*(i%%2==0), a[i+1] ,adj=0.6, cex=suurus)
    rect(i*10/n,koht-0.1, (i+0.8)*10/n, koht+0.5, col=a[i+1])
}}


# Avame üsna laia graafikaakna
windows(width=14, height=9)

# Palume, et joonise ümber ei jäetaks tühja ruumi
par(mai=c(0,0,0,0))

# Salvestame olemasolevate värvide nimed
aa=colors()

# Iga k väärtuse korral joonistame uue pildi
for (k in seq(1, length(aa), 71)){

# Järgnev plot-käsk ei joonista midagi nähtavat (peale valge tausta), 
# 	küll aga paneb paika pildi koordinaadid - x=0...10 ja y=0...10
plot(0,0,xlim=c(0,10),ylim=c(0,10), type="n", xaxt="n", yaxt="n", xlab="", ylab="", col="white", bty="n", bg="white")

# Lisame kasutajaid teavitava kirja joonise ülaossa
text(5,10, "kliki hiirega pildi peal järgmise lehekülje nägemiseks", adj=c(0.5,0.25), cex=2)

# Joonistame 7 rida (j=1...7) värvinäidiseid. 
# 	kasutame programmi algul defineeritud funktsiooni tee,
#	mis joonistab ühe värvinäidiste rea.

for (j in 1:7){
   tee(aa[(((j-1)*10+k):(j*10+k))], 10-10*j/7)
}

# Ootame hiireplõksu graafikul
temp=locator(1)
} # siin lõppeb k-tsükkel, (lähme ja joonistame uue graafiku)

# Peale kõigi graafikute joonistamist sulgeme graafikaakna
dev.off()

# Päris lõpp.