let to_pixels (x : units) = (x-1) / scale + 1