 
 (defn draw-x-grid-line [ ctx h x value ]
   (with-preserved-ctx ctx
-    (draw-xlabel ctx (format-xlabel value) x h false)
+    (draw-xlabel ctx (format-xlabel value) x h)
     (set-stroke-style ctx :grid)
     (draw-line ctx [ x 0 ] [ x h ])))
 


(defn draw-x-grid [ ctx w h x-range ]
  (let [x-interval (find-x-grid-interval w x-range)
        tx (translate-fn x-range w)]
    (doseq [ x (map #(- (:max x-range) (* % x-interval))
                    (range 0 (/ (range-magnitude x-range) x-interval)))]
      (draw-x-grid-line ctx h (tx x) x))))


    {:max (+ (:max range) scaled-delta)
     :min (- (:min range) scaled-delta)}))

(defn draw-xlabel [ ctx text x y ]
  (with-preserved-ctx ctx
    (aset ctx "textBaseline" "top")
    (aset ctx "textAlign" "center")
    (.fillText ctx text x y)))

(defn draw-ylabel [ ctx text x y ]
