postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plot(0,0,type="n",xlim=c(0,9),ylim=c(0,9),axes=F,xlab="",ylab="")
T=4
text(c(1.25,1.25+T,2.25,2.25+T,2.5,2.5+T, 0.5,1.5,3.5,1.5+T,3.5+T),
     c(4.6,4.6,2.6,2.6,0,0, 2.5,.5,.5,.5,.5),
     labels=c("A","A","B","B","Actual","Truncated",
       "450,0","450,350","350,450","450,350","350,450"))
lines(c(1.5,0.5),c(4.5,2.75))
lines(c(1.5,3.5),c(4.5,0.75))
lines(c(2.5,1.5),c(2.6,0.75))
# lines(c(1.5,0.5),c(4.5,2.75))
lines(c(1.5+T,3.5+T),c(4.5,0.75))
lines(c(2.5+T,1.5+T),c(2.6,0.75))
dev.off()

stop()

postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plot(0,0,type="n",xlim=c(0,5),ylim=c(0,5),axes=F,xlab="",ylab="")
lines(c(1,2,3.5,5,1),c(1,3,3,1,1))
lines(c(2,5),c(3,1))
lines(c(1,3.5),c(1,3))
text(c(1,2,3.5,5,2.81),c(.75,3.25,3.25,.75,2.23),labels=c("A","B","C","D","M"))
dev.off()