Created
June 5, 2012 22:04
-
-
Save chopmo/2878379 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/src/letsplay/jazz.clj b/src/letsplay/jazz.clj | |
| index ae6a9a9..2e7e47d 100644 | |
| --- a/src/letsplay/jazz.clj | |
| +++ b/src/letsplay/jazz.clj | |
| @@ -80,11 +80,13 @@ | |
| ;; TODO - avoid hanging around at the limits | |
| (limit (+ n (rand-nth '(-7 -6 -5 5 6 7))) 40 65))] | |
| (at tick | |
| - (+ (beep note) (bass (midi->hz note)))) | |
| + (beep note) | |
| + (bass (midi->hz note))) | |
| ;; extra off-beat note with same tone | |
| (when (> 0.1 (rand)) | |
| (at (m (+ beat (groove 0.5)) ) | |
| - (+ (beep note) (bass (midi->hz note))))) | |
| + (beep note) | |
| + (bass (midi->hz note)))) | |
| (apply-at (m (+ beat 1)) #'jazzbass [m note]))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment