clojure example

gistfile1.txt

(defn center-y-for-note
  ; arity = 2
  ([{:keys [origin size]} note]
  	(let [{:keys [height]} size]
       (center-y-for-note (origin :y) (size :height) note)))

  ; arity = 3
  ([origin-y height note]
  	(let [note-increment (/ height 8)
          ymin (+ origin-y height)]
       (- ymin (* note-increment (notes/canonical-staff-position-for-note note))))))