 ;; Notes in a typical scale are related by small, prime number ratios. Of all
 ;; possible 7 note scales, the major scale has the highest number of consonant
 ;; intervals.
-
-(defn play
-  [s notes]
-  (doall (map #(s %) notes)))
 
 (defmacro defratio [rname ratio]
   `(defn ~rname [freq#] (* freq# ~ratio)))

    (CHORD chord)
    chord))

(defn chord
  "Returns a set of notes for the specified chord. The root must be in midi note
  format i.e. :C3.

  (chord :Bb4 :dim)   ; b flat diminished -> #{70 73 76}
  "
  ([root chord-name]
   (chord root chord-name 0))
  ([root chord-name inversion]
     (let [root (note root)
           chord (resolve-chord chord-name)
           notes (map #(+ % root) chord)]
       (invert-chord notes inversion))))

(defn rand-chord
  "Generates a random list of MIDI notes with cardinality num-pitches bound
