Revised plot3.r