 (defn- vertical-text-label
   [zoom value]
   (let [big-ticks-mod (big-ticks-mod zoom)
-        pos (+ value
+        pos (+ (* value zoom)
                (* wb/canvas-start-x zoom)
                ;; wb/canvas-start-x
                wb/canvas-scroll-padding)]

  [zoom acc value]
  (let [big-ticks-mod (big-ticks-mod zoom)
        mid-ticks-mod (mid-ticks-mod zoom)
        pos (+ value
               rule-padding
               (* wb/canvas-start-x zoom)
               wb/canvas-scroll-padding)]

  [zoom acc value]
  (let [big-ticks-mod (big-ticks-mod zoom)
        mid-ticks-mod (mid-ticks-mod zoom)
        pos (+ (* value zoom)
               (* wb/canvas-start-x zoom)
               wb/canvas-scroll-padding)]
    (cond
