 
 (def x-line-intervals
   (mapcat (fn [ scale ]
-            (map #(* % scale)
-                 [ 1 2 3 4 5 6 ]))
-          [1 60 3600 86400 604800]))
+            (map #(* % scale 1000)
+                 [ 1 2 3 6 12 ]))
+          [ 1 60 3600 86400 ]))
 
 (def stroke-styles
   {:grid

                        (range (/ (range-magnitude y-range) y-interval))))]
        (draw-y-grid-line ctx w (pixel-snap (ty y)) y (= y 0))))))



(defn draw-x-grid [ ctx w h x-range ]
  (draw-xlabel ctx (format-xlabel (:min x-range)) 0 h true)
  (draw-xlabel ctx (format-xlabel (:max x-range)) w h false))

(defn draw-series [ ctx w h data x-range ]
  (with-preserved-ctx ctx
    (set-stroke-style ctx :series-line)

    (aset ctx "font" "12px Arial")
    (let [y-range (rescale-range (s-yrange data) 1.1)]
      (unless (empty? data)

(def tsplot-right-margin 5)
(def y-axis-space 40)

(def pixels-per-x-label 100)
(def pixels-per-y-label 20)

(def y-line-intervals
