let height = (ref (670.) : float Pervasives.ref)