let yscale = (ref (floor(!height /. float_of_int(abs(int_of_float(!ymax -. !ymin))))) : float Pervasives.ref)