                                        0.995))
                            ~note-gate-pairs)
              src# (~'* ~'pre-amp (mix strings#))
-             ;; distortion from fx-distortion2 
+             ;; distortion from fx-distortion2
              k#   (~'/ (~'* 2 ~'distort) (~'- 1 ~'distort))
              dis# (~'/ (~'* src# (~'+ 1 k#))
                        (~'+ 1 (~'* k# (~'abs src#))))

;; A Stringed Synth Generator Macro & Guitar Example Instrument
;;
;; See overtone/examples/instruments/guitar_synth.clj for example usage.
;; 
;; Other instruments (like bass-guitar, ukelele, mandolin, etc.) may
;; use the same basic instrument.  Watch this space...
(ns overtone.synth.stringed

   the previous note to be silenced; 0 or greater will also cause a
   new note event."
  ([the-strings the-inst string-index fret t]
     (let [the-note (fret-to-note (nth the-strings string-index) fret)]
       ;; turn off the previous note
       (if (>= the-note -1)
         (at t (ctl the-inst (mkarg "gate" string-index) 0)))
