              vrb# (free-verb dis# ~'rvb-mix ~'rvb-room ~'rvb-damp)
              fil# (rlpf vrb# ~'lp-freq ~'lp-rq)]
          (out ~'out-bus (pan2 (~'* ~'amp fil#) ~'pan))))))
+;;(macroexpand-1 '(gen-stringed-synth ektara 1 true))
 
 ;; ======================================================================
 ;; common routines for stringed instruments

                                               (second %)
                                               (/ 1.0 8.0)
                                               (~'/ 1.0 frq#)
                                                ~'decay
                                                ~'coef)]
                              (leak-dc (~'* plk#
                                            (env-gen (asr 0.0001 1 0.1)
                                                     :gate (second %)))
                                       0.995))
                           ~note-gate-pairs)
             src# (~'* ~'pre-amp (mix strings#))

(def guitar-strum (partial strum-strings guitar-chord-frets guitar-string-notes))

;; ======================================================================
;; Create the guitar defsynth.  Note that it is persistent and will
;; not be freed when any string goes silent.
(gen-stringed-synth guitar 6 false)

;; ======================================================================
;; Ektara - a single-string synth.  Mainly for use with the midi-poly-player.
