   (let [tiks (apply ticks/ticks (:domain (meta scale)))]
     (map (fn [d] [:text {:x 0 :text-anchor "start" :dx ".2em" :dy ".32em" :y (scale d)} (str d)]) tiks)))
 
+(def width 500)
+(def height 500)
+(def margin {:top 50 :bottom 50 :left 60 :right 60})
+
+(def y (scale-linear {:domain [0 100] :range [height 0]}))
+(def x (scale-linear {:domain [0 100] :range [0 width]}))
 
 (def diagram
   [:svg {:width  (+ (:left margin) (:right margin) width)

                      :padding "0 !important"
                      :overflow-x "hidden"
                      :overflow-y "hidden")]
        s (hiccup.core/html (conj body t))]
    (render-string s)
    s))

(defn export-to-file [filename t]

        range-output))
    (with-meta all)))

(defn left-y-axis [scale]
  (let [tiks (apply ticks/ticks (:domain (meta scale)))]
    (map (fn [d] [:text {:x 0 :text-anchor "end" :dx "-.2em" :dy ".32em" :y (scale d)} (str d)]) tiks)))
