let yconv (y : float) : int = int_of_float ((!ymax -. y)*.(!yscale))