   (let [big-ticks-mod (big-ticks-mod zoom)
         pos (+ value
                rule-padding
-               wb/canvas-start-x
-               wb/canvas-scroll-padding)
-        pos (* pos zoom)]
+               (* wb/canvas-start-x zoom)
+               wb/canvas-scroll-padding)]
     (when (< (mod value big-ticks-mod) step-size)
       (html
        [:text {:x (+ pos 2)

  (let [big-ticks-mod (big-ticks-mod zoom)
        mid-ticks-mod (mid-ticks-mod zoom)
        pos (+ value
               wb/canvas-start-x
               wb/canvas-scroll-padding)
        pos (* pos zoom)]
    (cond
      (< (mod value big-ticks-mod) step-size)
      (conj acc (str/format "M %s %s L %s %s" 5 pos step-padding pos))

  [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)]
    (cond
      (< (mod value big-ticks-mod) step-size)
      (conj acc (str/format "M %s %s L %s %s" pos 5 pos step-padding))
