# Test capabilities of plotting device
frame()
par(usr=c(0,1,0,11),mar=c(4,10,4,2))
# line types and colors
for(i in 1:10) abline(h=i,lty=i,col=i,lwd=i)
# character sizes
for(i in 1:10) mtext(side=2,at=i,line=1,adj=1,cex=i/4,encode(i/4))
axis(4,at=1:10)
abline(v=.5)
for(i in 1:10) text(.5,i,"X",cex=i/2)
for(i in seq(0,330,30)) text(.3,7,encode(i,"Angle-"),adj=1,srt=i)
for(i in seq(0,315,45)) text(.7,3,encode("-Angle",i),adj=0,srt=i)
for(i in 0:10)
	polygon((c(-.2,.2,.2,-.2,-.2)+i)/10,c(-.2,-.2,.2,.2,-.2)+i,col=i)
par(mar=rep(0,4))
logo()
box() # surrounding entire device
