Update graphics.bas

Working on gradient function