q x y  = translate dx dy
    where dx = (-(fromIntegral windowW / 2)) + (chartM + x * (chartW + chartM))
          dy = (fromIntegral windowH / 2) - chartH - chartM - (y * (chartH + chartM))
q x y  = translate dx dy
    where dx = (-(fromIntegral windowW / 2)) + (chartM + x * (chartW + chartM))
          dy = (fromIntegral windowH / 2) - chartH - chartM - (y * (chartH + chartM))
q x y  = translate dx dy
    where dx = (-(fromIntegral windowW / 2)) + (chartM + x * (chartW + chartM))
          dy = (fromIntegral windowH / 2) - chartH - chartM - (y * (chartH + chartM))