xfig(file="test.fig",onefile=TRUE,width=6,height=4,textspecial=TRUE,defaultfont=TRUE)
#pdf(file="test.pdf")

barplot(seq(.8,0,-0.15))

legend("topright",legend=c("1234567890"),cex=.7,text.width=.2)

dev.off()
unlink("test.fig")