# Programik pomocniczy pokazujacy kolory otrzymywane funkcja colours 
postscript("Kolory.ps", horizontal=FALSE)
oldpar=par(no.readonly=TRUE)
par(pty="s")
plot(1, type="n", xlim=c(0,53), ylim=c(0,53), xlab="", ylab="", axes=FALSE)
for (i in 1:26)
  for(j in 1:26){
    n1 = (i-1)*26+j
    n = ifelse(n1 <= 657, n1, 1)    # 1 - white (w przeciwnym przypadku)
    rect(2*j-1, 2*i-1, 2*j,2*i, col = colours()[n])
    text(2*j-.5, 2*i-1.5, as.expression(n), cex=.7)
  }
par(oldpar)
graphics.off()