                         (+ t (* fret-delta dt)))))))
   ([chord-fret-map the-strings the-inst the-chord direction strum-time]
      (strum-strings chord-fret-map the-strings the-inst the-chord
-                    direction strum-time (now)))
+                    direction strum-time (now+)))
   ([chord-fret-map the-strings the-inst the-chord direction]
      (strum-strings chord-fret-map the-strings the-inst the-chord
-                    direction 0.05 (now)))
+                    direction 0.05 (now+)))
   ([chord-fret-map the-strings the-inst the-chord]
      (strum-strings chord-fret-map the-strings the-inst the-chord
-                    :down 0.05 (now))))
+                    :down 0.05 (now+))))
 
 ;; ======================================================================
 ;; The Guitar Instrument Code

                           (mkarg "note" string-index) the-note
                           (mkarg "gate" string-index) 1)))))
  ([the-chord-frets the-inst string-index fret]
     (pick-string the-chord-frets the-inst string-index fret (now))))

;; ======================================================================
(defn strum-strings

;; ======================================================================
;; Create the guitar defsynth.  Now via the power of macros
(gen-stringed-synth guitar 6)

;; ======================================================================
;; Ektara - a single-string synth.  Mainly for use with the midi-poly-player.
;; 
;; Since "string" was too generic a name, I asked the google for some
;; help.  Wikipedia tells me that there is a single-stringed
;; instrument called the "Ektara", so that is where the name comes
;; from.
;; 
;; For use with midi-poly-player, we need to make the default gate 1.
;; Example:
;;   (def mpp (midi-poly-player (partial ektara :gate 1)))
(gen-stringed-synth ektara 1)
