let yMarge = (ref 5. : float Pervasives.ref)