#====================
# Figure 13.2.R.
# R script to draw common line symbols.
#====================
x0=numeric(6)+2
y0=6:1
x1=x0+5
y1=y0
x=c(2,2)
y=c(3,3)
plot(x,y,xlim=c(0,8),ylim=c(0,8),type="l",lty=0,axes=FALSE,ann=FALSE)
segments(x0,y0,x1,y1,lty=1:6,lwd=2,ylim=c(0,7))
x=numeric(7)+1
y=7:1
text(x,y,0:6,cex=1.8)