let width = (ref (805.) : float Pervasives.ref)