山寨版 Color Checker

#### 颜色

colours<-c("#735244", "#c29682", "#627a9d", "#576c43", "#8580b1", "#67bdaa", "#d67e2c", "#505ba6",

 "#c15a63", "#5e3c6c", "#9dbc40", "#e0a32e", "#383d96", "#469449", "#af363c", "#e7c71f",

 "#bb5695", "#0885a1", "#f3f3f2", "#c8c8c8", "#a0a0a0", "#7a7a79", "#555555", "#343434")

#### xy矩阵

x =1:24

y =1:24

dim(x)<-c(4, 6)

dim(y)<-c(4, 6)

x1 =2

y1 =-2

for(i in1:6){

  for(j in1:4){

      x[j, i]<-x1 +i*(13.5+2)

      y[j, i]<-y1 -j*(13.5+2)

  }

}

#### 定义颜色块出现的位置

x2 <-x -13.5

y2 <-y -13.5

### pdf(file ="color.checkerNaNyk.pdf", width =4, height = 3,colormodel="cmyk")

#pdf(file = "color.checker.rgb.pdf", width =4.2,height = 3)

par(bg ='black', mar =c(0,0,.8,0))

plot(1, xlim=c(5, 94), ylim =c(-77, -18),pch ="")

cols <-colours

k =1

for(i in1:4){

  for(j in1:6){

      rect(x[i,j],y[i,j],x2[i,j],y2[i,j],col= cols[k])

      k =k +1

  }

}

mtext("Colour Checker in RGB",side =3, line=.01, col="white",cex =0.6)

#dev.off()

#pdf(file ="color.checker.CMYK.pdf", width =4.2, height =3,colormodel="cmyk")

par(bg ='black', mar =c(0,0,.8,0))

plot(1, xlim=c(5, 94), ylim =c(-77, -18),pch ="")

cols <-colours

k =1

for(i in1:4){

  for(j in1:6){

      rect(x[i,j],y[i,j],x2[i,j],y2[i,j],col= cols[k])

      k =k +1

  }

}

mtext("Colour Checker in CMYK",side =3, line=.01, col="white",cex =0.6)

#dev.off()