R/CRUKcolourdemo.R

In crukci-bioinformatics/redpanda: What the package does (short line)

`CRUKcolourdemo` <-
function(){
plot(c(0,5),c(0,6),type="n",xlab="",ylab="",axes=F)
box()
rect(0,0,1,1,col=CRUKcol("Blue"),border=F)
rect(0,1,1,2,col=CRUKcol("Magenta"),border=F)
rect(1,0,2,1,col=CRUKcol("Teal"),border=F)
rect(1,1,2,2,col=CRUKcol("Green"),border=F)
rect(2,0,3,1,col=CRUKcol("LightBlue"),border=F)
rect(2,1,3,2,col=CRUKcol("Turquoise"),border=F)
rect(3,0,4,1,col=CRUKcol("Purple"),border=F)
rect(3,1,4,2,col=CRUKcol("Pink"),border=F)
rect(4,0,5,1,col=CRUKcol("Orange"),border=F)
rect(4,1,5,2,col=CRUKcol("Yellow"),border=F)
rect(0,2,1,3,col=CRUKcol("Blue",tint=2),border=F)
rect(0,3,1,4,col=CRUKcol("Magenta",tint=2),border=F)
rect(1,2,2,3,col=CRUKcol("Teal",tint=2),border=F)
rect(1,3,2,4,col=CRUKcol("Green",tint=2),border=F)
rect(2,2,3,3,col=CRUKcol("LightBlue",tint=2),border=F)
rect(2,3,3,4,col=CRUKcol("Turquoise",tint=2),border=F)
rect(3,2,4,3,col=CRUKcol("Purple",tint=2),border=F)
rect(3,3,4,4,col=CRUKcol("Pink",tint=2),border=F)
rect(4,2,5,3,col=CRUKcol("Orange",tint=2),border=F)
rect(4,3,5,4,col=CRUKcol("Yellow",tint=2),border=F)
rect(0,4,1,5,col=CRUKcol("Blue",tint=1),border=F)
rect(0,5,1,6,col=CRUKcol("Magenta",tint=1),border=F)
rect(1,4,2,5,col=CRUKcol("Teal",tint=1),border=F)
rect(1,5,2,6,col=CRUKcol("Green",tint=1),border=F)
rect(2,4,3,5,col=CRUKcol("LightBlue",tint=1),border=F)
rect(2,5,3,6,col=CRUKcol("Turquoise",tint=1),border=F)
rect(3,4,4,5,col=CRUKcol("Purple",tint=1),border=F)
rect(3,5,4,6,col=CRUKcol("Pink",tint=1),border=F)
rect(4,4,5,5,col=CRUKcol("Orange",tint=1),border=F)
rect(4,5,5,6,col=CRUKcol("Yellow",tint=1),border=F)
}