          (:use-macros [c2.util :only [c2-obj]])
          (:use [c2.maths :only [log10]]))
 
+;;Linear scale
+;;
+;;Kwargs:
+;;> *:domain* domain of scale, default [0 1]
+;;
+;;> *:range* range of scale, default [0 1]
 (c2-obj linear {:domain [0 1]
                 :range  [0 1]}
 

                              (/ (- x (first domain))
                                 domain-length))))))

(c2-obj log {:domain [1 10]
             :range  [0 1]}
        clojure.lang.IFn

                ((comp (linear :domain (map log10 domain)
                               :range range)
                       log10) x)))
