New code for Fig1.eps