Fortran code for graphics.