                            & {:keys [running-interval degree]
                               :or {running-interval '()
                                    degree 1}}]
+  "Build an interval-representation of the melody
+  by traversing through the scale in steps/leaps/octave jumps."
   (if (<= note-count 0)
     running-interval
     (let [degree (make-move scale degree)

                           :running-interval running-interval))))

(defn generate-intervals [scale note-count]
  (let [mid-intervals (construct-intervals scale (- note-count 2))
        scale-count (count scale)]
    (concat '(1)

;; --- Chords --- ;;

(defn chordify [entity-map]
  "Pick random notes from an entity map to assign chords."
  (filter (fn [x] (weighted-coin 0.2)) entity-map))

;; --- Playback --- ;;
