                               (/ (- x (first domain))
                                  domain-length))))))
 
+;;Logarithmic scale
+;;
+;;Kwargs:
+;;> *:domain* domain of scale, default [1 10]
+;;
+;;> *:range* range of scale, default [0 1]
 (c2-obj log {:domain [1 10]
              :range  [0 1]}
         clojure.lang.IFn

         (:use-macros [c2.util :only [c2-obj]])
         (:use [c2.maths :only [log10]]))

(c2-obj linear {:domain [0 1]
                :range  [0 1]}


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