gl2ps: new formula

new formula