 (def d {:amp 5.0 :dur 0.25})
 (def g {:freq-mul 1})
 
-(volume 0.25)
+;;(volume 0.25)
 (sequencer-metro :bpm)
 
 (def beat-per-pattern 4)

    (at (metro beat)
        (doseq [n notes]
          (let [freq (midi->hz n)]
            (fmchord01 :freq freq :dur dur :amp 0.3))))
    (apply-by (metro next-beat) #'markov-loop [metro next-beat dict next-deg])
    ))
;; (markov-loop sequencer-metro (sequencer-metro) chord-chain-dict :I)
;; (chord-degree :i :c4 :major)
;; (stop)

(volume (/ 25 127))

(defn player [metro beat rates]
  (let [rates (if (empty? rates)

;;                        }).add;
(definst fmchord01 [freq 440 amp 0.2 dur 2]
  (let [index-env (env-gen (perc 0.0001 0.2 1 -4))
        amp-env (env-gen (perc 0.0001 dur 1 -4) :action FREE)
        snd (pm-osc freq (* freq 1.02) (* index-env 2))
        reverb (free-verb (* snd amp-env) 0.5 0.8 0.9)]
    (pan2 (* amp reverb))))
