let
xconv (x : float) : int = int_of_float ((x -. !xmin)*.(!xscale))